【VBA】改行されたセルの条件

質問

VBAにてA1のセルが画像のように改行されたセルであっても条件式で処理を行うようにしたいのですがうまくできません。
↓式のように作成はしてみました
どうしたら改行されたセルでも処理が行えるのでしょうか？

Sub test()
If Range("A1") = (行1行2の場合) Then
処理
End If
End Sub

回答No.1

SI299792 · ベストアンサー

改行はコードで10です。
vbLfで表すことができます。
　　If Range("A1") = "行1" & vbLf & "行2" Then
にしてください。

お礼

ありがとうございます！
出来ました

回答No.2

imogasi

エクセルは開発用ではないので、どうしても文字や数字の１６進はあまり説明されない。ユティテイプログラムも無いようだ。
実は不便だと思う。
参考
http://www.tipsfound.com/vba/04001
http://officetanaka.net/excel/vba/tips/tips89.htm
例えば
セルのＡ１に、abcと入れて、ＡＬＴ＋ＥＮＴＥＲをいれてdeを入れる。
見かけは
abc
de
に見える。
Ｂ１セルに
=CODE(MID(A1,1,1))&"-" &CODE(MID(A1,2,1))&"-" &CODE(MID(A1,3,1))&"-"&CODE(MID(A1,4,1))&"-"&CODE(MID(A1,5,1))&"-"&CODE(MID(A1,6,1))
と入れると
97-98-99-10-100-101
と、なり、ｃとｄの間に１０（１６進では0A）が入ることが判る。
ーー
（１）これを除いてひかす比較するか
（２）見えないけれど加えて比較するか
２通りある。
普通は（２）でやる。
Sub test01()
If Range("A1") = "abc" & vbLf & "de" Then
MsgBox "OK"
Else
MsgBox "NO"
End If
End Sub
の実行でＯＫになる。
Sub test0２()
If Range("A1") = "abc" & "de" Then
MsgBox "OK"
Else
MsgBox "NO"
End If
End Sub
ではＮＯになる。
ーー
質問の行１、行2の表現は、エクセルのセルの行と紛らわしいので、表現に工夫すべきだと思う。セル内第1行など。

お礼

わー賢いですね^^;