Excel-gebruikersformulieren - Excel-tips

Inhoudsopgave

Excel 97 introduceerde nieuwe gebruikersformulieren. Leer me in het Engels hoe ik een keuzelijst moet maken en gebruiken.

MrExcel heeft onlangs een aangepaste applicatie voltooid voor een van onze lezers. In deze Excel-app zou de gebruiker 150 gegevenspunten invoeren voor een specifiek onderdeelnummer op het blad.

1. Met een klik op de knop wordt dit onderdeelnummer en de bijbehorende gegevenswaarden vastgelegd in een database op Sheet2. Dit was prima, maar toen hadden we een manier nodig waarop de gebruiker een record van blad 2 kon oproepen, zodat ze de vermeldingen konden bekijken. Ik wilde de gebruiker toestaan een formulier te openen met een vervolgkeuzelijst met alle items op het blad

2. De gebruiker kon er doorheen scrollen, een item kiezen, en dan zou ik die waarden van blad 2 naar blad 1 halen.

Zoals velen van jullie ben ik begonnen met het schrijven van Excel-macro's in Excel 5.0. Deze hele macro-editor in Excel 97 is een beetje intimiderend. Voor de tip van deze week laat ik je stap voor stap zien hoe je de keuzelijst voor dit project kunt maken. De focus deze week ligt alleen op de combobox. De doelgroep is iemand die de basis van Excel-macro's kent, maar nog nooit een formulier heeft gebruikt om met een macro te communiceren.

Eerste stap: ik veranderde de bestaande macro's zodat wanneer ze een record aan blad2 toevoegden, de macro het bereik met de onderdeelnummers de naam "PartList" zou geven. Er is een kop in cel A1, met het eerste item in cel A2. Ik heb de End-opdracht gebruikt om de laatste rij te vinden:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

Tweede stap: lay-out van het keuzelijstformulier. Volg deze stappen:

Start de Visual Basic Editor door op alt-F11 te drukken
Selecteer in het menu Invoegen> Gebruikersformulier. De editor zou u een leeg UserForm1 moeten geven.
Als je het Properties-UserForm1 venster in de linker benedenhoek niet ziet, klik dan op het "Properties Window" icoon - het ziet eruit als een hand met een vinger die naar een wit blad wijst.
Het 4e item in het eigenschappenvenster is Caption. Op dit moment is het bijschrift UserForm1. Klik op het vak rechts van Bijschrift in het venster Eigenschappen en typ een nieuwe titel voor het formulier. Ik noemde de mijne "Selecteer een onderdeelnummer om te beoordelen". Ik heb alle andere eigenschappen voor het formulier in hun standaardstatus gelaten.
Een keuzelijst maken met behulp van het gebruikersformulier
Klik nogmaals ergens in het gebruikersformulier en de Controls Toolbox zal verschijnen.
Kies in de bedieningsset de letter A. Klik en sleep om een labelvak bovenaan het formulier te maken. Het heeft standaard een bijschrift van Label1. Klik opnieuw in het tekstvak en u kunt het bijschrift bewerken. Geef hier instructies aan de gebruiker: "Kies een item uit de onderstaande lijst en klik op OK om de waarden te bekijken".
Klik op het formulier, maar buiten het labelvak en je ziet de controletoolbox weer. Het 4e item in de bovenste rij is een combobox. Klik hierop en sleep in het gebruikersformulier om een combo box te maken. Dit is waar de lijst met onderdeelnummers verschijnt. De standaardnaam is ComboBox1.
Combobox-eigenschappen
Het eigenschappenvenster toont u nu de eigenschappen voor ComboBox1. Blader door de eigenschappen totdat u de eigenschap RowSource ziet. Typ = Sheet2! PartList voor de eigenschap RowSource
U kunt nu een snelle test uitvoeren om te controleren of alles naar behoren werkt. Klik op de titelbalk van uw gebruikersformulier om het volledige formulier te selecteren. Klik nu op het pictogram "afspelen" (het lijkt op de afspeelknop op uw videorecorder). U keert terug naar uw Excel-werkmap en heeft ons eenvoudige gebruikersformulier. Als u op de vervolgkeuzelijst met onderdeelnummers klikt, ziet u een lijst met geldige onderdeelnummers. Kies er een, en deze blijft in de keuzelijst. Tot nu toe niet al te spannend. Klik op de kleine X in de rechterbovenhoek om het vak te sluiten.
Ga terug naar de Visual Basic-editor. Klik op het gebruikersformulier om de Control Toolbox weer te geven. Klik op de CommandButton-tool en teken een knop. Wijzig het bijschrift in OK met behulp van het venster Eigenschappen - CommandButton1.
Teken een tweede knop en noem deze Annuleren.
We zijn bijna klaar. Laten we een klein stukje code aan de knop Annuleren koppelen. Klik met de rechtermuisknop op de knop Annuleren en selecteer "Bekijk code". De Editor zal uw Sub- en End Sub-instructies opstellen. Typ tussen hen een regel code:
```
UserForm1.Hide
```
Ja, dat is alles wat er is om code aan een knop toe te wijzen. Om terug te keren naar het gebruikersformulier, dubbelklikt u op de woorden UserForm1 in het projectvenster. (Kunt u het projectvenster niet zien? Klik op het pictogram Projectverkenner, net links van het pictogram Eigenschappen.)
Om gebruikersformulier1 af te maken, doen we iets met de knop OK. Wanneer de gebruiker op OK klikt, wil ik dat de waarde uit de keuzelijst in cel A2 van blad1 verschijnt en vervolgens wil ik een macro starten die ik eerder had geschreven, genaamd ReviewItem. Klik met de rechtermuisknop op de knop OK en selecteer Bekijk code. Voer deze code in voor Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```