マクロコードの変更

質問

以下のサンプルコードをネットでみつけました。

"D$7"セルに入れた文字と同じ文字を見つけてセルを移動させてくれるコードだと思いますが
私のエクセル表はD7セルに６桁の数字（111101）を入れますが
検索先は'111101とシングルコーテーションが入っています。

サンプルコードのD7セルのところをどのように変更したらいいでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myR As Range

If Target.Address <> "$D$7" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set myR = Cells.Find(What:=Target.Value, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)

If myR.Address = Target.Address Then
MsgBox "同じ値はありません"
Else
myR.Activate
End If

End Sub

どうぞよろしくおねがいします。

回答No.1

kybo · ベストアンサー

こちらの環境では、シングルコーテーションの有無にかかわらず検索できました。
特に修正しなくても検索できると思います。

お礼

無事解決しました。

これが正しいのかわかりませんが
LookAtを部分一致にしたところ
希望したセルに移動したので
これで解決とさせていただきます。

補足

kyboさま

回答ありがとうございます。

試しに、シングルコーテーションのある6桁の数字をG列にＭＩＤ関数でシングルコーテーションを外したのをＨ列において、マクロの実行をしたところＨ列の方には移動しました。

Ｈ列を削除してからマクロの実行をしたら「同じ値はありません」となりました。

ＴＹＰＥ関数で調べたところＧ列Ｈ列ともに「テキスト」となりました。

他に考えられる原因はありますでしょうか。

よろしくお願いします。

回答No.2

kybo

Findの引数、After:=ActiveCell
となっているのが、問題なのかもしれません。
After:=Targetとしてみてください。

’全文
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myR As Range
If Target.Address <> "$D$7" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set myR = Cells.Find(What:=Target.Value, _
After:=Target, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
If myR.Address = Target.Address Then
MsgBox "同じ値はありません"
Else
myR.Activate
End If
End Sub

補足

kyboさま

丁寧にありがとうございます。

現象は変わりませんでした。。