excel2003

質問

前回の質問から下記記述を教えてもらい、スムーズに固定長ファイルの確認ができるようになりました。

Sub Sample()

vLeng = Array(5, 4, 6, 12, 12, 8, 23, 19, 1, 1, 6, 3, 13, 1, 12, 10, 1, 7, 20, 1, 3, _
30, 25, 25, 2, 7, 1, 8, 3, 1, 0, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, _
6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, _
6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, _
6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 6, 12, 8, 0, 100, 30, 1, 1, 10, _
10, 23, 1, 20, 8, 100, 100, 30, 25, 23, 20) '←取り出す文字数
For i = 1 To Sheets("貼付").Range("A" & Rows.Count).End(xlUp).Row
sString = Sheets("貼付").Range("A" & i).Text
sString = Replace(Replace(sString, " ", "*"), "　", "×")
nPos = 1
For j = 0 To UBound(vLeng)
Sheets("2G").Cells(j + 1, i + 4) = Mid(sString, nPos, vLeng(j))
nPos = nPos + vLeng(j)
Next j
Next i
End Sub

【今回の質問は・・・】
上記記述を生かしつつ・・・

以下のように各セルごとで属性が定められている時、

（例）・・・F列以降も属性の条件は一緒です。
E1は数字。
E2は全角。
E3は半角。

→E1に数字以外が含まれていたら赤く塗りつぶす。
→E2に全角以外が含まれていたら赤く塗りつぶす。
→E3に半角以外が含まれていたら赤く塗りつぶす。

→全角項目に半角スペース「*」が含まれていたら赤く塗りつぶす。
→半角項目に全角スペース「×」が含まれていたら赤く塗りつぶす。

、というような設定はできるものなんでしょうか？

もし、このような事が可能であれば教えて頂ければと思います。
宜しくお願い致します.

回答No.1

mt2008 · ベストアンサー

E4以降も数字、全角、半角、……と、続くのならE1:E3に条件付き書式を設定し、書式設定だけを下にコピーしては如何ですか。

条件付き書式の式は以下のようにすればよいでしょう
E1（数値でない場合TRUE)　=(ISNUMBER(E1)=FALSE)
E2（半角が混じっているとTRUE)　=(2*LEN(E2)<>LENB(E2))
E3（全角が混じっているとTRUE）　=(LEN(E3)<>LENB(E3))

書式設定もマクロで行いたいならマクロの記録で記録してください。

お礼

ご回答有難うございます。
別件で困った事があり、まだ試していませんが後程試したいと思います。

また、困った事に対しての質問をしておりますので、もし宜しければ再度ご回答頂ければと思います。