|
▼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キー実行の結果と違いますので
これを改善したいと思いました。
|
|