| |
複数画面表示をしたいときに、以下のマクロで
必ず実行するようにすれば、このタイミングで
「ユーザー設定ビュー」を強制的に登録可能ですよね。
昔、どこかで頂いたマクロの一部流用ですが、
作成者様、ごめんなさい。
とりあえず、これで問題解決です。
ありがとうございました。(^^♪
Sub 同一Sheetの複数画面表示()
Dim sBookName As String
Dim nLen As Integer
ActiveWorkbook.CustomViews.add ViewName:="dummyView", PrintSettings:=True, _
RowColSettings:=True
sBookName = ActiveWindow.Caption
nLen = Len(sBookName)
ActiveWindow.NewWindow
ActiveWorkbook.CustomViews("dummyView").Show
If Mid(sBookName, nLen - 1, 1) <> ":" Then
Windows(sBookName & ":1").Activate
End If
Windows.Arrange ArrangeStyle:=xlHorizontal
End Sub
>
>「ユーザー設定ビュー」を使用する方法で、やってみました。
>確かにできました。ありがとうございます。
>わたしがやりたかったのは、保存直後の状態に戻すのではなく、
>任意のタイミングで間違ってWindowを閉じてしまった直後なので、
>この方法は有効のようです。
>あとは、この「ユーザー設定ビュー」をどの時点で登録するかの
>タイミングをうまく制御できれば いけそうです。
>でも、このタイミングが実際には難しいですね。
>例えば、１分毎に自動で登録してくれるように設定できれば。。。
>ちょっと、無理でしょうか？ ^_^;
>
>>>早速、やってみました。
>>>但し、マクロを組み込んでいない任意のブックに対しての復元は
>>>できない相談ですよね。
>>>何か良い方法がございましたら、いつでも結構ですので
>>>教えて下さいませ。 (^^♪
>>マクロにしたのは、ウインドウの設定条件を説明上統一しただけで
>>マクロで設定しなくても手動操作だけで可能ですよ。
>>提示させていただいたコードは、殆どマクロの記録でやってますから・・。
>>
>>例えば、前回の投稿のマクロで作成される倍率200で２行目で分割された
>>ウインドウがありますよね。
>>これを「Excel大好きちゃん さん」が閉じても復元できるウインドウだとします。
>>
>>このウインドウがアクティブな状態で
>>
>>・「表示」----「ユーザー設定ビュー」をクリックします。
>>
>>・ユーザー設定ビューのダイアログが表示されますから、「追加ボタン」を
>> 押して下さい。
>>
>>・「ビューの追加」というダイアログが表示されますから、名前を指定して
>> 「ＯＫ」ボタンを押して下さい。これで登録完了です。一旦、保存して下さい。
>>
>>・これで二つのウインドウを表示させての作業中に誤って、このウインドウを閉じてしまっても復元できます。
>>
>>・「ウィンドウ」---「新しいウィンドウを開く」でまず、新しいウインドウを
>> 作成して下さい。
>>
>>・次に又、表示」----「ユーザー設定ビュー」をクリックします。
>>
>>・ここで、復元用に登録したビュー名を選択して「表示」ボタンをクリックして下さい。
>>
>>これで復元が可能です。
>>
>>
>>もっとも作成した後、保存してるから、開きなおせば復元は出来ますけどね。
|
|
