Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11389 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16282】画面の表示について nao 04/7/23(金) 10:10 質問[未読]
【16285】Re:画面の表示について Asaki 04/7/23(金) 11:14 回答[未読]
【16369】Re:画面の表示について nao 04/7/26(月) 12:59 質問[未読]
【16370】Re:画面の表示について IROC 04/7/26(月) 13:03 回答[未読]
【16372】Re:画面の表示について nao 04/7/26(月) 13:20 質問[未読]
【16375】Re:画面の表示について IROC 04/7/26(月) 13:47 回答[未読]
【16378】Re:画面の表示について nao 04/7/26(月) 14:04 お礼[未読]
【16282】画面の表示について
質問  nao  - 04/7/23(金) 10:10 -
引用なし
パスワード
   こんにちは
マクロでopen時に処理をして、
最後に、Range("A1").Select
をしているのですが、open後の画面表示が
全然違う場所が表示されています。
私は、open後は画面は、A列が一番右端に表示されるように
したいのですが、何か書き方がおかしいのでしょうか。
どなたか、ご存知の方教えて下さい。
（カーソルは"A1"の位置になっているのですが、
　画面がA列を表示されていない状態です。）
【16285】Re:画面の表示について
回答  Asaki  - 04/7/23(金) 11:14 -
引用なし
パスワード
   こんにちは。

Application.GoTo
あたりを調べてみてください。
【16369】Re:画面の表示について
質問  nao  - 04/7/26(月) 12:59 -
引用なし
パスワード
   すいません、HELPが入っている端末がなく
Application.GoToが調べれないのです。
Application.GoTo ("A1")にしても無理でした
どうしたらよろしいのでしょうか。
すいませんが、どなたか教えて下さい。


▼Asaki さん：
>こんにちは。
>
>Application.GoTo
>あたりを調べてみてください。
【16370】Re:画面の表示について
回答  IROC  - 04/7/26(月) 13:03 -
引用なし
パスワード
   MSDNで調べては如何でしょうか？

http://www.microsoft.com/japan/msdn/library/ja/off2000/vbaxl/html/xlmthgoto.asp
【16372】Re:画面の表示について
質問  nao  - 04/7/26(月) 13:20 -
引用なし
パスワード
   返答ありがとうございます。
調査しまして、実行したところ、

Range("A7").Select
Application.Goto (True)

上記のように実行した所、
"参照が正しくありません" で落ちてしまいます。
すいませんどのように記述したらよろしいでしょうか。
教えて下さい。


▼IROC さん：
>MSDNで調べては如何でしょうか？
>
>http://www.microsoft.com/japan/msdn/library/ja/off2000/vbaxl/html/xlmthgoto.asp
【16375】Re:画面の表示について
回答  IROC  - 04/7/26(月) 13:47 -
引用なし
パスワード
   >Range("A7").Select
>Application.Goto (True)

　
Application.Goto Range("A7"), True

で出来ませんか？
【16378】Re:画面の表示について
お礼  nao  - 04/7/26(月) 14:04 -
引用なし
パスワード
   ありがとうございます。
下記のように思っていました。
Application.Goto (Range("A7"), True)

おかげ様でうまくいきました。
ありがとうございました。

▼IROC さん：
>>Range("A7").Select
>>Application.Goto (True)
>
>　
>Application.Goto Range("A7"), True
>
>で出来ませんか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11389 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free