När du skapar användarformulär i Excel VBA, du kan använda Kontrollerar insamling att enkelt gå igenom kontroller och ställa in en egenskap för varje kontroll till ett specifikt värde.
Användarformen vi ska skapa ser ut så här:
För att skapa denna användarform, utför följande steg:
1. Öppna Visual Basic Editor. Om Project Explorer inte syns, klicka på View, Project Explorer.
2. Klicka på Infoga, användarform. Om Verktygslådan inte visas automatiskt klickar du på Visa, Verktygslåda. Din skärm ska konfigureras enligt nedan.
3. Lägg till etiketten, textrutor (först överst, den andra under den första och så vidare) och kommandoknappen. När detta har slutförts bör resultatet överensstämma med bilden av användarformen som visades tidigare. Skapa till exempel en textruta kontroll genom att klicka på TextBox från verktygslådan. Därefter kan du dra en textruta på användarformuläret.
4. För att ändra bildtexten för användarform, etikett och kommandoknapp, klicka på Visa, Egenskapsfönster och klicka på varje kontroll.
5. För att visa användarformuläret, placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrad:
Privat underkommandoButton1_Click ()
UserForm1.Show vbModeless
Avsluta Sub
Förklaring: genom att lägga till vbModeless kan du använda användarformuläret och arbeta i ditt kalkylblad samtidigt.
Vi har nu skapat den första delen av Userform. Även om det ser snyggt ut, kommer inget att hända ännu när vi klickar på kommandoknappen på användarformuläret.
6. Öppna Visual Basic Editor.
7. Dubbelklicka på UserForm1 i Project Explorer.
8. Dubbelklicka på kommandoknappen.
9. Lägg till följande kodrader:
Privat underkommandoButton1_Click ()
Dim i As Integer
För i = 1 till 10
Controls ("TextBox" & i) .Value = Celler (i + 1, 1) .Value
Nästa i
Avsluta Sub
Förklaring: Med bara några rader kod kan vi fylla i textrutorna med telefonnummer från arket. Vi använde operatorn & för att sammanfoga (sammanfoga) elementen. Dessa kodrader fungerar eftersom vi inte ändrade namnen på textrutans kontroller (TextBox1, TextBox2, TextBox3, etc). Om du vill ändra namnen på kontrollerna klickar du på Visa, fönstret Egenskaper och klickar på varje kontroll.
Resultat när du klickar på kommandoknappen på arket:
