c_c_lai

¦^´_ 5# stillfish00
·P¿E¡A²×©ó¤S¾Ç¨ì¦p¦ó³]©w Validation ¤F¡A
¦A¦¸ÁÂÁ§A¡I

stillfish00

¦^´_ 4# c_c_lai
§A¥i¥H±q  ¸ê®Æ>¸ê®ÆÅçÃÒ>¥h³]©wÀx¦s®æ¤º²M³æ¡A¦A¿ï¨Ó·½¡C
VBA¥i°Ñ¦Ò Validation.Add ¤èªk¡C

1.   With Sheets("¤u§@ªí2").[A2:A10].Validation
   
2.     .Delete
   
3.     .Add Type:=xlValidateList, Formula1:="=¤u§@ªí1!$A$3:$A$20"
   
4.   End With

½Æ»s¥N½X

c_c_lai

¦^´_ 3# stillfish00
¶¶±a½Ð±Ð¤@­Ó°ÝÃD¡G
(°²³]·s¼W¤@­Ó Excel ÀÉ®×)
¦b "¤u§@ªí2" A Äæ¦ì¤¤¦p¦ó¥h³]©w ActiveCell.Validation.Formula1 ¹ïÀ³¤U©Ô¦¡ List ªº«ü©wÄæ¦ì­È¡A
Ä´¦p¡G   "=¤u§@ªí1!$A$3:$A$20"      (§Y±q "¤u§@ªí2" A2:A10 ³£¯à¦Û°Ê¥h¹ïÀ³ "¤u§@ªí1" ªº A3:A20)
ÁÂÁ§A¡I
(¤£¦n·N«ä¡A§Ú¹ï³o¤è­±ªºÀ³¥Î±q¨SIJºN¹L  -  ¤í¾Ç)

stillfish00

1. Private Sub ComboBox1_Change()
   
2.   Application.EnableEvents = False
   
3.   
   
4.   ComboBox1.Visible = False
   
5.   Range(ComboBox1.LinkedCell).Offset(, 2).Select
   
6.   
   
7.   Application.EnableEvents = True
   
8. End Sub

½Æ»s¥N½X

¦^´_ 1# av8d

av8d

¦^´_ 1# av8d


    ©Î¬O»¡§ï¦¨~·í¼Æ¶q¿é¤J«á«ö¤UEnter«á~¦Û°Ê¸õ¨ì³W®æ¦WºÙ

¨Ò¦p¡GC2¿é¤J¼Æ¦r«á«ö¤UEnter«á~¦Û°Ê¸õ¨ìA2