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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルを削除する（Delete メソッド）

Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

: オートフィルタ（アイコンで抽出する）AutoFilter メソッド

オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …

: セルの位置を取得（Left プロパティ、Top プロパティ）

Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …

: セルを参照する（Cells プロパティ）

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

: セルを参照する（Range プロパティ）

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: A1参照形式、R1C1参照形式の設定・取得（ReferenceStyle プロパティ）

ReferenceStyle プロパティ ReferenceStyle プロパテ …

: セル範囲内を検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

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