user999

¦^´_ 10# GBKEE


    ÁÂÁ±z,³o¤wÀ°§U§Ú«Ü¦h,   
¥u¬O,¬O§_¿ï ListBox1 «á ­Y­n¨ú®ø, ¥u¯à¿é0ªí¥Ü,µLªk«ì´_¥¼¿ïª¬ºA§a!
¯u¸r¼}±z­Ìªº¥\¤O,
«Ü·Q½Ð±Ð±z­Ì­n¦p¦ó½m¥\(§ä®Ñ?),§Ú¨Ó¤é°ÝÃD¤~¤Ö¤@ÂI,¤é«á¤~¦³¯à¤O¦^õX¤@¤U§O¤H,
ÁÂÁÂ!

GBKEE

¦^´_ 11# user999
ListBox1 «á ­Y­n¨ú®ø, ¥u¯à¿é0ªí¥Ü,µLªk«ì´_¥¼¿ïª¬ºA§a!
­×§ï¦p¤U

1. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     Dim ListText As Integer, i As Integer
   
3.     i = ListBox1.ListIndex
   
4.     ListText = Val(ListBox1.List(i, 1))
   
5.     ListText = Application.InputBox("½Ð¿é¤J¼Æ¦r : ", ListBox1.List(i), ListText, Type:=1)
   
6.     If ListText >= 0 Then
   
7.         If ListText > 0 Then ListBox1.List(i, 1) = ListText    '>0 ¿é¤J¼Æ­È
   
8.         If ListText = 0 Then ListBox1.List(i, 1) = ""          '=0 ²M°£¤º®e
   
9.     End If
   
10.     Ar(ComboBox2.ListIndex) = Application.Transpose(Application.Transpose(ListBox1.List))
    
11.                                           '«~§O°}¦Cªº¯Á¤Þ¤§°}¦C = ListBox1
    
12.     ITEM(ComboBox1.ListIndex) = Ar        '©±§O°}¦Cªº¯Á¤Þ¤§°}¦C = «~§O°}¦C
    
13.     Åã¥Ü­p¼Æ
    
14. End Sub

½Æ»s¥N½X

user999

¦^´_ 12# GBKEE


    ÁÂÁ±zªº¨ó§U!