Excel VBA 全セル番地が、環境依存文字含みがあるか調べるＶＢＡ

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

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

Sub 全セル番地が環境依存文字含みがあるか調べる()

Dim i As Integer
Dim 行 As Integer
Dim 列 As Integer
Dim str As String

環境依存文字含みがあるか調べる*
For 列 = 1 To ActiveSheet.Range(“IU6”).End(xlToLeft).Column ①

For 行 = 7 To ActiveSheet.Range(“H65535”).End(xlUp).Row ②
str = ActiveSheet.Cells(行, 列).Value ③
For i = 1 To Len(str) ④
If Asc(Mid(str, i, 1)) = 63 Then ⑤
ActiveSheet.Cells(行, 列).Interior.ColorIndex = 3 ⑥
End If
Next
Next

End Sub

①6行目の最終列を指定します。
②Ｈ列の最終行を指定します。
③は現在のセル番地の値を示す変数です。
④は Len(str)とは、str変数の文字数を示します。その文字数ループします。
⑤はMid(str, i, 1)とは、str変数のi回目、つまり１から文字数分ループします。そしてAsc(Mid(str, i, 1)) = 63とは、Mid(str, i, 1)の中の環境依存文字を一つずつ確認します。
⑥は⑤の条件だったらActiveSheet.Cells(行, 列).Valueを赤にします。

以上、今回は全セル番地が環境依存文字含みがあるか調べるＶＢＡでした。次回もまたよろしくお願いします。

【エスコム】法人専門

┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘
ファクタリングで資金調達！簡単ＷＥＢ契約で即資金化。
【エスコム】

・最短即日査定で資金化可能
・売掛金の高価買取、スピード買取

┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘