セルが異なるセルを交換するときにアクティブシートをプリントする

Question

添付のスナップショットを参照してください。プリントシートに問題があります。

Iは1から60まで口座番号を持って、私は単一のページに2枚の請求書を印刷する必要があります。 セル値1と2は1ページ、2と3は2ページ目などです。

30ページに60枚の請求書を印刷する必要があります。

私は、1つのセル値だけが変更されたときに私のプログラムが印刷するという問題に直面しています。

私のプログラムを見つけてください。

Sub Button3_Click() 
    Dim i As Integer 
    Dim VList As Variant 
    VList = Array("1", "2", "3", "4", "5") 
    For i = LBound(VList) To UBound(VList) 
    Range("F52") = VList(i) 'first cell value 
     Next 
    Range("F84") = VList(i) 'second cell value 

    Next 
    ActiveSheet.PrintOut 
End Sub 

Answer 1

これが完全なコードの場合、なぜあなたが配列を使用しているのかわかりません！

このコードを試してください。

Sub Button3_Click() 
    Dim i As Integer 

    For i = 1 To 60 Step 2 

     Select Case i 
     Case 7, 21, 34, 49 
     Case Else 
      Range("F52") = i 'first cell value if i=6 
      Range("F84") = i + 1 'second cell value i+1 = 7 So code fails to check 
     End Select 
    Next 
    ActiveSheet.PrintOut 
    End Sub 

Answer 2

は1つだけですForと2 Nextを持っています。 ForとNextのバランスをとる必要があります。 Forでiを2だけ増分し、VList(i)とVList(i+1)を使用してください。

Sub Button3_Click() 
    Dim i As Integer 
    Dim VList As Variant 
    VList = Array("1", "2", "3", "4", "5") 
    For i = LBound(VList) To UBound(VList) Step 2 
     Range("F52") = VList(i) 'first cell value 
     Range("F84") = VList(i+1) 'second cell value 
    Next 
    ActiveSheet.PrintOut 
End Sub 

奇数の請求書の場合には、いくつかの検証を追加することをお勧めします。