セル番地をvbaで探したい

質問

エクセルのセルに
Ａ１→あ
Ｂ１→い
Ｃ１→う
がはいっています。

この状態で
Sub Macro1()
Dim mystr1 As String
mystr1 = "c1"
MsgBox mystr1 & "の値は、" & "です。"
End Sub
を実行した時に、mystr1のアドレスを探して、msgboxに表示させたいのですが、
どのような方法があるのでしょうか？

アドバイスよろしくお願いします。

回答No.3

keithin · ベストアンサー

sub macro1()
　dim mystr1 as string
　mystr1 = "う"
　on error goto errhandle

　msgbox cells.find(what:=mystr1, lookin:=xlvalues, lookat:=xlwhole).address(false, false)
　exit sub

errhandle:
　msgbox "NOT FOUND"
end sub
みたいな。

お礼

ありがとうございました。

回答No.2

tom04

こんばんは！

タイトルが
＞セル番地をvbaで探したい
質問文には
＞mystr1のアドレスを探して、

とありますので、メッセージボックスには「う」があるセル番地を表示させたい！
という判断での一例です。

ちょっと回りくどいコードになりますが、極力お示しのコードに近い形にすると・・・

Sub Sample1()
Dim mystr1 As String, c As Range, tmp As Variant
tmp = "う"
Set c = Cells.Find(what:=tmp, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
mystr1 = c.Address
MsgBox tmp & "　のセル番地は、" & WorksheetFunction.Substitute(mystr1, "$", "") & "です。"
Else
MsgBox "該当データなし"
End If
End Sub

※　「う」は重複していない！という前提です。
（重複している場合は上位の行が、同じ行の場合は右側のセル番地が表示されます）
こんな感じをご希望なのでしょうか？m(_ _)m

お礼

ありがとうございました。

回答No.1

MackyNo1

やりたいことがいま一つわからないのですが、C1セルの値を表示したいなら単純に以下のコードで良いのではないでしょうか。

MsgBox mystr1 & "の値は、" & Range(mystr1).Value & "です。"

お礼

ありがとうございました。