Excel VBAのボタン間で変数を転送

Question

Excel VBAを初めて使用しています。

Private Sub CommandButton1_Click() 

Dim LR2 As Long 
Dim cell2 As Range 

'A MODIFIER 
With Sheets("A") 

    LR2 = .Range("B" & Rows.Count).End(xlUp).Row 

    For Each cell2 In .Range("A5:A" & LR2) 
     If cell2.Value = "" Then 

     cell2.Value = TextBox1.Text 
     Exit For 

     End If 
    Next cell2 

    Label8.Caption = cell2.Offset(, 1).Text 
    Label9.Caption = cell2.Offset(, 2).Text 
    Label10.Caption = cell2.Offset(, 3).Text 
    Label11.Caption = cell2.Offset(, 4).Text 
    Label12.Caption = cell2.Offset(, 5).Text 
    Label13.Caption = cell2.Offset(, 6).Text 
End With 
End Sub 

は今、私は他のボタンに変数セル2を通過したい：私は、次のコードを持っている

Private Sub CommandButton2_Click() 
    cell2.Offset(, 7).Value = TextBox2.Text 
    cell2.Offset(, 19).Value = TextBox3.Text 
End Sub 

種類よろしく

Answer 1

私はあなたの方法が、あなたに同意しませんプライベート変数を使用できます。

Private cell2 As Range '<~~ this is at the TOP of the page in the declarations area 

Private Sub CommandButton1_Click() 

    Dim LR2 As Long 

    'A MODIFIER 
    With Sheets("A") 

     LR2 = .Range("B" & Rows.Count).End(xlUp).Row 

     For Each cell2 In .Range("A5:A" & LR2) 
      If cell2.Value = "" Then 

      cell2.Value = TextBox1.Text 
      Exit For 

      End If 
     Next cell2 

     Label8.Caption = cell2.Offset(, 1).Text 
     Label9.Caption = cell2.Offset(, 2).Text 
     Label10.Caption = cell2.Offset(, 3).Text 
     Label11.Caption = cell2.Offset(, 4).Text 
     Label12.Caption = cell2.Offset(, 5).Text 
     Label13.Caption = cell2.Offset(, 6).Text 
    End With 

End Sub 

Private Sub CommandButton2_Click() 
    cell2.Offset(, 7).Value = TextBox2.Text 
    cell2.Offset(, 19).Value = TextBox3.Text 
End Sub