[[20040713140959]]　『ウィンドウ枠の固定をした時の画面表示について』（jts）　ページの最後に飛ぶ

『ウィンドウ枠の固定をした時の画面表示について』（jts）

一覧表など大きな表を作成した場合、先のほうのデータを見やすくするため、
ウィンドウ枠の固定をしますが、例えばその表の表題などを先頭行に入れた場合、
長くて他のセルにもかかるものは、画面表示を動かすとウィンドウ枠の固定を設定したセルの
先は表示が切れてしまいますが、表題だけ影響なく表示することは出来るのでしょうか？

 私の知る限り、
ウィンドウの固定枠に関係なくシート上に表示できるのは
・ツールバー
・ユーザーフォーム
だけです。
　
ただし、狙った位置へ表示できればいいのですが、
ユーザーのツールバーの表示の仕方、画面解像度、ウィンドウのサイズ、
はてはWindowsの画面設定によってシートの表示範囲が変わってきてし
まいますので、「タイトルを表示したい位置」へ常にどんぴしゃりで
表示させるのは・・・至難の業？
　
私の腕では「だいたいこの辺でいいか」ぐらいの位置決めしかできま
せんでした。
　
下記はタイトルに擬したユーザーフォームを
「だいたいこの辺でいいか」の位置へ表示させるサンプルですが、
そのためにはメニューバー以外のコマンドバーをすべて非表示に
せねばならなかった･･･。
したがって、取り扱い注意。
画面上端からセルA1までの距離を測る方法どなたかわかりませんか～？
　
///////シートオブジェクト//////////
 Private Sub Worksheet_Activate()
     UserForm1.Show (0)
 End Sub

 Private Sub Worksheet_Deactivate()
     Unload UserForm1
     Workbooks.Open Filename:= _
         "C:\WINDOWS\Application Data\Microsoft\Excel\Excel.xlb"
 End Sub
///////////ここまで//////////////
　
///////ユーザーフォーム//////////
 Private Sub UserForm_Initialize()
     Dim MyBar As Object
     For Each MyBar In CommandBars
         If MyBar.Visible = True Then
             If MyBar.Name <> "Worksheet Menu Bar" Then
                 Application.CommandBars(MyBar.Name).Visible = False
             End If
         End If
     Next
     Me.StartUpPosition = 0
     Me.Top = 50 + Range("A1").Top + Application.Top
     Me.Left = 24 + Range("A1").Left + Application.Left
 End Sub
///////////ここまで//////////////
　
(KAMIYA)

 反則技的もので・・・
 新しいブックを開く－ウインドウの整列－上下に並べて表示－
 作業中のブックのウインドウを整列するにチェックを入れてOK
 上側のウインドウはタイトルの分だけ表示できるようにウインドウを縦方向に縮小
 作業するウインドウを縦方向に拡大してウインドウ枠の固定ってのはダメですかね(^_^A;
 （川野鮎太郎）

 上記方法でよければ、マクロの記録でやってみました。

 Sub Test1()
    aa = ActiveWorkbook.Name
    ActiveWindow.NewWindow
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal
    With ActiveWindow
        .Width = 957　’数値は画面の解像度などPCによって変わります。
        .Height = 82.5
    End With
    Windows(aa & ":1").Activate
    With ActiveWindow
        .Top = 63.25
        .Left = 1
    End With
    With ActiveWindow
        .Width = 957
        .Height = 572.25
    End With
    Range("E3").Select　’E3のセルで固定してます。
    ActiveWindow.FreezePanes = True
 End Sub
 （川野鮎太郎）

早々にご回答頂いたのにお礼が遅くなりすみませんでした。
マクロ関係、勉強不足のため2番目のご提案はＯＫだったのですが、ご提案①のほうは、
なぜかエラーになってしまい、とまどっていたところです。
これって出来るのかなーくらいの感覚でしたので、丁寧なお返事感謝いたします。　　(JTS)

コメント返信：

[ 一覧(最新更新順) ]

[[20040713140959]] 『ウィンドウ枠の固定をした時の画面表示について』（jts） ページの最後に飛ぶ

[[20040713140959]]　『ウィンドウ枠の固定をした時の画面表示について』（jts）　ページの最後に飛ぶ