別シートにセルをジャンプさせたい

質問

エクセル2007で、ひとつのブックに入力シートとそれを元にした管理シートを作成しています。。

入力シートはc11:J810まで８００件のデータがあり、Ｃ列にはC11から管理番号(1から順に2,3,4‥‥800）が入っています。

管理シートの空いているセル（例えばF8）に入力シートの検索したい管理番号（例えば20）を入れて実行すると入力シートの管理番号20にセルが移動するようにしたいのですが、どうすれば良いのでしょうか？

回答No.4

watabe007 · ベストアンサー

>Ｃ列が一番左端にきてしまい、Ａ列Ｂ列が隠れてしまいます。
>Ａ列Ｂ列を表示させたままセルがＣ列に移動することはできるでしょうか？

kanri = Worksheets("管理シート").Range("F8").Value
Application.Goto Worksheets("入力シート").Cells(kanri + 10, "C")
ActiveWindow.ScrollColumn = 1 'Ａ列を左端に指定

お礼

お礼が遅くなって申し訳ありません。
お陰で解決できました。ありがとうございました。

回答No.3

watabe007

>Ｃ列にはC11から管理番号(1から順に2,3,4‥‥800）が入っています。
C11から管理番号が途切れることなく入っているのなら

Sub Test()
　　Dim kanri As Long

　　kanri = Worksheets("管理シート").Range("F8").Value
　　Application.Goto Worksheets("入力シート").Cells(kanri + 10, "C"), True
End Sub

お礼

ありがとうございます！できました！！

補足

厚かましいお願いで申し訳ありませんが、もう一つ教えていただけないでしょうか？

教えていただいたマクロでセルは移動したんですが、
Ｃ列が一番左端にきてしまい、Ａ列Ｂ列が隠れてしまいます。
Ａ列Ｂ列を表示させたままセルがＣ列に移動することはできるでしょうか？

わかりずらい説明で申し訳ありません。
よろしくお願いします。

回答No.2

keithin

＞これをマクロにするとどうなるのでしょうか？

スミマセン。
「これ」とは，お話しした内の「どれ」のことでしょうか？
あなたのイメージで，「こういう具合にしたい」をもうちょっと言葉にしてみてください。

併せてあなたご自身のスキルでどこまで出来そうか，「ここが判らないポイント」などについても補足してみてください。
先のお話しを実際にやってみた範囲で，ここが判らなかったとか，こうなってしまったのでここをこうしたいといった部分についても補足をお願いします。

お礼

ありがとござます。
解決しました。

回答No.1

keithin

大概の場合は次の手順でオートフィルタを取り付け，C列のタイトルセルの▼で希望の番号を検索して表示させた方が使いやすいです。

　A10からJB810を選択する
（上手くできないときは10行から810行を行選択する）
　ホームタブの並べ替えとフィルタ▼からフィルタを選ぶ

＃テーブルとして書式設定は使わないこと

ご質問の直接の回答としては，F8のとなりのG9セルに
=HYPERLINK("#シート名!C"&(F8+10),"Jump")
と記入，F8に管理番号を入れてJumpの文字をクリックしてみます。

お礼

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

これをマクロにするとどうなるのでしょうか？