EXCEL VBA nyuryokuki

エクセル
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[エクセル][EXCEL VBA nyuryokuki]


Option Explicit

' 入力規則 :
' 少数点数 範囲:最小・最大

' .Add Type:=xlValidateDecimal, Formula1:="1", Formula2:="3"

Range("A2").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator _
    :=xlBetween, Formula1:="1", Formula2:="3"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' リスト 範囲選択

' .Add Type:=xlValidateList,Formula1:="=$I$1:$I$10"

Range("A3").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=$I$1:$I$10"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' 日付  範囲:最小・最大

' .Add Type:=xlValidateDate, Formula1:="1/7/1952", Formula2:="6/29/1957"

Range("A4").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="1/7/1952", Formula2:="6/29/1957"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' 時刻 範囲:最小・最大

' .Add Type:=xlValidateTime, Formula1:="0:00", Formula2:="12:59:59"

Range("A5").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateTime, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="0:00", Formula2:="12:59:59"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' 文字列(文字の長さ) 範囲:最小・最大

' .Add Type:=xlValidateTextLength, Formula1:="0", Formula2:="10"

Range("A6").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="0", Formula2:="10"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' 入力時メッセージ タイトル メッセージ

' .InputTitle = "注意" .InputMessage = "〜下さい。"

Range("A7").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
    :=xlBetween
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "注意"
    .ErrorTitle = ""
    .InputMessage = "〜下さい。"
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' エラーメッセージ タイトル メッセージ

' .ErrorTitle = "情報" .ErrorMessage = "〜です。"

Range("A8").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertInformation, _
    Operator:=xlBetween
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = "情報"
    .InputMessage = ""
    .ErrorMessage = "〜です。"
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
End With

' 入力規則 :
' 日本語入力コントロール

' .IMEMode = xlIMEModeHiragana

Range("A9").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
    :=xlBetween
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeHiragana
    .ShowInput = True
    .ShowError = True
End With






Production Japan Import Application. Since 1998