用VBA Userform创build一个“数据库”

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的用户的UserNew ，我想要一些信息到一个“数据库”*只是一个表的练习*，但是当我点击CommandButton_1什么也没有发生在我的“data_base”，我debugging，我看到的值实际上越过了，但我认为这是与写作部分的问题…我不知道是不是工作….任何帮助表示赞赏。
其实我可以将值传递给子（名称，年龄，地址，电话），但有一种方法自动像这个例子？

Answer 1

你已经dim'd data_base但你分配给范围的地方，你使用database 。 总是将Option Explicit放在模块的顶部，并声明所有的variables。