excel - 如何将单元格值复制到另一个工作表中的文本框

Question

我有两张我正在编写代码的工作表，问题出现在执行行（16 及以上）时，我试图将单元格内容复制到另一张工作表中的文本框。

第一张表名是“Master Card”
第二张表名是“تسجيل”

Private Sub CommandButton1_Click()

    LR1 = Range("T" & Rows.Count).End(xlUp).Row - 5
    Dim I As Integer
    If Range("T6").Value = "" Then
        MsgBox "Pls insert employees ID Starting from cell T6", vbOKOnly
    Else
        Range("T6").Select
        For I = 1 To LR1
            ActiveCell.Copy
            Range("B3").Select
            Selection.PasteSpecial xlPasteValues
            ActiveSheet.PrintOut copies:=1
            Range("B3").Select
            selection.copy
            Sheets("تسجيل").Select
            TextBox1.paste
            ActiveSheet.PrintOut copies:=1
            Sheets("Master Card").Select
            Range("T6").Select
            ActiveCell.Offset(I, 0).Select
        Next I
    End If

End Sub

标签： excelvba