Note: The other languages of the website are Google-translated. Back to English

Conas ríomhphost a sheoladh má athraítear cill áirithe in Excel?

Tá an t-alt seo ag caint faoi ríomhphost a sheoladh trí Outlook nuair a dhéantar cill i raon áirithe a mhodhnú in Excel.

Seol r-phost má athraítear cill i raon áirithe le cód VBA


Seol r-phost má athraítear cill i raon áirithe le cód VBA

Más gá duit ríomhphost nua a chruthú go huathoibríoch le leabhar oibre gníomhach ceangailte nuair a athraítear cill i raon A2: E11 i mbileog oibre áirithe, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Sa bhileog oibre a chaithfidh tú ríomhphost a sheoladh bunaithe ar a chill modhnaithe i raon áirithe, cliceáil ar dheis ar an táb bileog agus ansin cliceáil ar an Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

2. Sa popping suas Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid.

Cód VBA: Seol r-phost má athraítear cill i raon sonraithe in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

nótaí:

1). Sa chód, A2: E11 an raon a sheolfaidh tú ríomhphost bunaithe air.
2). Athraigh an comhlacht ríomhphoist de réir mar is gá duit xMailBody líne sa chód.
3). Cuir an Seoladh ríomhphoist le seoladh ríomhphoist an fhaighteora ar aon dul .To = "Seoladh Ríomhphoist".
4). Athraigh an t-ábhar ríomhphoist i líne .Subject = "Bileog oibre modhnaithe i" & ThisWorkbook.FullName.

3. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, athrófar aon chill i raon A2: E11, cruthófar r-phost nua agus an leabhar oibre nuashonraithe ceangailte leis. Agus liostálfar gach réimse sonraithe mar ábhar, faighteoir agus comhlacht ríomhphoist sa ríomhphost. Seol an ríomhphost le do thoil.

nótaí: Ní oibríonn an cód VBA ach amháin má tá Outlook á úsáid agat mar do chlár ríomhphoist.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (37)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim i bhfostú thíos cód VB. Táim ag iarraidh fógra ríomhphoist a fháil don úsáideoir nuair a athraíodh na sonraí. Tá ríomhphost ag obair ach nuair a dhéanaim aon athrú tionscnaítear r-phost láithreach ach ba mhaith liom ríomhphost nuair a shábhálfar an leathán excel agus go ndúnfar é tar éis na hathruithe go léir a dhéanamh ar na húsáideoirí go léir a raibh tionchar acu. Ba chóir go n-oibreodh sé seo freisin d’aon cheann de na bileoga sa leabhar saothair iomlán Excel.

Cuidigh le do thoil ...

Foleabhar Oibre Príobháideach_BeforeSave(ByVal SaveAsUI Mar Boole, Cealaigh Mar Boole)

'**** Dearbhú oibiachtaí agus athróg******

Dim xRgSel Mar Raon Dim xOutApp Mar Réad Dim xMailItem As Object Dim xMailBody As Teaghrán Dim mailTo As Teaghrán

Ar Lean Earráid Aghaidh

Bileoga ("Spriocbhileog").Raon ("SpriocRaon").Roghnaigh

Application.ScreenUpdating = Iarratas Bréagach.DisplayAlerts = Bréagach

'Socraigh xRg = Raon ("A" & Rows.Count).Deireadh(xlUp).Row

Socraigh xRg = Raon ("A2: DA1000")
Socraigh xRgSel = Trasnaigh(Sprioc, xRg)


Leabhar Oibre Gníomhach.Sábháil
‘********** Feidhmchlár Outlook á oscailt ***********

Mura bhfuil xRgSel Rud ar bith Ansin

Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xMailItem = xOutApp.CreateItem(0)

xMailBody = "Cill(í)" & xRgSel.Address(Bréagach, Bréagach) & _
" sa bhileog oibre '" Athraíodh &Mise.Name &"' ar " & _
Formáid$(Anois, "mm/dd/bbbb") & " ag " & Formáid$(Anois, "hh:mm:ss") & _
" le " &Environ$("ainm úsáideora") & "."
'************* Ag Lorg Liosta faighteoirí************

Má Cealla(xRgSel.Row, "A").Value = "Pléasc" Ansin

mailTo = "pank12***@gmail.com"

Deireadh Má

Má Cealla(xRgSel.Row, "A").Value = "Nitin" Ansin

mailTo = "panc****@gmail.com"

Deireadh Má

Má Cealla(xRgSel.Row, "A").Value = "Chandan" Ansin

mailTo = "pakxro**@gmail.com"

Deireadh Má
'************* Seol ríomhphost ag cumadóireacht *************

Le xMailItem

.Chun = mailTo
.Subject = "Bileog oibre modhnaithe i" & ThisWorkbook.FullName
.Comhlacht = xMailBody
'.Ceangail.Add (ThisWorkbook.FullName)
.Dráma

Deireadh Le

Socraigh xRgSel = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic
Socraigh xMailItem = Ní dhéanfaidh aon ní

Deireadh Má

Application.DisplayAlerts = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Pankaj Shukla a chara,
Cuir do cheist Excel chuig ár bhfóram: https://www.extendoffice.com/forum.html chun tuilleadh tacaíochtaí a fháil faoi Excel ónár ngairmí Excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé in ann an macra a chruthú, ach tá fadhb agam. Ba mhaith liom ríomhphost a sheoladh go huathoibríoch nuair a shroicheann cill tairseach áirithe. Is foirmle í an chill. Nuair a théann an tsuim ríofa faoi bhun na tairsí sin ní dhéanann sé faic; áfach, má chlóscríobhaim go díreach isteach sa chill déanfaidh sé an macra a phróiseáil mar a bhí beartaithe. An ndéanann an fhoirmle praiseach don mhacra?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sissy Jones,
An modh san Airteagal seo: Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
https://www.extendoffice.com/documents/excel/4656-excel-send-email-based-on-cell-value.html cabhrú leat an fhadhb a réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Riaracháin a chara,


Teastaíonn uaim do chabhair,



Tá excel agam chun monatóireacht a dhéanamh ar shonraí oibre laethúil a dhéanann ár n-oibrí ón réimse, mar sin an féidir é seo a spreagadh le ríomhphost ó bhileog excel má theip ar an bhfear sin na sonraí sa bhileog excel sin a nuashonrú in am ar leith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Ní féidir cabhrú leis seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Más mian liom an luach cille a sheoladh in ionad an seoladh ... ansin cad a athróidh mé sa chód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Is féidir leat triail a bhaint as an gcód VBA thíos.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRgSel Mar Raon
Dim xOutApp Mar Réad
Dim xMailItem As Object
Dim xMailBody Mar Teaghrán
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Application.DisplayAlerts = Bréagach
Socraigh xRg = Raon ("A2: E11")
Socraigh xRgSel = Trasnaigh(Sprioc, xRg)
Leabhar Oibre Gníomhach.Sábháil
Mura bhfuil xRgSel Rud ar bith Ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cill(í)" & xRgSel.Address(Bréagach, Bréagach) & _
xRgSel.Luach & _
" sa bhileog oibre '" Athraíodh &Mise.Name &"' ar " & _
Formáid$(Anois, "mm/dd/bbbb") & " ag " & Formáid$(Anois, "hh:mm:ss") & _
" le " &Environ$("ainm úsáideora") & "."

Le xMailItem
.To = "Seoladh Ríomhphoist"
.Subject = "Bileog oibre modhnaithe i" & ThisWorkbook.FullName
.Comhlacht = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Dráma
Deireadh Le
Socraigh xRgSel = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic
Socraigh xMailItem = Ní dhéanfaidh aon ní
Deireadh Má
Application.DisplayAlerts = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad mura dteastaíonn uainn ach na tráchtanna nuashonraithe sa chill sin agus ní luach iomlán na cille Níor cheart go dtaispeánfadh sé ach na tráchtanna is déanaí a cuireadh leis sa chill
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An ndearna tú é seo amach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Eolas iontach.
Ceist maidir leis an bhfaisnéis is féidir a chur leis an ríomhphost.
Ag baint úsáide as do shampla thuas....

Dá mbeadh luach agat in F4, conas a chuirfeá an Luach F4 san áireamh sa ríomhphost a gineadh nuair a athraíodh D4??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
má tá orm an tsraith iomlán sin a sheoladh ansin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá iarracht déanta agam thuas cód VBA: Seol ríomhphost má athraítear cill i raon sonraithe in Excel. Oibríonn an VBA seo domsa ach amháin ríomhphost a sheoladh. Nuair a athraítear na sonraí sa raon tugtha gintear ríomhphost go huathoibríoch le sonraí cille mionathraithe. Mar sin féin, ní sheoltar an ríomhphost go huathoibríoch chuig an bhfaighteoir agus ní mór don úsáideoir cliceáil ar an gcnaipe seolta sa ríomhphost. Is é an rud atá á lorg agam anseo, caithfidh an ríomhphost a sheoladh go huathoibríoch chuig na faighteoirí nuair a ghintear é. Cabhraigh liom le do thoil cód a sholáthar dó seo. Go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Jimmy Joseph,
Cuir ".Send" in ionad an líne ".Display". Tá súil agam gur féidir liom cabhrú. Go raibh maith agat as trácht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh; an bhfuil bealach ann chun an téacs a thaispeánfar a athrú ag baint úsáide as faisnéis ó chealla eile (ón gcéad ró agus sa chéad cholún)? mar shampla, má athraím cill K15, ba mhaith liom faisnéis ar chealla A15 agus K1 a chur san áireamh sa teachtaireacht? cad ba cheart dom a athrú sa chód? go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hi Laona. an bhfaigheann tú amach conas is féidir é seo a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit. Conas is féidir liom an cód a mhodhnú ionas go seolfar ríomhphost chuig seoladh ríomhphoist eile má chuirtear raon eile cealla in eagar?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aon chabhair maidir leis an iarratas seo? Tá an cheist chéanna agam. Ba mhaith liom seoladh ríomhphoist iolrach a chur leis in aghaidh an tsraith, ach nuair a athraím ró amháin, athraíonn an bhileog oibre ar fad. Conas is féidir liom na hathruithe a theorannú go ró amháin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cuir líne in eagar:
1). Sa chód, is é A2:E11 an raon a sheolfaidh tú ríomhphost bunaithe air.
agus
3). Ionadaigh an Seoladh Ríomhphoist le seoladh ríomhphoist an fhaighteora i líne .To = "Seoladh Ríomhphoist".

Oibríonn sé go maith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat é seo a mhíniú tuilleadh le do thoil. Conas a dhéanann tú an cód a sheoladh arís le seoladh chuig ríomhphost eile bunaithe ar raon eile atá á mhodhnú. Tá iarracht déanta agam an cód thíos a chóipeáil agus a ghreamú agus a athrú de réir do thuairimí, ach fós féin is cosúil go ndéanann an chéad raon an t-ordú a fhorghníomhú agus an ríomhphost a scríobh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil freagra ag éinne air seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhí mé ag iarraidh ríomhphoist a sheoladh ar mo bhileog ag baint úsáide as luach amháin a athraíodh ar an mbileog. Más rud é ar cholún H athrófar an stádas go = "4" ba cheart an tAitheantas Ordaithe ar chlé a sheoladh chuig úsáideoir amháin. Oibríonn an leathán go dinimiciúil ionas go mbeidh Raon ó D9:D140 agam áit a stóráltar ideanna ordaithe agus ina ndéantar athruithe stádais sa raon céanna ar H9:H140. Conas is féidir liom an sprioc chun é sin a dhéanamh a bhaint amach agus an ID Ordaithe a sheoladh chuig mo chustaiméir nuair a athraítear an stádas go = "4" ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An mbeadh sé indéanta cill thagartha eile a thaispeáint sa xMailBody sa cholún céanna in ionad na seoltaí cille modhnaithe??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sam, An bhfuil sé i gceist agat cill tagartha a roghnú go randamach sa cholún céanna den seoladh cille modhnaithe? Nó clóscríobh cill tagartha de láimh i líne xMailBody an chóid? Tá sé éasca cill tagartha a chlóscríobh de láimh sa chód, ní gá ach an chill tagartha a chur faoi iamh le comharthaí athfhriotail dhúbailte mar a thaispeántar thíos: xMailBody = "Cill(í)" & "D3" &", "& "D8" & _

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir é seo a athrú ionas nach dtaispeánann sé an ríomhphost ach amháin má athraíodh cill i raon chun "Tá". Ba mhaith leis gan aon rud a dhéanamh más luach ar bith eile é.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcód, oibríonn an cód seo nuair a chuirim an luach isteach agus brúigh mé isteach. Ach i mo chás féin tá an chill á líonadh go huathoibríoch le foirmle, agus nuair a shroichtear an luach ní osclaíonn sé an ríomhphost agus mar sin ní oibríonn an cód sa chás seo. Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Bain triail as le do thoil. Go raibh maith agat as do chuid aiseolais.

Fo-Bileog Oibre Príobháideach_Athraigh(Sprioc ByVal Mar Raon)
' arna nuashonrú ag Extendoffice 2022 / 04 / 15
Dim xRgSel Mar Raon
Dim xOutApp Mar Réad
Dim xMailItem As Object
Dim xMailBody Mar Teaghrán
Dim xBoolean Mar Boole
Dim xItsRG Mar Raon
Dim xDDs Mar Raon
Dim xDs Mar Raon
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Application.DisplayAlerts = Bréagach
xBoolean = Bréagach
Socraigh xRg = Raon ("E2: E13")

Socraigh xItsRG = Trasnaigh(Sprioc, xRg)
Socraigh xDDs = Trasnaigh(Target.DirectDependents, xRg)
Socraigh xDs = Trasnaigh(Sprioc.Dependents, xRg)
Mura bhfuil (xItsRG Is Faic) Ansin
Socraigh xRgSel = xItsRG
xBoolean = Fíor
Eile Mura bhfuil (xDDs Is Faic) Ansin
Socraigh xRgSel = xDDs
xBoolean = Fíor
Eile Mura bhfuil (xDs Is Faic) Ansin
Socraigh xRgSel = xDs
xBoolean = Fíor
Deireadh Má


Leabhar Oibre Gníomhach.Sábháil
Má xBoolean Ansin
Debug.Print xRgSel.Seoladh


Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cill(í)" & xRgSel.Address(Bréagach, Bréagach) & _
" sa bhileog oibre '" Athraíodh &Mise.Name &"' ar " & _
Formáid$(Anois, "mm/dd/bbbb") & " ag " & Formáid$(Anois, "hh:mm:ss") & _
" le " &Environ$("ainm úsáideora") & "."

Le xMailItem
.To = "Seoladh Ríomhphoist"
.Subject = "Bileog oibre modhnaithe i" & ThisWorkbook.FullName
.Comhlacht = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Dráma
Deireadh Le
Socraigh xRgSel = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic
Socraigh xMailItem = Ní dhéanfaidh aon ní
Deireadh Má
Application.DisplayAlerts = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá cód den chineál céanna cruthaithe agam ach ba mhaith liom *** coinníoll a dhéanamh má scriostar luach cille nach seolfaidh ríomhphost nuair a shábháiltear / dúnta é. Ní sheolfaidh sé ríomhphost ach amháin nuair a bheidh luach cille curtha isteach. An bhfuil a fhios agat conas é seo a dhéanamh? Seo é mo chód:

CÓD MAIDIR LE RÍOMHPHOST UATHACH DO DHUINE NUAIR A DHÉANFAR NUASHONRÚ AR LEABHAR OIBRE EXCEL

CÓD BILEOG:

Rogha Sonraithe 'Raon imeacht athraithe bileog oibre Excel
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura Trasnaíonn (Sprioc, Raon ("C3:D62")) An bhfuil aon rud ansin
' Target.EntireRow.Interior.ColorIndex = 15
Raon ("XFD1048576").Luach = 15
Deireadh Má
Mura Trasnaíonn (Sprioc, Raon ("I3:J21")) Nach bhfuil aon rud ansin
' Target.EntireRow.Interior.ColorIndex = 15
Raon ("XFD1048576").Luach = 15
Deireadh Má
Fo Deireadh


CÓD LEABHAR SAOTHAIR:

Foleabhar Oibre Príobháideach_BeforeClose(Cealaigh Mar Boole)
Má Mise.Saved = Bréagach Ansin Me.Save

Dim xOutApp Mar Réad
Dim xMailItem As Object
Dim xName As Teaghrán

Má Raon ("XFD1048576").Luach = 15 Ansin
Ar Lean Earráid Aghaidh
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
Le xMailItem
.Chun = "ríomhphost"
.CC = ""
.Subject = "teachtaireacht"
.Body = "teachtaireacht!"
.Ceangaltáin.*** xName
.Dráma
'.seol
Deireadh Le
Deireadh Má
Socraigh xMailItem = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic



Fo Deireadh

Foleabhar Oibre Príobháideach_Oscail()
Raon ("XFD1048576"). Glan
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Gach,

der Code würde gut für mein Vorhaben passen, aber gibt es die Möglichkeit, dass er eine E-Mail beim speichern schreibt mit allen Zellen die geändert wurden? Mar sin wie es jetzt ist ,würde er jede geänderte Zelle einzeln senten. Dies ist dann problematisch wenn zB 10 Zellen angepasst werden was 10 E-mails bedeuten würde. Und gibt es die Möglichkeit, die gesamte geänderte Zelle bei mir von A bis Y in einer E-Mail zu senten? Bisher haut der ja die Zellnummer in die R-Mail, wenn aber jemand anders Filtert wird er die Änderung nicht mehr finden.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Esser123,
Is féidir leis na cóid VBA seo a leanas cabhrú leat. Tar éis na cealla a mhodhnú sa raon sonraithe agus an leabhar oibre a shábháil, beidh ríomhphost aníos chun na cealla modhnaithe go léir sa chomhlacht ríomhphoist a liostú, agus cuirfear an leabhar oibre isteach mar cheangaltán sa ríomhphost freisin. Lean na céimeanna seo a leanas le do thoil:
1. Oscail an bhileog oibre ina bhfuil na cealla ar mhaith leat ríomhphoist a sheoladh bunaithe ar, cliceáil ar dheis ar an táb bileog agus cliceáil Féach an cód ón roghchlár cliceáil ar dheis. Ansin cóipeáil an cód seo a leanas isteach i bhfuinneog na mbileog (cód).
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220921
Dim xAddress As String
Dim xDRg, xRgSel, xRg As Range

xAddress = "A1:A8"
Set xDRg = Range(xAddress)
Set xRgSel = Intersect(Target, xDRg)
On Error GoTo Err1
If Not xRgSel Is Nothing Then
If ThisWorkbook.gChangeRange = "" Then
ThisWorkbook.gChangeRange = xRgSel.AddressLocal(False, False, xlA1, True, False)
Else
Set xRg = Range(ThisWorkbook.gChangeRange)
Set xRg = Application.Union(xRg, xRgSel)
ThisWorkbook.gChangeRange = xRg.AddressLocal(False, False, xlA1, True, False)
End If
End If
Exit Sub
Err1:
      ThisWorkbook.gChangeRange = xRgSel.AddressLocal(False, False, xlA1, True, False)
End Sub

2. Sa eagarthóir Visual Basic, cliceáil faoi dhó An Leabhar Oibre seo sa phána clé, ansin cóipeáil an cód VBA seo a leanas chuig an An Leabhar Oibre seo (Cód) fhuinneog.
Option Explicit
Public gChangeRange As String
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20220921
Dim xRgSel, xRg As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
'On Error Resume Next
On Error GoTo Err1
Set xRg = Range(gChangeRange)
If Not xRg Is Nothing Then
   Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Email Body: " & vbCrLf & "The following cells were modified:" & xRg.Address(False, False)
        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
End If
Err1:
gChangeRange = ""
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá roinnt cabhrach ag teastáil uaim chun ríomhphost a spreagadh le hathrú beag. In ionad luach uimhriúil nó an fhaisnéis a iontráil isteach sa chill de láimh, athrófar cealla i gcolún B go 'Y' arna spreagadh ó fhoirmle i gcealla eile sa tsraith sin. Is é an fhoirmle do cholún B ná =IF([@[Cainníocht i Stoc]]>[@[Leibhéal Athordaithe]],,"Y"), a thaispeánann go bhfuil an fardal íseal i stoc agus go dteastaíonn athordú uaidh. Ní mór dom ríomhphost uathoibrithe a spreagadh nuair a athraíonn luach cille i gcolún B go 'Y', agus mar sin cuirtear an stoc íseal in iúl dom go huathoibríoch trí ríomhphost. Bhain mé triail as gach rud is féidir liom smaoineamh air agus mé ag athrú na gcód atá curtha ar fáil cheana féin, ach is cosúil nach n-oibríonn aon rud domsa ... le do thoil cabhrú!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Kathryn F,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Bain triail as, le do thoil. Go raibh maith agat as do thuairim.
Dim xRg As Range
'Update by Extendoffice 20221019
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("B:B"), Target)
If xRg Is Nothing Then Exit Sub
If Target.Value = "Y" Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Private Sub Worksheet_Calculate()
Dim xTarget As String
Dim xRg As Range
'Set xRg = Application.Range("B:B")
Set xRg = Intersect(Range("B:B"), Selection.EntireRow)
On Error GoTo Err01
If xRg.Value = "Y" Then
Call Mail_small_Text_Outlook
End If
Err01:
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit agus go raibh maith agat as an teagaisc seo.
J'ai cependant une difficulté do l'iarratas de la plage de recherche.
Dans le code, j'ai demandé à vérifier la plage C2:C4.
Tout fonctionne bien si je mhodhnú uathúlacht C2, C3 nó C4. Cela fonctionne aussi si je modhnuithe C2+C3+C4 nó C2+C3 nó C3+C4 níos mó ná an fonctionne pas si j'ai un saut dans la plage. Mar shampla, is modhnú C2 agus C4 sans C3.
Cad é an chaoi a bhfuil tú ag súil le do chuid faisnéise ?
Merci d'avance.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
' arna nuashonrú ag Extendoffice 20220921
Dim xSeoladh Mar Teaghrán
Dim xDRg, xRgSel, xRg Mar Raon

xSeoladh = "C2:C4"
Socraigh xDRg = Raon(xAddress)
Socraigh xRgSel = Trasnaigh(Sprioc, xDRg)
Ar Earráid TéighTo Err1
Mura bhfuil xRgSel Rud ar bith Ansin
Má ThisWorkbook.gChangeRange="" Ansin
ThisWorkbook.gChangeRange = xRgSel.AddressLocal(Bréagach, Bréagach, xlA1, Fíor, Bréagach)
Eile
Socraigh xRg = Raon(ThisWorkbook.gChangeRange)
Socraigh xRg = Application.Union(xRg, xRgSel)
ThisWorkbook.gChangeRange = xRg.AddressLocal(Bréagach, Bréagach, xlA1, Fíor, Bréagach)
Deireadh Má
Deireadh Má
Fo-Scoir
Earráid 1:
ThisWorkbook.gChangeRange = xRgSel.AddressLocal(Bréagach, Bréagach, xlA1, Fíor, Bréagach)
Fo Deireadh


-----

Rogha Sonraithe
Poiblí gChangeRange As Teaghrán
Foleabhar Oibre Príobháideach_AfterSave(Rath ByVal Mar Boole)
' arna nuashonrú ag Extendoffice 20220921
Dim xRgSel, xRg Mar Raon
Dim xOutApp Mar Réad
Dim xMailItem As Object
Dim xMailBody Mar Teaghrán
'Ar Earráid Lean Ar Aghaidh
Ar Earráid TéighTo Err1
Socraigh xRg = Raon (gChangeRange)
Mura bhfuil xRg ar bith ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cher Jean-Marie," & vbCrLf & vbCrLf & "Dans le fichier : " & ThisWorkbook.FullName & vbCrLf & "Clár na cealla agus été modifiée :" & xRg.Address(Bréagach, Bréagach) & vbCrLf & vbCrLf & vbCrLf & "Cordialement"
Le xMailItem
.To = "x.xxxxxx@xxxx.fr"
.Subject = "Données modifiées" & ThisWorkbook.Name
.Comhlacht = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Dráma
Deireadh Le
Socraigh xRgSel = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic
Socraigh xMailItem = Ní dhéanfaidh aon ní
Deireadh Má
Earráid 1:
gChangeRange=""
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom an ríomhphost a sheoladh chuig 5 duine. Cén rianaitheoir a úsáidtear idir gach seoladh ríomhphoist?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Joe,
Bain úsáid as leathstad chun na seoltaí ríomhphoist a scaradh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo ceist eile. Má athraíonn cill amháin, seolann sé ríomhphost. má athraíonn 3 chealla, seolann sé 3 ríomhphost. Conas a stopann tú é seo ionas nach seolann sé ach 1 ríomhphost nuair a bhíonn na hathruithe déanta?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Joe,
Ag cur san áireamh gur shonraigh tú an raon mar "A2:E11" sa chód. Conas is féidir liom a fhíorú nuair a bheidh na hathruithe iomlána déanta?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL