エクセル VBA マクロ

コメントはしたのですが、作ってもしれていたので、
お返事待たずに両方回答しておきます

（１）-（ﾏｲﾅｽ）、小数点を含む数値のみを許可し入力させたい
1.設定したいセルを選択（複数選択しておいても良い）
2.メニューバーの「データ」→「入力規則」
3.「設定」で入力値の種類欄に「小数点数」、最小値、最大値を適当に設定
4.「日本語入力」で「オフ」

（２）IMEを使用し、漢字を含む文字を入力させたい
1.設定したいセルを選択（複数選択しておいても良い）
2.メニューバーの「データ」→「入力規則」
3.「日本語入力」で「ひらがな」

上記二つの設定をVBAから実行する例

Sub Macro1()
    ' -（ﾏｲﾅｽ）、小数点を含む数値のみを許可するセル
    Range("F33:F34,G33:G34,C40:C41,D40:D41").Select
    
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="-99", Formula2:="+99"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeOff
        .ShowInput = True
        .ShowError = True
    End With
    
    ' IMEを使用し、漢字を含む文字を入力させるセル
    Range("C3:C5").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
End Sub