Excelの条件付き基準に基づいて印刷ボタンを作成する

Question

したがって、最初に免責します。私はいくつかのプログラミングの背景を持っていますが、VBスクリプティングに慣れていないので、これを手にしておく必要があるかもしれませんが、すばらしい人々がレンダリングできるあらゆる助けに感謝します。

私はユーザーが入力する基準に基づいてワークシートを印刷する印刷ボタンを作成します。基本的には、行内の特定のセルをチェックするスクリプトが必要です。これらのセルにデータがある場合は、ライン。これらの特定のセルにデータがない行に移動し、データに基づいて正しい数のページを自動的に印刷するまで、すすいで繰り返します。私はそれが理にかなったことを願う私はそれが理にかなったことを願う

Answer 1

特定の列をチェックし、それらの列がすべて空白のときに値を返すコードを書くことを試みました。あなたに役立つ希望

Sub Printing() 
     Dim CheckCol1 As Integer, CheckCol2 As Integer 
     Dim rowCount As Integer, rowCount1 As Integer, rowCount2 As Integer, currentRow As Integer 
     Dim currentRowValue1 As String, currentRowValue2 As String 
     Dim found As String 
     found = "No" 
     CheckCol1 = 1 'column A has a value of 1 
     CheckCol2 = 2 'column B has a value of 2 

     rowCount1 = Cells(Rows.Count, CheckCol1).End(xlUp).Row 
     rowCount2 = Cells(Rows.Count, CheckCol2).End(xlUp).Row 
     rowCount = Application.Max(rowCount1, rowCount2) 

     ' find the first blank cell on both the columns 
     For currentRow = 1 To rowCount 
      currentRowValue1 = Cells(currentRow, CheckCol1).Value 
      currentRowValue2 = Cells(currentRow, CheckCol2).Value 

      If (IsEmpty(currentRowValue1) Or currentRowValue1 = "") And (IsEmpty(currentRowValue2) Or currentRowValue2 = "") Then 
       MsgBox ("No data on Column A and B in row" & currentRow) 
       found = "Yes" 
      End If 
     Next 
     If found = "No" Then ' This will return rowcount+1 when the columns have values throughout the range 
      MsgBox ("No data on Column A and B in row" & rowCount + 1) 
     End If 

    End Sub 

注： - いくつかの変数を追加することで、チェックする列の数を増やすことができます。 Checkcol3、rowcount3、currentrowvalue3を追加して3番目の列を追加して、さらに1つの条件をif節に追加することができます