PKKO

¤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