主页 / 问题 / 1588409
Accepted
Светлана
Asked:2024-07-26 13:18:41 +0800 CST2024-07-26 13:18:41 +0800 CST

如何通过循环向Excel VBA文档添加TextBox值（Visual Basic）

  • 772
'Кнопка добавить данные
Public Sub ButtonAdd_Click()
 Dim i, n, k As Integer

 n = Range("A2").CurrentRegion.Rows.Count + 1
 k = n + 3
 For i = 1 To 4
    Cells(n, i + 1).Value = " & TextBox & i & "   
    Next
'Без цикла это работало так
        'Cells(n, 1) = TextBox1
        'Cells(n, 2) = TextBox2
        'Cells(n, 3) = TextBox3
        'Cells(n, 4) = TextBox4
        
End Sub
vba

1 个回答

  1. Best Answer

    您可以访问表单的Controls集合

    ActiveSheet.Cells(n, i + 1).Value = Me.Controls("TextBox" & i).Value
    • 0

相关问题