Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5968 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48032】列番号の下に任意の表を移動したい 45歳 07/3/31(土) 21:54 質問[未読]
【48033】Re:列番号の下に任意の表を移動したい ichinose 07/3/31(土) 22:17 発言[未読]
【48050】Re:列番号の下に任意の表を移動したい 45歳 07/4/1(日) 20:33 お礼[未読]
【48032】列番号の下に任意の表を移動したい
質問  45歳  - 07/3/31(土) 21:54 -
引用なし
パスワード
   シートの中にいくつかの表が有ります。
目的の表に行きやすいように、下記の様にジャンプする様にしました。
しかし、列番号の下にちゃんと表が移動しません。
zaiko001は問題なのですが、zaiko002は近い所にはいくのですが・・・。
１表は69行です。

Sub zaiko001()
　　Sheets("Sheet2").Select
　　Range("a1000").Select
　　Range("a1").Select
End Sub

Sub zaiko002()
　　Sheets("Sheet2").Select
　　Range("a1000").Select
　　Range("a70").Select
End Sub

表が列番号の下に来る様に「Range("a70").Select」を調整するしかないのでしょうか？
【48033】Re:列番号の下に任意の表を移動したい
発言  ichinose  - 07/3/31(土) 22:17 -
引用なし
パスワード
   ▼45歳 さん：
こんばんは。

>シートの中にいくつかの表が有ります。
>目的の表に行きやすいように、下記の様にジャンプする様にしました。
>しかし、列番号の下にちゃんと表が移動しません。
>zaiko001は問題なのですが、zaiko002は近い所にはいくのですが・・・。
>１表は69行です。
>
>Sub zaiko001()
>　　Sheets("Sheet2").Select
>　　Range("a1000").Select
>　　Range("a1").Select
>End Sub
　　Application.Goto Worksheets("sheet2").Range("a1"), True


>
>Sub zaiko002()
>　　Sheets("Sheet2").Select
>　　Range("a1000").Select
>　　Range("a70").Select
>End Sub
　　 Application.Goto Worksheets("sheet2").Range("a70"), True

を試してください。
【48050】Re:列番号の下に任意の表を移動したい
お礼  45歳  - 07/4/1(日) 20:33 -
引用なし
パスワード
   ▼ichinose さん：
こんばんは。

ありがとうございます。
思い通りになりました。
すごいですね。勉強されているんですね。
私もこれから勉強します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5968 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free