Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

2015/06/16

HasFormula プロパティ

HasFormula プロパティは、対象のセル・セル範囲すべてに数式が入力されている場合は、True を返し、セル・セル範囲すべてに数式が入力されていない場合は、False を返します。対象のセル範囲の一部分にのみ数式が入力されている場合は、Null 値 を返します。

【書式】

result = Object.HasFormula

引数・戻り値

object ・・・対象となる Range オブジェクト
result ・・・ True（数式が入力されている場合）。False（数式が入力されていない場合）。Null 値（一部に数式が入力されているなどそれ以外の場合）。

セルに数式を入力するには Formula プロパティ や FormulaR1C1 プロパティ を使用します。

HasFormula プロパティの使用例

サンプルVBAソース

　
Sub Sample_HasFormula()

    Dim myRng
    
    'インプットボックスメソッドで、セル範囲を指定
    Set myRng = Application.InputBox( _
        Prompt:="セル範囲を指定してください", _
        Title:="数式が入力されているかをチェック", _
        Type:=8 _
    )


    '選択範囲全てに数式が入力されている場合は「True」、全てに数式が入力されていない場合は「False」
    'それ以外の場合は「Null 値」と表示します
    
    If IsNull(myRng.HasFormula) Then
        
        MsgBox "Null 値"
    
    Else
    
        MsgBox myRng.HasFormula
    
    End If
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

　

Sub Sample_HasFormula()

Dim myRng

'インプットボックスメソッドで、セル範囲を指定

Set myRng = Application.InputBox( _

Prompt:="セル範囲を指定してください", _

Title:="数式が入力されているかをチェック", _

Type:=8 _

)

'選択範囲全てに数式が入力されている場合は「True」、全てに数式が入力されていない場合は「False」

'それ以外の場合は「Null 値」と表示します

If IsNull(myRng.HasFormula) Then

MsgBox "Null 値"

Else

MsgBox myRng.HasFormula

End If

End Sub

　

サンプルVBAソース実行前

（※「E3」「E4」「E5」セルには数式 [数量×単価] が入力されている）

実行（その１）

（※ 「E3」セルを選択）

実行（その２）

（※ 「C3」から「D5」のセル範囲を選択）

実行（その３）

（※ 「B2」から「E5」のセル範囲を選択）

- セルの操作 Formula プロパティ, FormulaR1C1 プロパティ, HasFormula プロパティ, Range オブジェクト, VBA基本, エクセルVBA, セルの操作, 数式

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートフィルタ（日付フィルタ）AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

: 外枠罫線の設定（BorderAround メソッド）

外枠罫線の設定罫線の設定には、Borders プロパティを使用しますが、範囲内 …

: セルの表示形式を設定・取得する（NumberFormat プロパティ）

NumberFormat プロパティ NumberFormat プロパティは、現 …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

: オートフィルタ（矢印を非表示にする）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

: フリガナ（Phonetic プロパティ）

Phonetic プロパティ文字列（漢字など）をキーボードから入力した時の「読 …

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

PREV: 数式を設定・取得する（Formula プロパティ・FormulaR1C1 プロパティ）
NEXT: A1参照形式、R1C1参照形式の設定・取得（ReferenceStyle プロパティ）