Excel VBA質問箱 IV

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

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


5948 / 13645 ツリー ←次へ | 前へ→

【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は近い所にはいくのですが・・・。
1表は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は近い所にはいくのですが・・・。
>1表は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 さん:
こんばんは。

ありがとうございます。
思い通りになりました。
すごいですね。勉強されているんですね。
私もこれから勉強します。

5948 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free