Hvordan sette inn et bilde Dialog i Excel 2007 VBA
Microsoft Excel 2007 er mer enn rader og kolonner med data. Den kraftige verktøy inkluderer formler, funksjoner, diagrammer, pivottabeller og filtrering. I tillegg kommer Excel med sitt eget programmeringsspråk, Visual Basic for Applications (VBA). Når du registrerer en makro, bak kulissene, overs Excel dine tastetrykk til VBA-kode. Med Visual Basic Editor, kan du redigere innspilt kode og skrive din egen. Bruk VBA til å gi prosjektet en profesjonell kant. Lag en dialog tilpasset meteren, og deretter kle den opp med bildet av ditt valg.
Bruksanvisning
Opprett en bruker Form
Åpne Visual Basic Editor. Klikk på "Visual Basic" i "Code" delen av "Utvikler" fanen.
2 Velg Vis> Prosjekt Explorer fra menyen, og velg Vis> Egenskaper.
3 Velg Sett inn> Userform fra menyen. Du vil se en tom bruker skjema og kontroller Toolbox.
4 Legge til en tekstboks til skjemaet. I kontrollverktøykassen, holde musepekeren over ikonene for å finne tekstboksen, som ser ut som "ab". Klikk på ikonet. Klikk på bruker skjema for å sette tekstboksen på skjemaet, plassere den på rett til å forlate rommet for en etikett, og forlater rommet over og under.
5 Legg en etikett til skjemaet. Finn "Label" i verktøykassen (det ser ut som en stor A). Ved bruk av samme metode, plasserer en etikett til venstre for tekstboksen.
6 Legg til to kommandoknapper. Finn "Command" i verktøykassen. Bruk samme fremgangsmåte for å plassere to kommandoknappene ved siden av hverandre på bunnen av skjemaet.
7 Klikk på etiketten på brukerskjemaet. I vinduet Egenskaper ved siden av "Caption" endring "Label1" til "Enter Name".
8 Klikk på tekstboksen på brukerens form. I vinduet Egenskaper ved siden av "(navn)," endre "TextBox1" til "Name_txt."
9 Klikk på den første kommandoknappen på brukerens form. I vinduet Egenskaper ved siden av "(navn)," endre "CommandButton1" til "OK_btn." Ved siden av "Caption" endring "CommandButton1" til "OK".
10 Klikk på andre kommandoknappen på brukerens form. I vinduet Egenskaper ved siden av "(navn)," endre "CommandButton2" til "Cancel_btn." Ved siden av "Caption" endring "CommandButton2" til "Avbryt".
11 Legg til et bilde i brukerskjemaet. I Controls Toolbox, klikk på bildet kontroll, noe som ser ut som to fjell og solen. Klikk brukeren skjemaet for å plassere bildeboksen på skjemaet.
12 Klikk på bildekontroll du plassert på brukerens form. I vinduet Egenskaper ved siden av "Picture", klikk de tre prikker (...) til høyre. Bla til et bilde som er lagret på datamaskinen, for eksempel C: \ Users \ Public \ Bilder \ Sample bilder \ Garden.jpg for en visning av oransje blomster. Dobbeltklikk det valgte bildet.
1. 3 Flytte og endre størrelsen på kontrollene på brukerens skjemaet til du er fornøyd med designet.
Legg til kode og kjøre rutinen
Dobbeltklikk på "OK" -knappen på brukerens skjema for å åpne en kode vindu. Du vil se start- og sluttregnskapet for subrutinen.
15 Legg kode mellom "Private Sub" og "End Sub" uttalelser slik at det lyder som følger:
Private Sub OK_btn_Click ()
Dim LastRow As Long
LastRow = Regneark ( "Ark1"). Range ( "A65536"). End (xlUp) .Row + 1
Celler (LastRow, 1) .Value = Name_txt
End Sub
Denne koden setter navnet fra tekstboksen i celle A1 på Excel-regneark. Hver gang brukeren går inn et nytt navn og klikk "OK", det vil bli lagt under.
16 Dobbeltklikk UserForm1 I prosjektvinduet. Dobbeltklikk på avbryt-knapp. I koden vinduet, legge til kode mellom "Private Sub" og "End Sub", slik at den rutinemessige lyder som følger:
Private Sub Cancel_btn_Click ()
UserForm1.Hide
End Sub
Denne koden skjuler dialogboksen når brukeren klikker "Avbryt".
17 Utføre rutinen. Velg Kjør> Kjør Sub / Userform fra menyen. Du kommer tilbake til Excel og se dialogboksen, inkludert valgte bildet.
18 Skriv inn et navn i tekstboksen og klikk "OK." Du vil se navnet i celle A1. Skriv inn et annet navn, og klikk "OK." Du vil se navnet i celle A2.
19 Klikk på "Avbryt" for å skjule dialogboksen.
Hint
- Hvis du ikke ser kategorien Utvikler, klikker du på "Microsoft Office" -knappen. Klikk på "Alternativer for Excel" på høyre side av rullegardinmenyen. Velg "Popular" i venstre ruten på. På høyre side, under "alternativer for å arbeide med Excel," sjekk boksen ved siden av "Show Utvikler fanen på båndet." Klikk på "OK".
- Hvis VBA-kode ikke kjører, justere sikkerhetsinnstillingene i klareringssenteret. Klikk "Macro Security" i "Code" delen av "Utvikler" fanen.