Excel VBA 全セル番地が,(カンマ)を含んでいるかを調べるＶＢＡについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は全セル番地が,(カンマ)を含んでいるかを調べるＶＢＡについてです。

Sub 全セル番地が,(カンマ)を含んでいるかを調べる()

Dim 行 As Integer
Dim 列 As Integer

*********(カンマ)含みがあるか調べる**********
For 列 = 1 To ActiveSheet.Range(“IU6”).End(xlToLeft).Column 　①

For 行 = 7 To ActiveSheet.Range(“H65535”).End(xlUp).Row 　②

If InStr(ActiveSheet.Cells(行, 列).Value, “,”) > 0 Then 　③
ActiveSheet.Cells(行, 列).Interior.ColorIndex = 3 　④
End If
Next

Next

End Sub

①6行目の最終列を指定します。
②Ｈ列の最終行を指定します。
③は最終行、最終列までループして、,(カンマ)が含まれているかチェックします。
④は③の条件だったらActiveSheet.Cells(行, 列).Valueを赤にします。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

【フューチャリズム】

響Agent　浮気診断シュミレーター匿名申込

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
以上、今回は全セル番地が,(カンマ)を含んでいるかを調べるＶＢＡでした。次回もまたよろしくお願いします。

☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

カード・電マネ・QR・ポイントも使えるお店の決済サービス