1 
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”没有任何反应，我进行了调试，我看到这些值实际上是获得通过，但我认为这是写作部分的问题......我不知道是不是工作......任何帮助表示赞赏。
实际上我可以将值传递给 sub(name,age,address,phone) ，但是有一种方法可以像这个例子一样自动实现吗？

4

1 回答 1

1

你已经变暗了data_base，但是你分配回一个范围，你使用database. 始终，始终放在Option Explicit模块的顶部并声明所有变量。

于 2013-11-12T20:27:30.370 回答