Excel VBA テクニック集
入力規則一覧

入力規則の取得方法です。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

    Dim Range_Obj As Object
    Dim Cell_Obj As Object

    On Error Resume Next  '入力規則が一切なければ、検索するとエラーが発生します。
    Set Range_Obj = Excel_App.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
    Err = 0
    If Range_Obj Is Nothing Then
        Debug.Print "入力規則無し"
        Exit Sub
        End If
    
    For Each Cell_Obj In Range_Obj
        DoEvents
        Debug.Print "入力規則のあるセル=" & Cell_Obj.Address
        Next Cell_Obj

さて、Cell_Objのプロパティを調べると、演算規則の内容を調べることができます。

入力規則、Cell_Obj.Validation.Type

すべての値	xlValidateInputOnly
整数	xlValidateWholeNumber
小数点	xlValidateDecimal
リスト	xlValidateList
日付	xlValidateDate
時刻	xlValidateTime
文字列(長さ指定)	xlValidateTextLength
ユーザー設定	xlValidateCustom

項目リスト

計算式１	Cell_Obj.Validation.Formula1の値（文字列）
〃　２	Cell_Obj.Validation.Formula2　　〃

日本語入力モード、Cell_Obj.Validation.IMEMode

コントロールなし	xlIMEModeNoControl
オン	xlIMEModeOn
オフ	xlIMEModeOff
無効	xlIMEModeDisable
ひらがな	xlIMEModeHiragana
全角カタカナ	xlIMEModeKatakana
半角カタカナ	xlIMEModeKatakanaHalf
全角英数字	xlIMEModeAlphaFull
半角英数字	xlIMEModeAlpha

Excel VBA テクニック集入力規則一覧

Excel VBA テクニック集
入力規則一覧