0
Dadwneud
Pleidleisiau
Helo,
Rwy'n ceisio anfon e-bost yn seiliedig ar newid gwerth celloedd anuniongyrchol (ee> 7), gyda'r atodiad e-bost a chyfeiriad celloedd penodol at y celloedd sydd wedi newid yn fy nghorff postio. Mae'r newid gwerth celloedd anuniongyrchol i lawr yn seiliedig ar y meini prawf. Fodd bynnag, rwy'n cael gwall 424 wrth geisio gosod newidyn i alw'r cyfeiriad cell yn fy e-bost. Allech chi gynorthwyo? Rwy'n teimlo fy mod yn agos.
Dim xRg Fel Ystod
Dim xRgSel Fel Ystod
'Gosod amrediad a tharged
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRgPre Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Gosod xRg = Ystod ("C2: C43")
Gosod xRgPre = xRg.Precedents
Gosod xRgSel = Croestorri(Targed, xRg)
ActiveWorkbook.Save
Os xRg.Value > 7 Yna
Ffoniwch Mail_small_Text_Outlook
ArallOs (Nid yw xRgPre Dim) A (Croesffordd(Targed, xRgPre). Cyfeiriad = Target.Address) Yna
Gorffennwch Os
Gorffennwch Os
Is-End
Is-bost_small_Text_Outlook()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Helo, cell(au)" & xRgSel.Address(Gau, Gau) & _
" yn y daflen waith '" Mae &Me.Name &"' yn 3 diwrnod ar ôl y cymeriant" & vbNewLine & vbNewLine & _
"Adolygwch ac estynwch at yr arweinydd(ion)" & vbNewLine & _
"Diolch"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.i = ""
.CC = ""
.BCC = ""
.Subject = "Dyddiau ers cymeriant plwm"
.Corff = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display' neu .Send
Diwedd Gyda
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Diolch!
Rwy'n ceisio anfon e-bost yn seiliedig ar newid gwerth celloedd anuniongyrchol (ee> 7), gyda'r atodiad e-bost a chyfeiriad celloedd penodol at y celloedd sydd wedi newid yn fy nghorff postio. Mae'r newid gwerth celloedd anuniongyrchol i lawr yn seiliedig ar y meini prawf. Fodd bynnag, rwy'n cael gwall 424 wrth geisio gosod newidyn i alw'r cyfeiriad cell yn fy e-bost. Allech chi gynorthwyo? Rwy'n teimlo fy mod yn agos.
Dim xRg Fel Ystod
Dim xRgSel Fel Ystod
'Gosod amrediad a tharged
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRgPre Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Gosod xRg = Ystod ("C2: C43")
Gosod xRgPre = xRg.Precedents
Gosod xRgSel = Croestorri(Targed, xRg)
ActiveWorkbook.Save
Os xRg.Value > 7 Yna
Ffoniwch Mail_small_Text_Outlook
ArallOs (Nid yw xRgPre Dim) A (Croesffordd(Targed, xRgPre). Cyfeiriad = Target.Address) Yna
Gorffennwch Os
Gorffennwch Os
Is-End
Is-bost_small_Text_Outlook()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Helo, cell(au)" & xRgSel.Address(Gau, Gau) & _
" yn y daflen waith '" Mae &Me.Name &"' yn 3 diwrnod ar ôl y cymeriant" & vbNewLine & vbNewLine & _
"Adolygwch ac estynwch at yr arweinydd(ion)" & vbNewLine & _
"Diolch"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.i = ""
.CC = ""
.BCC = ""
.Subject = "Dyddiau ers cymeriant plwm"
.Corff = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display' neu .Send
Diwedd Gyda
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Diolch!
0
Dadwneud
Pleidleisiau
Hi 'na,
Pan gewch wall 424, cliciwch ar debug, ac yna cymerwch lun o'r broblem sydd wedi'i lleoli.
Fe wnaethom redeg y cod a ddarparwyd gennych, fe weithiodd yn iawn ar ôl i ni newid y diwedd os isod i ymadael is.
Newidiwch eich cod yn unol â hynny, ac yna rhowch gynnig arno i weld a yw'n gweithio fel y dymunwch.
Amanda
Pan gewch wall 424, cliciwch ar debug, ac yna cymerwch lun o'r broblem sydd wedi'i lleoli.
Fe wnaethom redeg y cod a ddarparwyd gennych, fe weithiodd yn iawn ar ôl i ni newid y diwedd os isod i ymadael is.
Newidiwch eich cod yn unol â hynny, ac yna rhowch gynnig arno i weld a yw'n gweithio fel y dymunwch.
Amanda
Diolch, Amanda! Fodd bynnag, rwy'n dal i gael y gwall, ac nid yw'r anogwr yn darparu opsiwn "debug". Yr wyf yn weddol newydd i VBA, a allai fod yn fy tolcio? Gweld fel mae'n gweithio ar eich diwedd. Rwyf wedi ceisio uwchlwytho sgrin lun ond yn cael amser caled i anfon fy neges ateb (mae'n Llwytho am gyfnodau hir o amser, dim ond headsup).
0
Dadwneud
Pleidleisiau
Helo Ryan, dim ond y streic y gwnaethoch chi ei newid diwedd os i ymadael is? (Sylwais fod teipio (eixt) yn y screenhot, sori am hynny.)
Os ydych, a fyddech cystal ag atodi'r ffeil Excel lle gwnaethoch gymhwyso'r cod?
Amanda
Os ydych, a fyddech cystal ag atodi'r ffeil Excel lle gwnaethoch gymhwyso'r cod?
Amanda
Diolch, Amanda! Fodd bynnag, rwy'n dal i gael y gwall, ac nid yw'r anogwr yn darparu opsiwn "debug". Yr wyf yn weddol newydd i VBA, a allai fod yn fy tolcio? Gweld fel mae'n gweithio ar eich diwedd. Rwyf wedi ceisio uwchlwytho sgrin lun ond yn cael amser caled i anfon fy neges ateb (mae'n Llwytho am gyfnodau hir o amser, dim ond headsup).
Gallwch geisio ei bostio gyda'r atodiadau nawr.
Helo Amanda, mae'n ddrwg gennyf am yr oedi, fe wnes i newid y Diwedd os i Exit Sub. Ond ni allaf ychwanegu'r ffeil excel na sgrinluniau am ryw reswm - ni allaf ateb gyda'r atodiadau. Ni allwn ychwanegu'r ffeil excel beth bynnag gan ei fod yn ffeil xlsm ac nid yw hynny'n cael ei gefnogi ar gyfer uwchlwytho ffeil. A allwn ni sgwrsio trwy e-bost?
Helo Amanda ac ExcelFan, mae'n ddrwg gennyf am yr oedi, fe wnes i newid y Diwedd os i Exit Sub. Ond rwy'n dal i fethu ag ychwanegu'r ffeil excel neu sgrinluniau am ryw reswm - ni allaf ateb gyda'r atodiadau. Ni allwn ychwanegu'r ffeil excel beth bynnag gan ei fod yn ffeil xlsm ac nid yw hynny'n cael ei gefnogi ar gyfer uwchlwytho ffeil. Beth bynnag allwn ni sgwrsio trwy e-bost? Fel hyn, gallaf basio'r ffeiliau
Helo Amanda, mae'n ddrwg gennyf am yr oedi, fe wnes i newid y Diwedd os i Exit Sub. Ond ni allaf ychwanegu'r ffeil excel na sgrinluniau am ryw reswm - ni allaf ateb gyda'r atodiadau. Ni allwn ychwanegu'r ffeil excel beth bynnag gan ei fod yn ffeil xlsm ac nid yw hynny'n cael ei gefnogi ar gyfer uwchlwytho ffeil. A allwn ni sgwrsio trwy e-bost?
Helo,
Beth am ei gadw fel sip neu rar?
Ni allaf bostio unrhyw fath o ffeil yn anffodus, na dolenni. Rwyf wedi estyn allan i gefnogi ond yn awr ateb hyd yn hyn. Ddim yn siŵr o'r achos ond wrth anfon y dudalen, dim ond llwythi ac nid yw'n anfon. Wedi rhoi cynnig ar borwyr lluosog, clirio fy storfa, a dyfeisiau lluosog :/
Rwy'n gwerthfawrogi eich parodrwydd i helpu! Yn anffodus ni allaf basio ffeiliau ar hyn o bryd
Rwy'n gwerthfawrogi eich parodrwydd i helpu! Yn anffodus ni allaf basio ffeiliau ar hyn o bryd
0
Dadwneud
Pleidleisiau
Helo Ryan,
Diolch am yr adborth. Byddwn yn gwirio a oes unrhyw broblem ynghylch atodi ffeiliau. Am y tro, anfonwch eich ffeil i
Amanda
Diolch am yr adborth. Byddwn yn gwirio a oes unrhyw broblem ynghylch atodi ffeiliau. Am y tro, anfonwch eich ffeil i
Amanda
0
Dadwneud
Pleidleisiau
Helo Amanda!
Dyma Ryan4 o ExtendOffice. Diolch am anfon eich cyfeiriad e-bost i helpu i ddatrys fy mhroblem, rwy'n bwriadu bod yn aelod gweithgar ers darganfod eich cymuned wych, felly rwy'n gobeithio datrys fy mhroblemau uwchlwytho ffeil yn y pen draw!
Am y tro, gweler y ffeil atodedig yma. Fe wnes i ddiweddaru'r cod i ddarllen “Exit Sub” yn lle “End if,” ond rydw i'n dal i dderbyn gwall heb unrhyw opsiwn dadfygio. Allwch chi gynghori? Efallai ei fod yn fy strwythur neu tolcio.
Diolch eto am eich cymorth!
Ryan
Helo Ryan,
Derbyniwyd neges e-bost. Gan y gall fod defnyddwyr eraill sydd â'r un broblem, byddaf yn ateb yma.
Rhowch gynnig ar y dull isod:
1. Agor Cyfeirnod.
2. Gwiriwch Llyfrgell Gwrthrychau Microsoft Outlook 16.0. Nodyn: Yn lle 16.0, efallai bod gennych chi 15.0, 14.0, ac ati.
3. Amnewid y cod isod
Dim xOutApp As Object
Dim xOutMail As Objecti
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItemRhowch gynnig ar y 3 cham uchod. Gan fod eich vba yn gweithio'n iawn ar ein cyfrifiadur, felly mae'n anodd i ni atgynhyrchu'r broblem. Gobeithio y bydd y dull hwn yn eich helpu chi!
Amanda
Helo Amanda, mae gen i Microsoft Outlook 16.0 Object Library ond yn anffodus ni weithiodd hyn ychwaith - mae gennyf wall newydd yn pwyntio at y cod problem. Mae'n ymddangos nad yw Outlook.Application yn fath diffiniedig - a oes angen i mi greu rhywfaint o rwymo cynnar i gymhwyso'r gwrthrych?
Diolch!
(ps eto ni allaf anfon sgrinluniau / atodiadau - byddaf yn anfon trwy e-bost ond mae croeso i chi bostio yma ar gyfer y gymuned hefyd.)
Diolch!
(ps eto ni allaf anfon sgrinluniau / atodiadau - byddaf yn anfon trwy e-bost ond mae croeso i chi bostio yma ar gyfer y gymuned hefyd.)
0
Dadwneud
Pleidleisiau
Helo Ryan,
Derbyniwyd y neges. Ond mae'n ddrwg gennym, gan fod y cod yn gweithio ar ein cyfrifiaduron, felly ni allem feddwl am atebion eraill i chi nawr.
Am y screenhots, wnaethoch chi glicio Llwythwch Ffeiliau O dan y Ymlyniadau blwch ac yna dewiswch y ffeiliau a gefnogir gan y fforwm?
Amanda
Derbyniwyd y neges. Ond mae'n ddrwg gennym, gan fod y cod yn gweithio ar ein cyfrifiaduron, felly ni allem feddwl am atebion eraill i chi nawr.
Am y screenhots, wnaethoch chi glicio Llwythwch Ffeiliau O dan y Ymlyniadau blwch ac yna dewiswch y ffeiliau a gefnogir gan y fforwm?
Amanda
Bummer :/ Tybed beth allai fod - byddaf yn ceisio chwarae o gwmpas ag ef ychydig mwy.
Ynglŷn â'r ffeiliau, ceisiais hynny. Rwy'n llwytho i fyny yn iawn ond ar ôl gwirio im nid robot a tharo ateb. Mae'r dudalen yn llwytho ac yn llwytho, ond byth yn anfon. Gallaf ateb yn iawn heb unrhyw atodiadau. Amanda, anfonais yr atodiadau a'r llyfr atoch mewn e-bost.
Byddaf yn rhoi gwybod i chi os byddaf yn datrys hyn!
Diolch am yr holl help beth bynnag
Ryan
Ynglŷn â'r ffeiliau, ceisiais hynny. Rwy'n llwytho i fyny yn iawn ond ar ôl gwirio im nid robot a tharo ateb. Mae'r dudalen yn llwytho ac yn llwytho, ond byth yn anfon. Gallaf ateb yn iawn heb unrhyw atodiadau. Amanda, anfonais yr atodiadau a'r llyfr atoch mewn e-bost.
Byddaf yn rhoi gwybod i chi os byddaf yn datrys hyn!
Diolch am yr holl help beth bynnag
Ryan
- Tudalen:
- 1
Ni wnaed unrhyw atebion i'r swydd hon eto.