- ©«¤l
- 47
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 82
- ÂI¦W
- 0
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-7-4
- ³Ì«áµn¿ý
- 2021-9-4
|
¦^´_ 1# kkooo15
§Ú¦³¤@ÓÃþ¦üªºµ{¦¡¤ù¬q
¨Ï¥ÎªÌÂùÀ»ListBox1¤¤ªº¸ê®Æ«á (·íµM§A¤]¥i¥H¿ï¾Ü¥Î³æÀ»)
¥Îfor°j°é¬d¥Xþ¤@µ§¸ê®Æ³QÂIÀ» µM«áListBox1.List(i) À³¸Ó´N¥i¥H®³¨ì¸ê®Æ- Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- For i = 0 To ListBox1.ListCount - 1
- If ListBox1.Selected(i) = True Then
- TextBox1.Text = ListBox1.List(i)
- ListBox1.Visible = False
- End If
- Next i
- End Sub
½Æ»s¥N½X |
|