Excel b列の値が変更されたときに新しいページの印刷を開始する

Question

列bが変更されたときに新しいページの印刷を開始する関数またはメソッドはありますか？

たとえば、列bがDavidからRobertに値を変更すると、新しいページを開始します。

Answer 1

私はあなたが 何を意味するかわからないが、次のコードは、ワークシートを印刷します

ユーザーが列Bのセルを変更

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 2 And Target.Columns.Count = 1 Then 
     ThisWorkbook.ActiveSheet.PrintOut 
    End If 
End Sub 

編集

コメントした後、これは何です必要があります：

Sub PaginateBasedOnColB() 
    Dim lngRowsCount As Long 
    Dim lngCounter As Long 

    lngRowsCount = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count 

    MsgBox lngRowsCount 

    For lngCounter = 1 To lngRowsCount 

     If ThisWorkbook.ActiveSheet.Cells(lngCounter, 2) <> _ 
      ThisWorkbook.ActiveSheet.Cells(lngCounter + 1, 2) Then 
      ThisWorkbook.ActiveSheet.HPageBreaks.Add (ThisWorkbook.ActiveSheet.Range("B" & lngCounter + 1)) 
     End If 

    Next lngCounter 
End Sub