データが特定の行数を超える場合にのみ、上部ペインをフリーズします。

Question

VBAを使用してレポートを書式設定します。

35個以上の行がある場合にのみ、ワークシート上にフリーズペインを適用します。 私は、データが1画面（35行を取っている）を超えている場合、フリーズペインを有効にする必要があることを示しています。それ以外の場合（35行未満のデータ）、フリーズペインは無効にする必要があります。

私は以下のコードをフリーズトップペインに使用しました。どのようにして行をチェックしてパートを行うことができますか？

new_book.Sheets("Report_").Range("A2").Select 
    With ActiveWindow 
     .SplitColumn = 0 
     .SplitRow = 1 
    End With 
    ActiveWindow.FreezePanes = True 

Answer 1

シンプル...最後の行を取得し、35を超えたらテストします。はいの場合は、ペインをフリーズします。

以下は、アクティブシート上で実行されます。あなたはこのためにはThisWorkbookでWorkbook_SheetActivateイベントを使用することができます

Sub Test() 
Dim lastrow As Integer 
lastrow = Range("A" & Rows.Count).End(xlUp).Row 

If lastrow > 35 Then 
    Range("A2").Select 
    ActiveWindow.FreezePanes = True 
End If 

End Sub 

Answer 2

。

ワークシートを切り替えるたびに、それ以上の行が35あるかどうかを確認します。 Moreがあると、最初の行がフリーズします。これがあなたを助けることを願っています。

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

    Dim intLastRow As Integer 

    With Sh.UsedRange 
      intLastRow = .Rows(.Rows.Count).Row 
    End With 

    If intLastRow > 35 Then   
     Sh.Range("A2").Select 
     With ActiveWindow 
      .SplitColumn = 0 
      .SplitRow = 1 
     End With 
     ActiveWindow.FreezePanes = True 
    Else 
     Sh.Range("A2").Select 
     With ActiveWindow 
      .SplitColumn = 0 
      .SplitRow = 0 
     End With 
     ActiveWindow.FreezePanes = False 
    End If 
End Sub