¥»©«³Ì«á¥Ñ wind6424 ©ó 2011-10-25 16:42 ½s¿è
½Ð°Ý¦U¦ì¤j¤j:
§Ú¦Ûq¤F¤@Óªí³æ,
§Ú·Qn¦b³oÓªí³æ±Ò°Ê®É,¯à¦b¦Ûqªº®æ¤l¤º¥ý³]©w¦n²M³æ,
¦ý¬O³oÓ²M³æ¤º®e¬O·|Åܪº,
©Ò¥H§Ú¥Îµ{¦¡¨Ó¦¬´M¸ò³]©w,
ª½¦Vªºª¾¹D¦p¦ó¼g,
¦ý¬O¹Jn¾î¦Vªºªí®æ¤º®e¬°²M³æÈ®É,¤£ª¾¹Dn¦p¦ó¼g,
½Ð°Ý¤U±?????ªº³¡¥÷,§Ú§Æ±æ±qB1¶}©l¨ì"ÅܼÆ"1ªº¦ì¸m¤º®e¬°²M³æ
³on¦p¦ó¼g
Private Sub CommandButton5_Click()
Dim sh As Integer
sh = Sheet10.Range("A1").End(xlDown).Row
UserForm3.ComboBox2.List = Sheet10.Range("A1:A" & sh).Value
sh = Sheet10.Range("A1").End(xlToRight).Column
UserForm3.ComboBox3.List = Sheet10.Range(??????).Value
UserForm3.Show vbModeless
End Sub |