エクセルで決めた場所にジャンプすることは可能ですか

たとえばＢ１にＶＬＯＯＫＵＰで"あああ"と表示されていたとして、この時、マクロを実行すると
別のシートにある一覧の中から"あああ"を検索して、そこへジャンプしてくれるような事はできますか？？
エクセル２００３です。
分かる方よろしくお願いします。

No.3 回答者： keithin 回答日時： 2011/05/19 13:21

＞たとえばＢ１にＶＬＯＯＫＵＰで"あああ"と表示されていたとして

たとえばＢ１に
=VLOOKUP(A1,Sheet2!A:B,2,FALSE)
と式を記入していたとすると

そのＢ１に
=IF(A1="","",IF(COUNTIF(Sheet2!A:A,A1)=0,"NOT FOUND",HYPERLINK("#Sheet2!B"&MATCH(A1,Sheet2!A:A,0),VLOOKUP(A1,Sheet2!A:B,2,FALSE))))
などのように式を記入しておき，Ｂ１をクリックすれば目的のセルにジャンプします。

どこ番地に飛べば良いのか，数式を直して使うときは調整に注意してください。

この回答へのお礼

ありがとうございます。こちらも試してみます。

お礼日時：2011/05/19 15:39

No.2 ベストアンサー 回答者： mu2011 回答日時： 2011/05/19 11:03

一例です。

別シートはSheet2として、そのシートA列を検索して見つかればそのセルにジャンプする様にして見ました。
FINDメソッドを利用して完全一致型（引数は「FIND」でｗｅｂ検索してみて下さい。）で検索しています。

Sub sample()
Set obj = Worksheets("Sheet2").Columns("A").Find(Cells(1, "B"), LookAt:=xlWhole)
If obj Is Nothing Then
MsgBox "Not Found : " & Cells(1, "B").Value
Else
Application.Goto obj
End If
End Sub

この回答へのお礼

助かりました。
本当にありがとうございます！

お礼日時：2011/05/19 15:41

No.1 回答者： imogasi 回答日時： 2011/05/19 10:31

マクロの記録で、「編集ー検索」操作をして、どういうコードになるか勉強したらしまい。

ただ他の場合の修正方法などは、ＶＢＡの経験が少し無いと出来ないかも。
初心者でマクロに記録で出来るかどうかチェックしないで質問しているらしい（初心者以前？）質問者が多いようだが、勉強には基本だ。
＞Ｂ１にＶＬＯＯＫＵＰで"あああ"と表示されていたとして
この具体的な「あああ」を取る方法を説明していないのは、その難しさなどを理か理解していない証拠か？
ＡｃｔｉｖｅＣｅｌｌ
クリックイベント（ＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ）
その他
などこちらのほうが、勉強としては先の課題か？
＞Ｂ１にＶＬＯＯＫＵＰで"あああ"と表示されていたとして
セルに直接入力されたセルの値も、関数で導出されたセルの値も、区別する必要は無いのをご存じないのでは。
だからこういうことを質問に書くのでは。書く必要が無いとも言える。
検索で探すのは、書式を指定でも出来るようになっているが、基本は「セルの値」を見て、検索するものだという認識を持つこと。
エクセルの検索操作では、見つかれば、そのセルのジャンプするだろう。
ＶＢＡでもＦｉｎｄ－Ａｃｔｉｖａｔｅは他の理由（Ａｆｔｅｒ：=ActiveCell）から必須。
ーー
しかし検索をＶＢＡでやるのは、初心者には難しいと思う。コピペすれば良いなら、ＷＥＢで照会（「エクセルＶＢＡ　検索」）すれば沢山の実例記事がある。
・Ｆｉｎｄー＞ＦｉｎｄＮｅｘｔに分かれるところが難しい
・繰り返しの停止条件が難しい。
・該当無しの察知・手当てが難しい
など。