Բարեւ,
Ես փորձում եմ նամակ ուղարկել՝ հիմնվելով բջջային արժեքի անուղղակի փոփոխության վրա (օրինակ, > 7), էլփոստի կցորդով և իմ ելքային փոստի մարմնի փոփոխված բջիջներին հղումով: Ես ստացել եմ անուղղակի բջիջի արժեքի փոփոխություն՝ հիմնվելով չափանիշների վրա: Այնուամենայնիվ, ես ստանում եմ 424 սխալ, երբ փորձում եմ փոփոխական սահմանել բջջային հասցեն իմ էլ. Կարող եք օգնել: Ես զգում եմ, որ մոտ եմ:
Dim xRg որպես տիրույթ
Dim xRgSel As Range
«Սահմանել միջակայքը և թիրախը
Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRgPre As Range
Ս.թ. սխալի Ռեզյումե Next
Եթե Target.Cells.Count > 1 Ապա Ելք Ենթ
Սահմանել xRg = միջակայք («Q2:Q43»)
Սահմանել xRgPre = xRg.Նախադեպեր
Սահմանել xRgSel = Խաչմերուկ (Թիրախ, xRg)
ActiveWorkbook.Save
Եթե xRg.Value > 7 Ապա
Զանգահարեք Mail_small_Text_Outlook-ին
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Այնուհետեւ
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Dim xMailBody որպես տող
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
xMailBody = «Բարև ձեզ, բջիջ(ներ)» & xRgSel.Address(False, False) & _
«Աշխատանքային թերթիկում «» & Me.Name & «» ընդունումից 3 օր է անցել» & vbNewLine & vbNewLine & _
«Խնդրում ենք վերանայել և դիմել առաջատար(ներին)» & vbNewLine & _
"Շնորհակալություն"
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = «Օրեր կապարի ընդունումից հետո»
.Body = xMailBody
.Attachments.Add (This Workbook.FullName)
.Ցուցադրել կամ .Ուղարկել
Վերջ
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Thanks!
Ես փորձում եմ նամակ ուղարկել՝ հիմնվելով բջջային արժեքի անուղղակի փոփոխության վրա (օրինակ, > 7), էլփոստի կցորդով և իմ ելքային փոստի մարմնի փոփոխված բջիջներին հղումով: Ես ստացել եմ անուղղակի բջիջի արժեքի փոփոխություն՝ հիմնվելով չափանիշների վրա: Այնուամենայնիվ, ես ստանում եմ 424 սխալ, երբ փորձում եմ փոփոխական սահմանել բջջային հասցեն իմ էլ. Կարող եք օգնել: Ես զգում եմ, որ մոտ եմ:
Dim xRg որպես տիրույթ
Dim xRgSel As Range
«Սահմանել միջակայքը և թիրախը
Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRgPre As Range
Ս.թ. սխալի Ռեզյումե Next
Եթե Target.Cells.Count > 1 Ապա Ելք Ենթ
Սահմանել xRg = միջակայք («Q2:Q43»)
Սահմանել xRgPre = xRg.Նախադեպեր
Սահմանել xRgSel = Խաչմերուկ (Թիրախ, xRg)
ActiveWorkbook.Save
Եթե xRg.Value > 7 Ապա
Զանգահարեք Mail_small_Text_Outlook-ին
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Այնուհետեւ
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Dim xMailBody որպես տող
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
xMailBody = «Բարև ձեզ, բջիջ(ներ)» & xRgSel.Address(False, False) & _
«Աշխատանքային թերթիկում «» & Me.Name & «» ընդունումից 3 օր է անցել» & vbNewLine & vbNewLine & _
«Խնդրում ենք վերանայել և դիմել առաջատար(ներին)» & vbNewLine & _
"Շնորհակալություն"
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = «Օրեր կապարի ընդունումից հետո»
.Body = xMailBody
.Attachments.Add (This Workbook.FullName)
.Ցուցադրել կամ .Ուղարկել
Վերջ
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Thanks!