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

[µo°Ý] Àx¦s®æ¤º­È¿ù»~¸õ¥Xĵ§i¼Ð¥Ü

[µo°Ý] Àx¦s®æ¤º­È¿ù»~¸õ¥Xĵ§i¼Ð¥Ü

½Ð°Ý¦p¦ó³]©w¦b¯S©wÀx¦s®æ¤ºªº­È¡A¤£¬O¹w³]ªº­È´N¦Û°Ê¸õ¥Xĵ§i¼Ð¥Ü¡C
¨Ò:a1¹w³]­È¤£¯à>50¡C¦p¿é¤J60¦Û°Ê¸õ¥X¦Û­qĵ§i¼Ð»y"½Ð§ó§ï¼Æ¦r"¡C

·Q¦b¤u§@ªí³]©w¦h­ÓÃþ¦ü³oºØ¡C§Æ±æ¦³¤H¯àÀ°¦£¡C

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-1-12 22:09 ½s¿è

¦^´_ 1# Open-minded
¸ê®Æ/ÅçÃÒ/¦Û­q
¤½¦¡
=A1<=50
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤p§Ì¤£¤~,¥Î¿ý»sªº¤è¦¡,¥[¥H§ó§ï«á´£¨Ñ±z§ó§Öªº¤è¦¡

Sub test()

'¥u»Ý­n§ïXªº­È§Y¥i°õ¦æ
x = "a1"
    Range(x).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & x & "<=5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub
PKKO

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD