- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-9-12
- ³Ì«áµn¿ý
- 2014-1-17
|
[µo°Ý] ¦U¦ì¥ý¶i¤j®a¦n¡A³o¦¸¦³¥t¥~ªº°ÝÃD
¦U¦ì¤j¤j¦n¡A¥H¤U¬O§Ú¨ìºô¸ô¤W§ä¨ì¨ä¥L¤H³]pªº¤U©Ô¦¡¿ï³æ
§Úª¾¹Dª©¤W¤w¸g¦³³\¦h¬ÛÃöªº°Q½×¤F¡A§Ú¤]³£¬Ý¹L¤F¡A¦ý«oÅý§Ú·d±o§ó²V¶Ã@_@
§Úªº°ÝÃD¬O¡A¦p¦ó¦bªí³æ¤¤©Ò«Ø¥ßªº¤U©Ô¦¡¿ï³æ(ComboBox)¤¤¡A¤Þ¤J²Ä¤GÓ¤u§@ªíªº¸ê®Æ¡A¨Ã¥B¥X²{¸ê®Æ¿ï¶µ¡A¿ï¾Ü§¹¦¨«á¿é¤J¦b²Ä¤@Ó¤u§@ªíªºªí®æ¤¤
ªþÀɬO³o¦ì¤j¤j©Ò³]pªº¡A¨Ã¥B¨ã¦³§Ú©ÒÁ¿ªº¥\¯à
¦ý¬O§Ú§¹¥þ¬Ý¤£À´¥L¦bµ{¦¡½X¸Ì¼g¤F¤°»ò¡A¤]¨S¦³´£¨ì¤u§@ªí2¡A«o¹F¨ì³o¼Ëªº®ÄªG
©Ò¥H·Q½Ð±Ð¦U¦ì«üÂI¤@¤U°g¬z
ÁÙ¬O§Úþ¸Ì¬Ýº|±¼¤F~
ÁÂÁ¦U¦ì¤F
Combobox ¤G¼h¤U©Ô¿ï³æ.rar (14.98 KB)
- Private Sub ComboBox1_Change()
- With UserForm1
- IT = "¼Ò¨ã½s¸¹" & .ComboBox1.Value
- .ComboBox2.RowSource = Names(IT)
- .ComboBox2.ListIndex = 0
- .CommandButton2.SetFocus
- End With
- End Sub
- Private Sub ComboBox2_Change()
- UserForm1.CommandButton2.SetFocus
- End Sub
- Private Sub CommandButton1_Click()
- r = [a65536].End(3).Row + 1
- Cells(r, 1).Value = ComboBox1.Value
- Cells(r, 2).Value = ComboBox2.Value
- End Sub
- Private Sub CommandButton2_Click()
- Unload UserForm1
- End Sub
- Private Sub UserForm_Initialize()
- With UserForm1
- .ComboBox1.RowSource = Names("¾÷¥x")
- .ComboBox1.ListIndex = 0
- .CommandButton2.SetFocus
- End With
- End Sub
½Æ»s¥N½X |
|