Die Erstellung einer "Datenbank" mit excel-mit VBA-Userform
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
Ich habe ein Formular für einen user namens UserNew
und ich möchte einige Informationen, um eine "Datenbank" *nur eine Tabelle für die übung * , aber wenn ich auf die CommandButton_1 nichts passiert meine "data_base", habe ich ausgetestet und ich sah, dass die Werte eigentlich immer vergangen, aber ich denke, das problem mit dem schreiben ... ich weiß nicht, funktioniert nicht ....
Jede Hilfe ist willkommen.
Eigentlich kann ich übergeben Sie die Werte an einen sub(name,Alter,Adresse,Telefon) , aber es gibt einen Weg, um dies automatisch, wie in diesem Beispiel ?
Die meisten der code verwendet eine variable mit dem Namen
data_base
, aber am Ende, Ihren code legt die Palette auf eine bisher nicht verwendete variable database
. Dies ist, warum sollten Sie immer Option Explicit
.InformationsquelleAutor Stephenloky | 2013-11-12
Du musst angemeldet sein, um einen Kommentar abzugeben.
Haben Sie Dimmen würde
data_base
aber wo ordnen Sie zurück zu einer Reihe, die Sie verwendendatabase
. Immer, immer setzenOption Explicit
an der Spitze des Moduls und deklarieren Sie alle Variablen.InformationsquelleAutor Dick Kusleika