| |
▼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キー実行の結果と違いますので
これを改善したいと思いました。
|
|
Excel大好きちゃん
- 04/6/21(月) 16:12 -
