|
自己レスでっす。!(^^)!
うまくいきましたー
▼Excel大好きちゃん さん:
>▼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キー実行の結果と違いますので
>これを改善したいと思いました。
SendKeys "^{HOME}", Trueに変更してみたら
できるようになりました。
お騒がせしました。 (^^♪
|
|