Excel HOWTO-dest
Postitatud 03. Oktoober, 2009 by Krishnan in Arvutid , Howto
Howto: Call 1 Excel Macro teise
Kui teil on tabel, millel on mitu makrosid, siis on võimalik tugineda ühele teistest. Sa pead kasutama lauset "kõne [nimi makro nimeks]" iga kord, kui soovite eriti makro nimetada.
nt: Body of macro0 võiks sisaldada järgmine kood tugineda teiste makrode
kui x = 1
helistada macro1
else if x = 2
helistada macro2
teine
helistada macro3
endif
* Toimetaja hiljem *
See kehtib ainult Makrod ja see ei tundu olevat võimalik tugineda makrosid kasutades kõne funktsioon kasutaja määratud funktsioone.
Howto: Lisa nupud, ruudud, liitkasti sisse Excel2007
Office 2003 oli "Forms tööriistariba", mis sisaldas kõiki objekte nagu nööbid, ruudud, liitkasti jne
Office 2007, see funktsioon on viidud menüü Arendaja. Sa pead käsitsi võimaldab menüü Arendaja ribbon bar järgmiselt.
- Kliki Liiga Office logo nupp üleval vasakus nurgas
- Klõpsake Exceli suvandid nuppu Exceli suvandid dialoogiboksis
- Kliki Populaarne nimekiri vasakus servas dialoogi.
- Saate "Näita menüü Arendaja Ribbon"
- Klõpsake nuppu OK.
Kui menüü Arendaja nüüd peaks ilmuma Ribbon bar. Kui avate menüü Arendaja leiad Controls osa, mis on rippmenüü nimega Sisesta kus vorm ja ActiveX-juhtelemendid on paigutatud.
Howto: Muuda väärtused üksikute rakkude läbi makrosid
Salvestada number 3 lahtris F3, kasutage järgmist käsku kehas makro:
Range ("F3"). Value = 3
See paneks väärtus 3 lahtris F3 aktiivse töölehe aktiivse töövihiku.
Paigutada väärtus teises töövihikus kasutada järgmise käsu.
Töövihikud ("BookName"). Töölehed ("TABELINIMI"). Range ("F3"). Value = 3
. Value vara võib lugeda ka väärtuse lahtrisse.
x = Range ("F3"). Value
Kas. Value vara kasutatakse lugeda väärtuse või määrata väärtus sõltub, kummal pool võrdusmärk see pannakse.
Kuid see kehtib ainult Makrod ja mitte kasutaja määratud funktsioone. Kuigi see on võimalik lugeda väärtust kasutaja määratud funktsioon ja see ei tundu olevat võimalik määrata väärtuse lahtrisse.
) Public Function MyFunc (MacroName As String) Dim Msg, Style, pealkiri, abi, Ctxt, Response, MyString \ R \ nMsg = \ "Kas soovid jätkata? \" "Määra sõnum. \ R \ nStyle = vbYesNo + vbCritical + vbDefaultButton2 "Määrake nupud. \ R \ nTitle = \ "MsgBox näitamine \" "Määra pealkiri. \ R \ nHelp = \ "DEMO.HLP \" "Määra Help faili. \ R \ nCtxt = 1000 "määratlevad topic \ R \ n "kontekstis. \ R \ n "Display sõnum. \ R \ nResponse = MsgBox (MSG, Style, pealkiri, abi, Ctxt) \ R \ nKui Response = vbYes seejärel Kasutaja valis Jah. \ R \ n MyString = \ "Jah \" "Tehke midagi. \ R \ nElse "Kasutaja valis Ei \ R \ n MyString = \ "Ei \" "Tehke midagi. \ R \ nEnd Kui
"" Style = \ "background: # FFFFFF; padding: 2px; font-size: 10px; laius: 550px; \" ");" onmouseout = "GAL_hidepopup ();"> MsgBox "Inside MyFunc. võetud argument" & MacroName
Application.Run MacroName
End Function
Seotud ametikohta:

















































