07. august 2012 - 12:44Der er
5 kommentarer og 1 løsning
Fre en CommandButton og vider til en ComboBox
Hej Jeg vil lave et userform hvor man f.eks har 4 CommandButton hvor der står X,XX,XXX og IV på dem. Under dem skal der være 2 ComboBox. Missionen er at man skal kunne trykke på f.eks. X og den vil komme frem i ComboBoxen1, når jeg så trykker på XX skal den kunne se om combobox1 er fri, hvis ikke rykker den over på ComboBox2. Hver CommandButten skal skrive det der står på den over i ComboBoxen men samtidig se om den er fri og hvis ikke rykke til næste ComboBox. Håber det er til at forstå. God fornøjelse.
Private Sub CommandButton1_Click() If Len(ComboBox1.Text) = 0 Then ComboBox1.Text = CommandButton1.Caption ElseIf Len(ComboBox2.Text) = 0 Then ComboBox2.Text = CommandButton1.Caption End If End Sub
Evt. sådan her, det gør det lidt nemmere at styre med 4 knapper
Private Sub CommandButton1_Click() FindLedigCombobox CommandButton1 End Sub
Sub FindLedigCombobox(CommandButton As CommandButton) If Len(ComboBox1.Text) = 0 Then ComboBox1.Text = CommandButton.Caption ElseIf Len(ComboBox2.Text) = 0 Then ComboBox2.Text = CommandButton.Caption End If End Sub
Jeg bliver nok nød til at uddybe mit behov får den gør ikke som jeg vil have. Men tak for hjælpen med det første.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
