E-posti teel Exceli töövihik - Exceli näpunäited

Lang L: none (table-of-contents)

Täname Katherine'i, kes saatis selle nädala Exceli näpunäite kohta küsimuse:

Tahan paigutada Exceli töölehele vorminupu, millele klõpsates saadetakse sama Exceli tööleht kellelegi e-kirjaga.

Kogu raamatu saatmiseks aadressile [email protected] kindla teemareaga kasutaksite seda Exceli makrot.

Sub SendIt() Application.Dialogs(xlDialogSendMail).Show arg1:="[email protected]", _ arg2:="This goes in the subject line" End Sub

Seal on tööriistariba ikoon, mis võimaldab teil lisada käsunupu. Olemasolevale tööriistaribale lisamiseks toimige järgmiselt.

  • Vaade> Tööriistaribad> Kohanda
  • Klõpsake vahekaarti käsud
  • Kerige väljal Kategooria juhtimistööriistade juurde
  • Kerige käsuväljas käsunupuni
  • Klõpsake käsunuppu, lohistage see üles ja kukutage see olemasolevale tööriistaribale
  • Loobu dialoogist Kohanda, vajutades nuppu Sule

Nüüd, kui teil on käsunupu ikoon: klõpsake ikooni. Nupu loomiseks lohistage töölehte. Tehke see nii suureks või väikeseks kui soovite. Excel palub teil määrata nupule makro. Valige SendIt. Klõpsake ja lohistage nupul sõna Nupp 1 esiletõstmiseks. Tippige midagi sellist nagu "Saada see fail meiliga". Klõpsake väljaspool nuppu ja olete valmis minema. Kui peate kunagi sellele nupule lisatud makro uuesti määrama, paremklõpsake nuppu ja valige määrake makro.

Mis siis, kui teil on suur loend teabest, mida soovite levitada mitmele kasutajale, kuid soovite, et iga kasutaja näeks ainult oma teavet? Allpool on veidi keerulisem makro, mis seda teeb. Paremal on kolme piirkonna müüginäidiste loend.

Enne makro kirjutamist seadistage töövihik järgmiselt:

  • Andmete töölehe kopeerimiseks klõpsake hiire parema nupuga andmete vahekaarti, valige käsk "teisalda või kopeeri", märkige ruut "koopia loomine", OK. Nimetage see uus tööleht ümber "Aruanne". Lehe saate ümber nimetada, klõpsates vahekaardil hiire parema nupuga, valides "ümbernimetamine" ja tippides seejärel aruande.
  • Kustutage vahekaardil aruanne kõik andmeread. Hoidke ainult pealkirjad ja pealkirjad.
  • Sisestage uus tööleht nende veergudega: Piirkond, Saaja. Sellele töölehele sisestage iga piirkonna nimi ja kasutaja, kes aruande peaks saama. Nimetage see tööleht ümber nimeks "Levitamine".

Siin on makro. Ristid, mis algavad apostroofidega ('), on kommentaarid, mis on loodud voolu jälgimiseks.

Public Sub SendItAll() ' Clear out any old data on Report Sheets("Report").Select Range("A1").CurrentRegion.ClearContents ' Sort data by region Sheets("Data").Select Range("A1").CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Header:=xlYes ' Process each record on Distribution Sheets("Distribution").Select FinalRow = Range("A15000").End(xlUp).Row For i = 2 To FinalRow Sheets("Distribution").Select RegionToGet = Range("A" & i).Value Recipient = Range("B" & i).Value ' Clear out any old data on Report Sheets("Report").Select Range("A1").CurrentRegion.ClearContents ' Get records from Data Sheets("Data").Select Range("A1").CurrentRegion.Select ' Turn on AutoFilter, if it is not on If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter ' Filter the data to just this region Selection.AutoFilter Field:=1, Criteria1:=RegionToGet ' Select only the visible cells and copy to Report Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Destination:=Sheets("Report").Range("A1") ' Turn off the Autofilter Selection.AutoFilter ' Copy the Report sheet to a new book and e-mail Sheets("Report").Copy Application.Dialogs(xlDialogSendMail).Show _ arg1:=Recipient, _ arg2:="Report for " & RegionToGet ActiveWorkbook.Close SaveChanges:=False Next i End Sub

Huvitavad Artiklid...