½Ð±ÐÃö©ólistbox¸ê®Æ½Æ¿ï,¹ïÀ³¸ê®ÆÅã¥Üªº°ÝÃD
- ©«¤l
- 5
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- X64
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-1-31
- ³Ì«áµn¿ý
- 2020-8-4
|
½Ð±ÐÃö©ólistbox¸ê®Æ½Æ¿ï,¹ïÀ³¸ê®ÆÅã¥Üªº°ÝÃD
¥»©«³Ì«á¥Ñ hollou ©ó 2016-4-8 07:28 ½s¿è
¤p§Ì¤£¤~,½Ð±Ð¤@¤U,Áٽаª¤â¨ó§U¸Ñµª,ÁÂÁÂ!
¤w³]©w¦n½Æ¿ïªºlistbox, ·í§Ú°õ¦æ½Æ¿ï«ö¶s,¿ï¾Ü135,©óD1Åã¥Ü
n¦p¦ó¦P³¡©óE1Åã¥Ü"³ü |
-
-
test.jpg
(25.14 KB)
-
-
test.zip
(9.15 KB)
|
|
|
|
|
|
- ©«¤l
- 5
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- X64
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-1-31
- ³Ì«áµn¿ý
- 2020-8-4
|
¥»©«³Ì«á¥Ñ hollou ©ó 2016-4-8 07:41 ½s¿è
ì¤å¦r³Q¬å±¼¤F,¦b¦¹¸É¥R¤@¤U,
n¦p¦ó¦P³¡©óE1Åã¥Ü"¤@¤T¤"(¤¤¤å¦r¤j¼g)
¥t¥~,listbox½Æ¿ïªº¸ê®Æ¥i¥H¦Û°Ê¥[¤J","³r¸¹°Ï¹j¶Ü?
¥ç§Yd1Åã¥Ü1,3,5 E1¦P¨BÅã¥Ü"¤@,¤T,¤"(¤¤¤å¦r¤j¼g)
¦³½Ð°ª¤â¨ó§U,ÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 246
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 2# hollou - Private Sub ListBox1_Change()
- With ListBox1
- Sheet1.[D1] = ""
- For i = 0 To .ListCount - 1
- ar = Array("¤@", "¤G", "¤T", "¥|", "¤", "¤»", "¤C", "¤K", "¤E", "¹s")
- If .Selected(i) = True Then Sheet1.[D1] = IIf(Sheet1.[D1] = "", ar(i), Sheet1.[D1] & "," & ar(i))
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 2# hollou
¦^´_ 3# Hsieh
Hsieh ¤j¤j¡A¤£¦n·N«äµyµy¥[ÂI®Æ¡G- Private Sub ListBox1_Change()
- With ListBox1
- Sheet1.[D1:E1] = ""
- For i = 0 To .ListCount - 1
- ar = Array("¤@", "¤G", "¤T", "¥|", "¤", "¤»", "¤C", "¤K", "¤E", "¹s")
- If .Selected(i) = True Then
- Sheet1.[D1] = IIf(Sheet1.[D1] = "", i + 1, Sheet1.[D1] & "," & i + 1)
- Sheet1.[E1] = IIf(Sheet1.[E1] = "", ar(i), Sheet1.[E1] & "," & ar(i))
- End If
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|