- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 19# dafa - Private Sub UserForm_Initialize()
- With ListBox1
- .MultiSelect = fmMultiSelectMulti '=> 1 : ListBox1Äݩʳ]©w¥i½Æ¿ï
- ' fmMultiSelectSingle 0 ¥u¯à¿ï¨ú¤@Ó±M®× ( ¹w³] )¡C
- ' fmMultiSelectSimple 1 «ö¤UªÅ¥ÕÁä©Î«ö¤U·Æ¹«Áä¡A¥i¥H¿ï¨ú¡B¨ú®ø¿ï¨ú²M³æ¤¤ªº±M®×¡C
- ' fmMultiSelectExtended 2 «ö¤U SHIFT ¨Ã«ö¤U·Æ¹«Áä¡A©Î«ö¤U SHIFT ¨Ã«ö¤U¤@Ó¤è¦VÁä¡A¥i¿ï¨ú¤@Ó½d³ò¤ºªº©Ò¦³±M®×¡C«ö¤U CTRL ¨Ã«ö¤U·Æ¹«Áä¡A¥i¿ï¨ú©Î¨ú®ø¿ï¨ú¤@Ó±M®×¡C
- .Visible = False
- .ColumnCount = 4 '«ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ¡C
- .ColumnWidths = "370,40,40,40" '«ü©w¦h¦æ¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ô¤¤ªº¦U¦æ¼e«×¡C
- End With
- End Sub
- Private Sub ListBox1_Change()
- Dim xlString As String, AA(), xi As Integer
- With ListBox1
- For xi = 0 To .ListCount - 1
- If .Selected(xi) = True Then
- AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1) '°}¦C¤¤©â¥X«ü©wªº¤¸¯À°}¦C(³o¸Ì¬O¤@ºû°}¦C)
- xlString = IIf(xlString = "", "[" & Join(AA, "] ; [") & "]", xlString & Chr(10) & "[" & Join(AA, "] ; [") & "]")
- End If
- Next
- End With
- Label2.Caption = xlString
- End Sub
½Æ»s¥N½X |
|