0
արձակել
Քվեարկել
Բարեւ,
Ես փորձում եմ նամակ ուղարկել՝ հիմնվելով բջջային արժեքի անուղղակի փոփոխության վրա (օրինակ, > 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-ի հետ
Դեպի = ""
.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-ի հետ
Դեպի = ""
.CC = ""
.BCC = ""
.Subject = «Օրեր կապարի ընդունումից հետո»
.Body = xMailBody
.Attachments.Add (This Workbook.FullName)
.Ցուցադրել կամ .Ուղարկել
Վերջ
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Thanks!
0
արձակել
Քվեարկել
Hi այնտեղ,
Երբ դուք ստանում եք 424 սխալ, խնդրում ենք սեղմել վրիպազերծում, այնուհետև նկարահանել հայտնաբերված խնդրի սքրինշոթը:
Մենք գործարկեցինք ձեր տրամադրած կոդը, այն լավ աշխատեց, երբ մենք փոխեցինք կոդը վերջ, եթե ներքևում դեպի ելքի ենթ.
Խնդրում ենք համապատասխանաբար փոխեք ձեր կոդը, այնուհետև փորձեք այն՝ տեսնելու, թե արդյոք այն աշխատում է այնպես, ինչպես ցանկանում եք:
Amanda
Երբ դուք ստանում եք 424 սխալ, խնդրում ենք սեղմել վրիպազերծում, այնուհետև նկարահանել հայտնաբերված խնդրի սքրինշոթը:
Մենք գործարկեցինք ձեր տրամադրած կոդը, այն լավ աշխատեց, երբ մենք փոխեցինք կոդը վերջ, եթե ներքևում դեպի ելքի ենթ.
Խնդրում ենք համապատասխանաբար փոխեք ձեր կոդը, այնուհետև փորձեք այն՝ տեսնելու, թե արդյոք այն աշխատում է այնպես, ինչպես ցանկանում եք:
Amanda
Շնորհակալություն, Ամանդա! Այնուամենայնիվ, ես դեռ ստանում եմ սխալը, և հուշումը չի տրամադրում «վրիպազերծման» տարբերակ: Ես բավականին նոր եմ VBA-ում, կարո՞ղ է դա իմ ներքևումն է: Տեսնելով, թե ինչպես է այն աշխատում ձեր վերջում: Ես փորձել եմ վերբեռնել էկրանի նկարը, բայց դժվարանում եմ ստանալ իմ պատասխան հաղորդագրությունը (այն երկար ժամանակով բեռնվում է, պարզապես գլխի հաղորդագրություն):
0
արձակել
Քվեարկել
Ողջույն Ռայան, դու միայն փոխե՞լ ես գծանշումը վերջ, եթե դեպի ելքի ենթ? (Նշեցի, որ սքրինշոթում կա տառասխալ (eixt), կներեք դրա համար):
Եթե այո, կարո՞ղ եք կցել Excel ֆայլը, որտեղ կիրառել եք կոդը:
Amanda
Եթե այո, կարո՞ղ եք կցել Excel ֆայլը, որտեղ կիրառել եք կոդը:
Amanda
Շնորհակալություն, Ամանդա! Այնուամենայնիվ, ես դեռ ստանում եմ սխալը, և հուշումը չի տրամադրում «վրիպազերծման» տարբերակ: Ես բավականին նոր եմ VBA-ում, կարո՞ղ է դա իմ ներքևումն է: Տեսնելով, թե ինչպես է այն աշխատում ձեր վերջում: Ես փորձել եմ վերբեռնել էկրանի նկարը, բայց դժվարանում եմ ստանալ իմ պատասխան հաղորդագրությունը (այն երկար ժամանակով բեռնվում է, պարզապես գլխի հաղորդագրություն):
Այժմ կարող եք փորձել տեղադրել այն հավելվածներով:
Ողջույն, Ամանդա, կներեք ուշացման համար, ես փոխել եմ End if-ը Exit Sub-ի: Բայց ես ինչ-ինչ պատճառներով չեմ կարողանում ավելացնել excel ֆայլը կամ սքրինշոթերը. չեմ կարող պատասխանել հավելվածներով: Ես, այնուամենայնիվ, չկարողացա ավելացնել excel ֆայլը, քանի որ այն xlsm ֆայլ է և չի աջակցվում ֆայլի վերբեռնման համար: Կարո՞ղ ենք զրուցել էլփոստի միջոցով:
Ողջույն Amanda և ExcelFan, կներեք ուշացման համար, ես փոխեցի End if-ը Exit Sub-ի: Բայց ես դեռևս չեմ կարողանում ավելացնել excel ֆայլը կամ սքրինշոթերը ինչ-ինչ պատճառներով. չեմ կարող պատասխանել հավելվածներով: Ես, այնուամենայնիվ, չկարողացա ավելացնել excel ֆայլը, քանի որ այն xlsm ֆայլ է և չի աջակցվում ֆայլի վերբեռնման համար: Ինչևէ, կարո՞ղ ենք զրուցել էլփոստի միջոցով: Այդ կերպ ես կարող եմ փոխանցել ֆայլերը
Ողջույն, Ամանդա, կներեք ուշացման համար, ես փոխել եմ End if-ը Exit Sub-ի: Բայց ես ինչ-ինչ պատճառներով չեմ կարողանում ավելացնել excel ֆայլը կամ սքրինշոթերը. չեմ կարող պատասխանել հավելվածներով: Ես, այնուամենայնիվ, չկարողացա ավելացնել excel ֆայլը, քանի որ այն xlsm ֆայլ է և չի աջակցվում ֆայլի վերբեռնման համար: Կարո՞ղ ենք զրուցել էլփոստի միջոցով:
Բարեւ,
Ինչու չպահել այն որպես zip կամ rar:
Ցավոք, ես չեմ կարող տեղադրել որևէ ֆայլի տեսակ, ոչ էլ հղումներ: Ես դիմել եմ աջակցելու, բայց հիմա դեռ պատասխանում եմ: Վստահ չեմ պատճառը, բայց ուղարկելուց հետո էջը պարզապես բեռնվում է և չի ուղարկվում: Փորձել եմ բազմաթիվ բրաուզերներ, մաքրել իմ քեշը և բազմաթիվ սարքեր :/
Ես գնահատում եմ օգնելու ձեր պատրաստակամությունը: Ցավոք, ես այս պահին չեմ կարող ֆայլեր փոխանցել
Ես գնահատում եմ օգնելու ձեր պատրաստակամությունը: Ցավոք, ես այս պահին չեմ կարող ֆայլեր փոխանցել
0
արձակել
Քվեարկել
Բարև Ռայան,
Շնորհակալություն արձագանքի համար: Մենք կստուգենք, արդյոք ֆայլի կցման հետ կապված որևէ խնդիր կա: Առայժմ, խնդրում ենք ուղարկել ձեր ֆայլը
Amanda
Շնորհակալություն արձագանքի համար: Մենք կստուգենք, արդյոք ֆայլի կցման հետ կապված որևէ խնդիր կա: Առայժմ, խնդրում ենք ուղարկել ձեր ֆայլը
Amanda
0
արձակել
Քվեարկել
Բարև Ամանդա:
Սա Ryan4-ից է ExtendOffice. Շնորհակալ եմ, որ ուղարկեցիք ձեր էլ․ հասցեն՝ օգնելու լուծել իմ խնդիրը: Ես մտադիր եմ ակտիվ անդամ լինել ձեր ֆանտաստիկ համայնքը բացահայտելուց ի վեր, ուստի հուսով եմ, որ ի վերջո կլուծվեն իմ ֆայլերի վերբեռնման խնդիրները:
Առայժմ խնդրում ենք դիտել կից ֆայլը այստեղ: Ես թարմացրել եմ կոդը՝ կարդալու «Exit Sub»՝ «End if»-ի փոխարեն, սակայն ես դեռ ստանում եմ սխալ՝ առանց վրիպազերծման տարբերակի: Կարող եք խորհուրդ տալ: Միգուցե դա իմ կառուցվածքն է կամ ներքևը:
Կրկին շնորհակալություն ձեր օգնության համար:
Ryan
Բարև Ռայան,
Էլփոստը ստացվել է: Քանի որ կարող են լինել այլ օգտվողներ, ովքեր ունեն նույն խնդիրը, ես կպատասխանեմ այստեղ:
Խնդրում ենք փորձել ստորև բերված մեթոդը.
1. Բաց Մանրամասն.
2. Ստուգեք Microsoft Outlook 16.0 օբյեկտների գրադարան. Նշում. 16.0-ի փոխարեն կարող եք ունենալ 15.0, 14.0 և այլն:
3. Փոխարինեք ստորև նշված կոդը
Dim xOutApp As Object
Dim xOutMail As Objectդեպի
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItemԽնդրում ենք փորձել վերը նշված 3 քայլերը: Քանի որ ձեր vba-ն լավ է աշխատում մեր համակարգչում, ուստի մեզ համար դժվար է վերարտադրել խնդիրը: Հուսով ենք, որ այս մեթոդը կօգնի ձեզ:
Amanda
Բարև Ամանդա, ես իսկապես ունեմ Microsoft Outlook 16.0 օբյեկտների գրադարան, բայց, ցավոք, դա նույնպես չաշխատեց. ես նոր սխալ ունեմ՝ մատնանշելով խնդրի կոդը: Թվում է, թե Outlook.Application-ը սահմանված տեսակ չէ. պե՞տք է արդյոք վաղաժամկետ կապ ստեղծել օբյեկտը որակավորելու համար:
Thank you!
(ps կրկին ես չեմ կարող ուղարկել սքրինշոթներ / հավելվածներ. կուղարկվի էլփոստով, բայց ազատ զգալ այստեղ տեղադրել նաև համայնքի համար):
Thank you!
(ps կրկին ես չեմ կարող ուղարկել սքրինշոթներ / հավելվածներ. կուղարկվի էլփոստով, բայց ազատ զգալ այստեղ տեղադրել նաև համայնքի համար):
0
արձակել
Քվեարկել
Բարև Ռայան,
Հաղորդագրությունը ստացվել է: Բայց կներեք, որ քանի որ կոդը աշխատում է մեր համակարգիչների վրա, ուստի մենք հիմա չէինք կարող ձեզ համար այլ լուծումներ մտածել:
Սքրինշոթերի մասին՝ սեղմե՞լ եք Վերբեռնեք ֆայլերը տակ Կցորդներ վանդակում, ապա ընտրեք ֆայլերը, որոնք աջակցվում են ֆորումի կողմից:
Amanda
Հաղորդագրությունը ստացվել է: Բայց կներեք, որ քանի որ կոդը աշխատում է մեր համակարգիչների վրա, ուստի մենք հիմա չէինք կարող ձեզ համար այլ լուծումներ մտածել:
Սքրինշոթերի մասին՝ սեղմե՞լ եք Վերբեռնեք ֆայլերը տակ Կցորդներ վանդակում, ապա ընտրեք ֆայլերը, որոնք աջակցվում են ֆորումի կողմից:
Amanda
Սխալ :/ Հետաքրքիր է, թե դա ինչ կարող է լինել, ես կփորձեմ ավելի շատ խաղալ դրա հետ:
Ֆայլերի մասին ես փորձեցի դա: Ես լավ եմ վերբեռնում, բայց ստուգելուց հետո ես ռոբոտ չեմ և սեղմելով պատասխանը: Էջը պարզապես բեռնվում և բեռնվում է, բայց երբեք չի ուղարկում: Ես կարող եմ լավ պատասխանել առանց հավելվածների: Ամանդա, ես ձեզ էլփոստով ուղարկեցի հավելվածները և գիրքը:
Բոլորիդ կտեղեկացնեմ, եթե լուծեմ այս հարցը:
Ամեն դեպքում, շնորհակալություն բոլոր օգնության համար
Ryan
Ֆայլերի մասին ես փորձեցի դա: Ես լավ եմ վերբեռնում, բայց ստուգելուց հետո ես ռոբոտ չեմ և սեղմելով պատասխանը: Էջը պարզապես բեռնվում և բեռնվում է, բայց երբեք չի ուղարկում: Ես կարող եմ լավ պատասխանել առանց հավելվածների: Ամանդա, ես ձեզ էլփոստով ուղարկեցի հավելվածները և գիրքը:
Բոլորիդ կտեղեկացնեմ, եթե լուծեմ այս հարցը:
Ամեն դեպքում, շնորհակալություն բոլոր օգնության համար
Ryan
- էջ:
- 1
Այս գրառման համար դեռևս պատասխաններ չեն տրվել: