Eingabe im Feld Datum-Bereich in vba?

Ich habe eine excel-Datei und in der ersten Spalte (A) ich habe einige Daten wie diese:

17/10/2013
18/10/2013
19/10/2013
20/10/2013
21/10/2013
22/10/2013

Den anderen Spalten enthält einige Daten. Ich brauche erstellen Sie ein Eingabefeld, in dem alles innerhalb eines Datumsbereichs. Ich meine, ich klicken Sie auf die Taste und es zeigt mir ein popup-wie:

insert start date: 17/10/2013 (i can decide the date)
insert end date: 20/10/2013 (i can decide the date)

und dann kann ich ein makro habe ich bereits getan. Also mein makro liest nur die Daten innerhalb dieses Bereichs. Ist es möglich?

InformationsquelleAutor David_D | 2013-10-17

  1. 8

    Gibt es keinen bestimmten Tag geben, so dass Sie ll haben zu tun, ein bisschen Fehler zu überprüfen. Hier ist eine Idee, wie man ein Datum von einem Benutzer:

    Dim dateString As String, TheDate As Date
Dim valid As Boolean: valid = True

Do
  dateString = Application.InputBox("Enter A Date: ")

  If IsDate(dateString) Then
    TheDate = DateValue(dateString)
    valid = True
  Else
    MsgBox "Invalid date"
    valid = False
  End If
Loop Until valid = True
    +1. Beachten Sie auch, dass bei der übergabe von text-VBA setzt die US-Datumsformat, wenn möglich. Zum Beispiel "06/10/2013" -> Juni 10, 2013, (statt 6. Oktober), die führen kann einige unerwünschte Ergebnisse je nach OP - locale-Einstellungen.

    InformationsquelleAutor Portland Runner

  2. 12

    Können Sie eine Datum-Zeit-Picker, um Ihre Nutzung Formular aus und testen Sie die Eingabe für Ihre Auswahl wie folgt:

    Öffnen Sie die VBA-und die form, die Sie wollen, dass der Eingang auf.

    In der toolbox mit der rechten Maustaste und wählen Sie additiona Kontrollen

    Eingabe im Feld Datum-Bereich in vba?

    Dann wählen Sie in der Liste Microsoft Date and Time Picker Control:

    Eingabe im Feld Datum-Bereich in vba?

    Fügen Sie das Steuerelement Ihrem Formular:

    Eingabe im Feld Datum-Bereich in vba?

    legen Sie dann den code wie folgt unter der DTPicker1_Change () - Ereignis:

    Eingabe im Feld Datum-Bereich in vba?

    Private Sub DTPicker1_Change()
If DTPicker1.Value < DateSerial(2013, 10, 20) And DTPicker1.Value > DateSerial(2013, 10, 15) Then
    Debug.Print "Put Your Code Here"
End If
End Sub

    ändern Sie die Daten auf Ihre eigenen, und fügen Sie Ihren code ein.

    Hinweise: gibt Es eine große Menge von Einstellungen, die innerhalb dieser Steuerung, von Farben, Typen anzeigen, Checkboxen, dropdown-Stil, default-Werte, minimum-und maximum-Termine. Und auch benutzerdefinierte Datumsformate werden kann, gilt basierend auf der locale.

    InformationsquelleAutor user2140261

Schreibe einen Kommentar