0
列bが変更されたときに新しいページの印刷を開始する関数またはメソッドはありますか?Excel b列の値が変更されたときに新しいページの印刷を開始する
たとえば、列bがDavidからRobertに値を変更すると、新しいページを開始します。
列bが変更されたときに新しいページの印刷を開始する関数またはメソッドはありますか?Excel b列の値が変更されたときに新しいページの印刷を開始する
たとえば、列bがDavidからRobertに値を変更すると、新しいページを開始します。
ユーザーが列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
このように私は30000行のシートを印刷したいときには、私は新しいページを開始したいローカチオンは、 – Nueng
のような変化です。行100の列は、ワシントンの場合、100のcolumbはニューヨークです。新しいページを作るにはどうすればいいですか? – Nueng
シートのVBAコードに新しいコードを追加して、 – AMIB