27. august 2006 - 21:49Der er
6 kommentarer og 1 løsning
Vb aktivt opslag
Hey jeg kunne godt tænke mig et aktivt opslag i en userform
i textbox1 hvis man prøver at skrive i den skal en anden komme frem og være den aktive textbox."textbox2"
Jeg har på et ark i A:A en masse data som textbox2 skal søge fra. Hvis jeg skriver "a" om det er store eller lille "A" skal den ikke se på. Men bare vise det første der passer på teksten i textbox2 det skal den vise det i textbox1, Hvis jeg så skriver Al og Alarm er det eneste på det ark skal den vise det. hvis man trykker endet skal den bevare det som står i textbox1 ellers hvis man skriver vidre i textbox2 og den ikke kan finde noget på den tekst man skriver skal den vise det man skriver. En snedig ord bog som på mobiler.
Private Sub TextBox1_Enter() TextBox2.SetFocus End Sub
Private Sub TextBox2_Change() Dim I As Long If Len(TextBox2.Text) = 0 Then TextBox1.Text = "": Exit Sub For I = 1 To UBound(Data) If UCase(Left(Data(I, 1), Len(TextBox2))) = UCase(TextBox2.Text) Then TextBox1.Text = Data(I, 1) Exit Sub End If Next TextBox1.Text = TextBox2.Text End Sub
Private Sub UserForm_Initialize() Dim RW As Long RW = Sheets("Ark1").Range("A65536").End(xlUp).Offset(1, 0).Row Data = Sheets("Ark1").Range("A1:A" & RW) End Sub
Kan det laves så textbox1 er på userform1 og textbox2 er på userform2 hvis man mærker textbox1 med mus el. tab skan den vise userform2 og gøre som nu. plus textbox2 enter skriv textbox værdien til "B4" og luk Userform2!? :S
Denne her skulle kunne gøre det. men gider ikke:S som jeg tænker. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox2.Text = TextBox2.Text & Chr("0x6C") ActiveSheet.Range("B4") = UserForm1.TextBox1.Value UserForm1.TextBox2 = False Unload UserForm1 End Sub
Sorry sådan her. jeg prøver at få den til at lave den til først at køre når man har trykket "Enter" Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox2.Text = TextBox2.Text & Chr("0x6C") ActiveSheet.Range("B4") = UserForm1.TextBox1.Value UserForm1.TextBox2 = False Unload UserForm1 End Sub
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.
