Übergeben von Daten zwischen UserForms
Innerhalb von Excel-VBA ich habe eine User Form ähnlich der folgenden, wo der Benutzer eine ID-Nummer und dann die details angezeigt werden, auf der Benutzer form:
Private Sub btnIDNo_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
If IsNumeric(txtIDNo.Text) = True Then
lblError.Caption = ""
IDNo = txtIDNo.Text
Worksheets("Details").Activate
Range("B4").Select
While ActiveCell.Value <> "" And ActiveCell.Value <> IDNo
ActiveCell.Offset(1, 0).Select
Wend
If ActiveCell.Value = IDNo Then
txtName.Value = ActiveCell.Offset(0, 1).Value
txtPhone.Value = ActiveCell.Offset(0, 2).Value
Else
lblError.Caption = "Cannot find ID nummber"
End If
Else
lblError.Caption = "Please enter the ID Number in numeric form"
End If
End If
End Sub
Details auf der Benutzer Form, ich habe eine Schaltfläche "Bearbeiten". Klick auf den "Bearbeiten" - Knopf öffnet sich ein weiteres Formular, wo der Benutzer die details der ID-Nummer, aber offensichtlich nicht die ID selbst. Um dies zu tun, muss ich übergeben Sie die ID-Nummer von den Informationen, die der Benutzer Form, um den Benutzer Bearbeiten-Formular. Gibt es eine Möglichkeit, dies zu tun?
Unten, um die Details Anzeigen User-Form öffnen Sie das Bearbeiten-Formular ist ähnlich der folgenden:
Private Sub CommandButton1_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
If IsNumeric(txtIDNo.Text) = True Then
lblError.Caption = ""
IDNo= txtIDNo.Text
ufmEditDetails.Show
ufmShowDetails.Hide
Else
lblError.Caption = "Please enter the ID Number in numeric form"
End If
Range("B4").Select
End If
End Sub
Habe ich schon angeschaut die folgenden links, aber Sie scheinen nicht zu helfen:
http://gregmaxey.mvps.org/word_tip_pages/userform_pass_data.html
http://peltiertech.com/Excel/PropertyProcedures.html
InformationsquelleAutor Ben Smith | 2015-09-11
Du musst angemeldet sein, um einen Kommentar abzugeben.
Gibt es viele, viele Möglichkeiten... Hier sind einige...
Weg 1
Public
Variable in einem ModulIn Userform1
In Userform2
In Modul
Weg 2
Verwenden Sie die
.Tag
- Eigenschaft der userformIn Userform1
In Userform2
Weg 3
Hinzufügen
Label
im Userform2, und legen Sie seine visible-Eigenschaft aufFalse
In Userform1
In Userform2
UserForm2.Txtbox.Text = UserForm1.txtIDNo.Text
Dann wäre es ja 🙂 ich antwortete auf die Frage "Wie übertrage ich Daten zwischen User-Formen?" Soweit deine Antwort betrifft, ich habe bereits gezeigt, ein ähnliches Konzept in
Way 3
🙂InformationsquelleAutor Siddharth Rout
Es gibt mehrere Möglichkeiten, um dieses problem zu lösen.
Die eine, die ich benutze, ist declare global oder public Variablen im Modul
Beispiel:
dann in der userform können Sie zuweisen oder abrufen Wert von dieser variable.
Zum Beispiel
in userform1:
in UserForm2:
InformationsquelleAutor Adisak Anusornsrirung
Der einfachste Weg ist:
UserForm2.TxtIDNo.Text = UserForm1.txtIDNo.Text
InformationsquelleAutor DragonSamu