Excel VBA質問箱 IV

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

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


65982 / 76734 ←次へ | 前へ→

【15318】Re:キーコードの定数を使用するには
質問  Excel大好きちゃん  - 04/6/21(月) 16:12 -

引用なし
パスワード
   ▼IROC さん:
>Sendkeys メソッドを試しては如何でしょうか?

お返事、ありがとうございます。(^^♪

早速やってみたんですが、うまくいきません。(+_+)
キーがうまく実行されていないようなんです。
わたしのコードは、以前頂いたものに改良を加えた

Sub 全シートをHOMEポジションに()
  Dim ws As Variant
cnt = 0
  For Each ws In Worksheets
    If Sheets(ws.Name).Visible = True Then '表示されているシート
      Sheets(ws.Name).Select
      SendKeys ("^{HOME}") ' →今回加えたコード
'      Range("A1").Select →これまでのコード
      cnt = cnt + 1
      If cnt = 1 Then sname = Sheets(ws.Name).Name
    End If
  Next
  Sheets(sname).Select
End Sub

なんですが、Range("A1").Select だと、ウインドウ枠の固定をした
シートに対しては、Ctrl+Homeキー実行の結果と違いますので
これを改善したいと思いました。

3 hits

【15314】キーコードの定数を使用するには Excel大好きちゃん 04/6/21(月) 13:48 質問
【15315】Re:キーコードの定数を使用するには IROC 04/6/21(月) 15:17 回答
【15318】Re:キーコードの定数を使用するには Excel大好きちゃん 04/6/21(月) 16:12 質問
【15320】Re:キーコードの定数を使用するには Excel大好きちゃん 04/6/21(月) 16:45 お礼

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