ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±ÐÃö©ólistbox¸ê®Æ½Æ¿ï,¹ïÀ³¸ê®ÆÅã¥Üªº°ÝÃD

½Ð±ÐÃö©ó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.jpg

test.zip (9.15 KB)

¥»©«³Ì«á¥Ñ 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,ÁÂÁÂ

TOP

¦^´_ 2# hollou
  1. Private Sub ListBox1_Change()
  2. With ListBox1
  3. Sheet1.[D1] = ""
  4. For i = 0 To .ListCount - 1
  5.   ar = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤C", "¤K", "¤E", "¹s")
  6.   If .Selected(i) = True Then Sheet1.[D1] = IIf(Sheet1.[D1] = "", ar(i), Sheet1.[D1] & "," & ar(i))
  7. Next
  8. End With
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# hollou
¦^´_ 3# Hsieh
Hsieh ¤j¤j¡A¤£¦n·N«äµyµy¥[ÂI®Æ¡G
  1. Private Sub ListBox1_Change()
  2.     With ListBox1
  3.         Sheet1.[D1:E1] = ""

  4.         For i = 0 To .ListCount - 1
  5.               ar = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤C", "¤K", "¤E", "¹s")
  6.              If .Selected(i) = True Then
  7.                  Sheet1.[D1] = IIf(Sheet1.[D1] = "", i + 1, Sheet1.[D1] & "," & i + 1)
  8.                  Sheet1.[E1] = IIf(Sheet1.[E1] = "", ar(i), Sheet1.[E1] & "," & ar(i))
  9.             End If
  10.         Next
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD