[[20040708005225]]　『シートの検索』（初心者）　ページの最後に飛ぶ

『シートの検索』（初心者）

シート３のＤ列に名前が５０ぐらいあり、名前の所をダブルクリックしたら同じ名前のシートにジャンプすることってマクロで組めるでしょうか。

 組めますよ。

 ５０個くらいならハイパーリンクを設定しても良いと思いますけど・・

  (INA)

 衝突してしまいました。

 一応作ってみましたので、載せさせてください。

 セルD1の名前があるとして、以下でD1に入っている名前のシートへ移動することは可能ですが、
 セルがD1からD50までとした場合の、セルの指定がわかりません(^_^A;

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 On Error GoTo LINE01

    If Target.Address <> "$D$1" Then Exit Sub 'ここです。

    Sheets(ActiveCell.Value).Select

    Exit Sub

 LINE01:

 MsgBox "シート名が存在しません", vbExclamation

 End Sub

 どなたかフォローをお願いします。

 （川野鮎太郎）

 魚釣り名人川野さん、おはようございます。
 こういう事でっか？
     If Target.Column <> 4 Or Target.Row > 50 Then Exit Sub 'ここです。
 　　　鮎の塩焼きサイコー（弥太郎）

 target.row>51はいけまへんなぁ、50に変えときました。
 　　　チョンボの（弥太）

 弥太郎さん、おはようございますm(_ _)m

 魚釣り迷人の川野です(^_^A;

 >  If Target.Column <> 4 Or Target.Row > 50 Then Exit Sub

 まさにこれです!!!

 ありがとうございます。^^

 ついでと言っては何ですが、セル番地での指定も出来るのでしょうか。
 たびたび申し訳ございません。m(_ _)m

 （川野鮎太郎）

 えっ、セル番地とは？
 例えばＤ１のみのやったら if target.address="$D$1" とか.address(0,0)="D1"
 とかいう意味でっか？
 　　　今日も暑くなりそ（弥太郎）

 とびとびの範囲のなど、複数のTargetを指定するときは、
 Column や　Row　で判定するのは大変なので、
 Intersect メソッドを使うと便利です。

  (INA)

 言い方が悪かったですね(^_^A;
 私の言うセル番地は、仮にD1からD50とした場合に関数で使う(D1:D50)のような指定の仕方のことでした。

 先の指定で　If Target.Address <> "$D$1:$D$50" Then Exit Sub　で、だめだったもので^^;

 なるほど、Intersectですか・・・"o(-_-;*) うむむ…またもや知らない文字が＞＜
 　　　　　＼＿( ･_･)ハイ、ここテストに出ますよ～　　　　　　＿〆＼(．．;) メモメモ

 （川野鮎太郎）

 あぁ、そう言ういみでっか。ゴメン。
 そういう指定はでけんのんちゃいまっか？ようわかりまへんけど。
 　　　ほな...（弥太郎）

 そうですか、了解しました^^　ありがとうございました。
 今後ともご指導よろしくお願いします。

 PS.こちらは梅雨真っ盛りで土砂降り雨です。
 また、鮎が遠のく・・・・・
 川に立ち　鮎の香りに　夏本番　（駄作だ＞＜）
（川野鮎太郎）

コメント返信：