Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Obj As Object
Set Obj = VBA.UserForms.Add("UserForm" & CStr(ListBox1.ListIndex + 2))
Obj.Show
Unload Obj
End Sub
ListBox selection that can be clicked to open another UserForm
문제
1 of the UserForms(UserForm1) has a ListBox(ListBox1) and in this ListBox, there are 3 items, when i double click on the first item, it goes to UserForm2, when i double click on the second item, it goes to UserForm3, and when i double click on the 3 item, it goes to UserForm4.
해결책
다른 팁
These codes can be used (When any item of listbox clicked,another userform opens. The opened userform's text boxes are populated based on listbox clicked item value):
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Load UserForm2
UserForm2.TextBox1 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 0)
UserForm2.TextBox2 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 1)
UserForm2.TextBox3 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 2)
UserForm2.TextBox4 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 3)
UserForm2.TextBox5 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 4)
UserForm2.TextBox6 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 5)
UserForm2.TextBox7 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 6)
UserForm2.TextBox8 = VBA.Format(UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 7), "#,##.00")
UserForm2.TextBox9 = VBA.Format(UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 8), "dd.mm.yyyy")
UserForm2.TextBox10 = UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 0)
Unload UserForm1
UserForm2.Show
End Sub
제휴하지 않습니다 StackOverflow