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

関連記事

: セル内部を参照（Interior プロパティ）

Interior プロパティ Interior プロパティで、セルの内部を参照し …

: セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）

StandardHeight プロパティ・StandardWidth プロパティ …

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

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

: 使用中のセル範囲を取得（UsedRange プロパティ）

UsedRange プロパティ UsedRange プロパティは、指定したワーク …

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

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

: 並べ替え（Sort メソッド）

Sort メソッド任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …

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

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

: ハイパーリンク（Hyperlink オブジェクトのメソッド）

Hyperlink オブジェクトのメソッド Hyperlinks コレクション …

: ワイルドカードを使って検索（Find メソッド）

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

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

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

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