ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý]¸ê®ÆÅçÃÒ¤¤²M³æªº¨Ó·½¡A¦bexcel VBA ¤¤¡A­n¦p¦óµ¹­È¡H

[µo°Ý]¸ê®ÆÅçÃÒ¤¤²M³æªº¨Ó·½¡A¦bexcel VBA ¤¤¡A­n¦p¦óµ¹­È¡H

½Ð°Ý¡A¸ê®ÆÅçÃÒ¤¤²M³æªº[¨Ó·½]¡A¦bexcel VBA ¤¤¡A­n¦p¦óµ¹­È¡H

¦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

TOP

¥»©«³Ì«á¥Ñ 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½Ð°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD