So rufen Sie die VBA-Funktion von excel

Habe ich en excel-Datei, wo ich Gültigkeitsregel. Ich habe eine Zelle, lassen Sie sagt, "Kunden", wo Benutzer können geben Sie Zeit, aber es ist Zeit anpassen. Benutzer können geben Sie die Zeit ein wie dass 

23:45
98:20
100:30

Benutzer nicht geben Sie die Zeichenfolge und keine speziellen Zeichen außer dem Doppelpunkt. Ich habe aus einem makro und es funktioniert perfekt accoriding zu Kunden zu verlangen. Hier ist makro

Public Function isValidTime(myText) As String
Dim regEx
Set regEx = New RegExp   'Regular expression object
regEx.Pattern = "^[0-9]+([:]+[0-9]+)*$"  ' Set pattern.
If regEx.test(myText) Then
isValidTime = myText
Else
isValidTime = "Null"
End If
End Function

Hinweis: Um dieses makro testen, wechseln Sie zum VBA-ide in der Tool-Referenz und wählen Sie die microsoft visual basic vbascript 5.5

Nun möchte ich diesen Aufruf in excel. Ich kann rufen wie =IsValidTime("23:43") und bekommen das Ergebnis, aber Kunde ist nicht daran interessiert, diesen Aufruf. Kunden benötigen ein excel, in dem er/Sie den Wert eingeben und der Wert wird validiert nach oben genannten Kriterien und Sie bekommen den genauen Wert oder Null.

Ich weiß nicht, wie fix diese Aufgabe. Ich habe Überprüft Datum und Zeit sowie von Daten und Daten-Validierung und legen Sie die Regel, und es funktioniert perfekt, ich brauche die gleiche Art und Weise für meine diese Regel gut. Jede Hilfe wird sehr geschätzt...

Dank
Kazmi

InformationsquelleAutor Husnain Kazmi | 2012-12-14
  1. 4

    Können Sie die Worksheet_Change Ereignis in der Platte. Innerhalb des VBE, wählen Sie die Tabelle, und wählen Sie Workhseet aus der linken drop-down-und Change von der rechten Seite.

    Geben Sie den folgenden code:

    Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then 'assumes user input cell is A1

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    On Error GoTo ErrTrap

    Target.Value = isValidTime(Target.Value)

End If

KeepMoving:

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    Exit Sub 

ErrTrap:

    MsgBox Err.Number & Err.Description
    Resume KeepMoving


End Sub

Public Function isValidTime(myText) As String

Dim regEx

Set regEx = New RegExp   'Regular expression object

regEx.Pattern = "^[0-9]+([:]+[0-9]+)*$"  ' Set pattern.

If regEx.test(myText) Then

    isValidTime = myText

Else
    isValidTime = "Null"

End If

End Function
    • Vielen Dank für die prompte Antwort. Ich habe getestet, diese aber nicht immer genau was ich brauche. Lassen Sie uns nehmen Sie an, wenn ich Schreibe auf die Zelle A1 dieser Wert 34:45, dann bin ich immer 10:45 und wenn ich mich wriring 34:dd dann bin ich immer den gleichen text not null. Haben Sie getestet, Scott. Ich habe Ihnen die Herausforderung, um meine Projekt-manager, ich werde es herausfinden-Lösung. So sind wir auf unserem Weg um dieses Problem zu beheben.
    • haben Sie versucht, spielt mit dem format der Eingabe-Zelle? oder platzieren Sie ein "" vor dem Eintrag?
    • Ja, Es funktioniert, wir haben so ändern Sie das format der Zelle als text. Es funktioniert. Vielen Dank Scott. TC
    • Toll. Markieren Sie bitte als beantwortet, so dass andere von dem wissen profitieren, es funktionierte.
    • ja, werde ich tun, aber letzten Fragen, Seine arbeiten nur auf der A1, und wenn ich fügen Sie in der Zelle A2 und so weiter bin ich nicht immer die gleiche Wirkung. Wenn ich Schreibe, auf A1 dieser string-23:fa, dann bin ich immer Null und seine perfekt, aber wenn ich Schreibe, auf der A2 vor, dann bin ich nicht immer null. Wir haben ca 30 Elemente, die diese Regel. Können Sie mir bitte sagen, diese als gut. Vielen Dank im Voraus.
    • da diese eine eigene Frage als Ihr original, Sie sollten wirklich die post eine neue Frage ... jedoch werde ich Euch hier erzählen. Diese Linie If Target.Address = "$A$1" gibt an, dass der code nur dann feuert, wenn die änderung in Zelle A1. Wenn Sie möchten, erweitern Sie Ihre Auswahl oder wählen Sie verschiedene Zellen, die Sie haben, um es zu ändern. Ein Weg, um mehrere Bereiche ist zu sagen If Intersect(Target,Range("A1:A30")) ... Sie spielen können, mit zu bekommen, was Sie brauchen.

    InformationsquelleAutor Scott Holtzman
Schreibe einen Kommentar