¦p¦ó¦b¦Û©wªí³æ¤¤«Ø¥ß¤G¶¥ªº¤U©Ô¦¡¿ï³æ
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-3-14
- ³Ì«áµn¿ý
- 2012-5-14
|
¦p¦ó¦b¦Û©wªí³æ¤¤«Ø¥ß¤G¶¥ªº¤U©Ô¦¡¿ï³æ
¦U¦ì°ª¤â,
½Ð°Ý¦p¦ó¦b¦Û©wªí³æ¤¤«Ø¥ß¤G¶¥ªº¤U©Ô¦¡¿ï³æ?
°²³]¦Û©wªí³æ¤¤,ComboBox1ªº¸ê®Æ¬OA»PB
§Ú§Æ±æ¦pªGComboBox1¿ï¾ÜA«h¦bComboBox2·|Åã¥ÜA1,A2,A3ªº¿ï¶µ
¦pªGComboBox1¿ï¾ÜB«h¦bComboBox2·|Åã¥ÜB1,B2,B3ªº¿ï¶µ
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-3-14
- ³Ì«áµn¿ý
- 2012-5-14
|
·PÁ¦U¦ì¤j¤j,°ÝÃD¤w¸g¸Ñ¨M
§Úµy·Lקï¤F¤@¤Uµ{¦¡,¦p¤U:
Private Sub UserForm_Activate()
Dim i%
i = Worksheets("Database").Range("A65536").End(xlUp).Row
UserForm1.ComboBox1.List = Worksheets("Database").Range("A3:A" & i).Value
Worksheets("Sheet1").Select
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
With Controls("ComboBox2")
.Clear
.Value = ""
End With
Select Case ComboBox1
Case "ÄåªáµP"
j = Worksheets("Database").Range("B65536").End(xlUp).Row
UserForm1.ComboBox2.List = Worksheets("Database").Range("B3:B" & j).Value
Case "ªL¤ºµP"
k = Worksheets("Database").Range("C65536").End(xlUp).Row
UserForm1.ComboBox2.List = Worksheets("Database").Range("C3:C" & k).Value
End Select
End If
End Sub |
|
|
|
|
|
|