¦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
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# hbjang - Private Sub UserForm_Initialize()
- Ar = Array("A", "B")
- For i = 0 To UBound(Ar)
- ComboBox1.AddItem Ar(i)
- Next i
- For i = 1 To 2
- Controls("ComboBox" & i) = ""
- Next i
- End Sub
- Private Sub ComboBox1_Change()
- If ComboBox1 <> "" Then
- Select Case ComboBox1
- Case "A"
- Br = Array("A1", "A2", "A3")
- Case "B"
- Br = Array("B1", "B2", "B3")
- End Select
- With Controls("ComboBox2")
- .Clear
- .Value = ""
- End With
- For i = 0 To UBound(Br)
- ComboBox2.AddItem Br(i)
- Next i
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-24
|
¦^´_ 1# hbjang - Private Sub ComboBox1_Change()
- Set d = CreateObject("Scripting.Dictionary")
- d(1) = Array("¥Ò", "¤A", "¤þ", "¤B", "¥³", "¤v", "©°", "¨¯", "¤Ð", "¬Ñ")
- d(2) = Array("ª÷", "¤ì", "¤ô", "¤õ", "¤g")
- With ComboBox2
- .Clear
- s = CInt(ComboBox1)
- .List = d(s)
- End With
- End Sub
- Private Sub UserForm_Initialize()
- With ComboBox1
- .List = Array(1, 2)
- End With
- End Sub
½Æ»s¥N½X
|
|
¾Ç®üµL²P_¤£®¢¤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Á¦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 |
|
|
|
|
|
|