Question

Private Sub CommandButton1_Click()

Dim actual_sheet As String

actual_sheet = "Sheet1"

Dim data_base As Variant

data_base = Sheets(actual_sheet).Range("G4:K100000")

nome = TextBox1.Value
Age = TextBox2.Value
Adress = TextBox3.Value
Phone = TextBox4.Value

For i = 1 To UBound(data_base)

    Line_at = data_base(i, 1)

    If Line_at = "" Then

        ' id
        data_base(i, 1) = i
        'name
        data_base(i, 2) = nome
        'age
        data_base(i, 3) = Age
        'adress
        data_base(i, 4) = Adress
        'phone
        data_base(i, 5) = Phone

        Exit For

    End If

Next


Sheets(actual_sheet).Range("G4:K100000") = database

UserNew.Hide



End Sub

我有一个名为UserNew的用户的表单，我想要一些信息到'数据库'*只是一个练习*的表，但是当我点击CommandButton_1我的“data_base”没有任何反应时，我调试了而且我看到这些值实际上已经过去了，但我认为它与写作部分的问题......我不知道是不行...... 任何帮助表示赞赏。
实际上我可以将值传递给子（姓名，年龄，地址，电话），但是有一种方法可以像这个例子那样自动传递吗？

Answer 1

你已经暗淡data_base，但在你指定回范围的地方，你使用了database。始终，始终将Option Explicit放在模块的顶部并声明所有变量。

使用VBA Userform创建带有Excel的“数据库”

1 个答案: