ページコンテンツ
セルの範囲に数式が使われているか取得する方法
どうもtakaです( ^ω^ )今回は【セルの範囲で数式が使われいてるか】を取得する方法をご紹介します!(^^)!
セルにデータがたくさんあるときに数式がつかれているかどうか判定したい時がありませんか?私はありました(笑)
会社で新入社員を入れるということで簡易的なExcelの試験をVBAで作成してほしいという依頼を受けたときに【数式を使って見本と同じものを作れ】という試験にしたので、合否判定の時に使用しました(;´・ω・)
セルに数式が使われているか判定する方法
ではどうやってセルに数式が使われているか判定するのかというと【Rangeオブジェクト】の【HasFormulaプロパティ】というものが用意されています、このHasFormulaプロパティはRangeで指定した範囲に数式が使われていれば【True】を返し、使われていなければ【False】を返すというすごく便利なプロパティです(笑)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub sample() If Range("A1").HasFormula = True Then MsgBox "A1は数式が使われています" Else MsgBox "A1は数式は使われていません" End If If Range("A2").HasFormula = True Then MsgBox "A2は数式が使われています" Else MsgBox "A2は数式は使われていません" End If End Sub |

しっかり判定できていると思います。
↓のように数式で埋まっている場合でも下記のコードのようにすれば色分けなどすることもできるので使い方次第でいろいろできると思います( ^ω^ )
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub sample() Dim rg As Range Range("A1:M30").Select For Each rg In Selection If rg.HasFormula = True Then'数式が使われていたらセルの色を変える rg.Interior.Color = RGB(73, 227, 170) Else End If Next rg End Sub |
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
コメントを残す