[µo°Ý]¸ê®ÆÅçÃÒ¤¤²M³æªº¨Ó·½¡A¦bexcel VBA ¤¤¡An¦p¦óµ¹È¡H
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
[µo°Ý]¸ê®ÆÅçÃÒ¤¤²M³æªº¨Ó·½¡A¦bexcel VBA ¤¤¡An¦p¦óµ¹È¡H
½Ð°Ý¡A¸ê®ÆÅçÃÒ¤¤²M³æªº[¨Ó·½]¡A¦bexcel VBA ¤¤¡An¦p¦óµ¹È¡H |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¥»©«³Ì«á¥Ñ abbay262 ©ó 2016-4-22 15:22 ½s¿è
ÁÂÁ¦^ÂСA¤p§Ìgoogle«á¡A¨Ï¥ÎÅçÃÒ²M³æ
With Range(Cells(9 , 4), Cells(9, 15)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 , 19)
End With
¥H¤W½Ð°Ñ¦Ò |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- MaC OS 10.10.5
- ³nÅ骩¥»
- office 2011
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-26
- ³Ì«áµn¿ý
- 2017-7-12
|
¦buserform´¡¤J¥N½X,
ªí³æ¶}°_®É¤U©Ô¦¡¿ï³æ¸ü¤J¹w³]È
Private Sub UserForm_Activate()
¤U©Ô¦¡«ö¶s¦WºÙ.AddItem "AAAA"
¤U©Ô¦¡«ö¶s¦WºÙ.AddItem "BBBB"
¤U©Ô¦¡«ö¶s¦WºÙ.AddItem "CCCC"
End sub |
|
Steven
|
|
|
|
|