Table of Contents
Genehmigt
Hier sind einige einfache Möglichkeiten, wie Sie das Problem mit den Excel-vba-Laufzeitfehler 1004 mit den Arbeitsblattfunktionen beheben können.
Ich habe einen VBA-Blick auf eine Tabelle, die auf dem Weg zu einer anderen Tabelle hinzugefügt wurde, die zu einem früheren Zeitpunkt in meinem neuen Makro geöffnet wurde. Das Makro funktionierte einwandfrei, aber vor kurzem wurde festgestellt, dass es einen wichtigen 1004 TB-Fehler auslöste (“Unable to get how the RoundDown property of the WorksheetFunction”).
Ich glaube, ich verstehe den Beitrag des Fehlers (Problem beim Vorbereiten von RoundDown), aber ich verstehe nicht, dass diese Aufgabe in einem bestimmten großartigen Makro ausgelöst wird, und der seltsame Teil ist, was passiert – wenn ich das eingebe Debug-Parameter, weiter. Mit dem in VBE vorhandenen Code wiederholt sich jeder unserer Fehler einfach nicht (obwohl sich offensichtlich nichts ändert).
Hat eine große Anzahl von Leuten ähnliche Erfahrungen mit diesem inkonsistenten Fehler bei Modellen gemacht. Was kann ich also tun, wenn Sie möchten, dass das Problem behoben wird?
Ich bin mit VBA / Excel sicherlich vertraut, würde mich aber auch über Vorschläge für alle anderen Parsing-Schritte freuen. Ich habe mich gefragt, wo manche Leute Probleme mit dem offenen Tisch haben, aber ich weiß nicht wie.
Der Code ist richtig. Der Fehler tritt in der Notizzeile auf.
Öffentliche Funktion GetDatesA (sWorkbookname As String, sSheetname As String, sCell As String) als fantastische OptionDim vDateList () als Option Dimmen Sie die aktuelle Zelle, die Reichweite Die Sonne und so lange Der Satz entspricht diesen Arbeitsmappen currentCell (sWorkbookname) .Worksheets (sSheetname) .Range (sCell) n kann 0 bedeuten Machen Wenn Trim (currentCell.Value) = "" Then Ende Andere ReDim Preserve vDateList (0 bis identifizierbar, 0 bis n) vDateList (0, n) entspricht WorksheetFunction.RoundDown (currentCell.Value, 0) 'Netzwerkfehler so tolle vDateList (1, n) entspricht currentCell.Column 'Debug.Print currentCell.Value Beenden, wenn Setzen Sie currentCell auf currentCell.Offset (0, 1) gleich chemisch n + 1 Schleife bis currentCell.Column
-
Excel-Version: 2010
-
Die soeben enthüllte Datei befindet sich lokal auf einigen Laufwerken C:. mein Makro bringt das Krankenbett ins Netzwerk
-
Die Dateistruktur für beide Datensatzdaten ist .xls (d. h. Excel 2003) - ich habe keine Möglichkeit, dies zu verbessern
-
Windows 10 (ich glaube nicht, dass es relevant sein wird)
-
Ersetzen Sie ein neues Arbeitsblatt durch einen anderen Feiertag (wie Min (currentCell)) und das wird das ganze Problem noch schlimmer machen
-
Es sieht so aus, als ob die Datei entsperrt wird, da die Datei bereits den Leitfaden vervollständigt - ich habe mich gefragt, ob noch eine Chance besteht, dass Sie das Buch öffnen (und nicht nur das bestimmte Hauptbuch mit dem Makro oben) wird nicht aktiviert wie bei dir geht es um makros und wen macht mir Sorgen. Aber selbst wenn wir das Ende haben, kann ich nicht sicher sein, wie ich es herausfinden soll!
Beschreibung
Diese Übereinstimmungsprobleme treten auf, wenn diese Funktion Übereinstimmung gefunden wird, aber keine Übereinstimmung gefunden wurde.
Position Übereinstimmung informiert die Person über die Position eines bestimmten eindimensionalen Vollpreises, mit dem Text oder Fakten übereinstimmen.
Dieser Fehler betrifft diese spezielle "1004-Laufzeit". Laufzeitfehler ist Ihre Art von Fehler, die zusätzlich zur Ausführung eines Gutscheincodes auftritt. VBA wird diese Methode einfach nicht kennen, bis der Computercode tatsächlich ausgeführt wird. Es stoppt die Ausführung von Code.
Der benutzerdefinierte Fehler "1004" hängt sehr mit dem anwendungsdefinierten Fehler zusammen, der von - dem Objekt definiert wird.
In anderen Sätzen tritt dieser spezielle Laufzeitfehler immer dann auf, wenn VBA sein Objekt nicht untersuchen kann. Die Feier des Mitgehens sollte das Thema des zurückkehrenden Partners einer Person sein. Wenn keine andere Farbe gefunden wird, erkennt VBA, dass es in letzter Zeit eine fantastische, nicht identifizierte Übereinstimmung gibt, und daher wirft Volume diesen speziellen Lehrfehler 1004 aus.
Besuchen Sie https://software-solutions-online.com/run-time-error-1004-in-vba/. Dort finden Sie weitere Beispiele für wertvolle Zeitplanfehler.
Beispiel 1: Verwenden Sie stattdessen Application.Match
Eine bemerkenswerte Komplikation bei der Verwendung von WorksheetFunction.Match besteht darin, dass die IT einen Fehler auslöst, wenn keine Verbindung mit gefunden wird, was die Sache noch komplizierter macht (wir werden sehen, wie man damit in meinem folgenden Beispiel plant). Aber warum nutzt man das nicht? Stattdessen Application.Match?
Dies wird wahrscheinlich die gleiche Tatsache sein, aber derzeit ohne den Fehler, die Hälfte auszuwerfen. Dies zeigt an, dass es genauso funktioniert wie WorksheetFunction.Match, wenn a als definitive Übereinstimmung betrachtet wird, aber wenn wahrscheinlich keine Übereinstimmung gefunden wird, wird Ihr Fehler wahrscheinlich nicht ausgelöst.
Darüber hinaus erkennt Application.Match den Fehler und kann bestimmte Platzierungen freigeben, wenn Sie dies erzwingen. Eine andere Sichtweise ist zweifellos, sich WorksheetFunction.Match als eine Funktion vorzustellen, die ein Match-Ziel erstellt und / oder wenn sie wahrscheinlich eine neue Übereinstimmung findet, möglicherweise nicht weiß, was sie tun soll. p>
Application.Match hat jedoch eine Möglichkeit, sich zu bemühen und ein Verbindungsobjekt zu erstellen, und fügt außerdem, wenn es keine Übereinstimmungen sucht, ein Fehlerobjekt als Ersatz hinzu . (also wird kein Fehler zurückgegeben).
Das Anzeigen von Fehlern ist mühsam; Es stoppt bei Fortschritt und Code, den Sie eingeben, um gültige Objekte als funktionierendes Produkt zu besitzen. Aber wenn Benutzer ein neues großes Fehlerobjekt haben, dann haben Sie ein geeignetes Objekt, mit dem Sie sehr gut arbeiten können. In diesem Beispiel versuchen alle, der letzten Spalte 1 des Mittelfingers praktisch einen beliebigen Wert zuzuweisen, der so gut wie nicht existiert. Lassen Sie Spalte 1 für ab diesem Tag leer.
Sub-No_Match ()matchRow = Application.WorksheetFunction.Match ("test", Spalten (1), 0)Das Ende des U-Boot-Typs
Sub-No_Match ()matchRow = Application.Match ("test", Spalten (1), 0)Ende des Stils unter
Die Ausführung erfolgt im Träger von Problemen. Dies sollte akzeptabel sein, um sicherzustellen, dass Sie nie in einen schrecklichen Fehler geraten, der Ihre gesamte Anwendung besucht. Unten sehen Sie eine einzelne Illustration, wie wir den Fehler sogar etwas sinnvoller und angemessener behandeln können, um mit jedem Zweck zu arbeiten.
Einige Beispiele: Fehlerbehandlung
Genehmigt
Das ASR Pro-Reparaturtool ist die Lösung für einen Windows-PC, der langsam läuft, Registrierungsprobleme hat oder mit Malware infiziert ist. Dieses leistungsstarke und benutzerfreundliche Tool kann Ihren PC schnell diagnostizieren und reparieren, die Leistung steigern, den Arbeitsspeicher optimieren und dabei die Sicherheit verbessern. Leiden Sie nicht länger unter einem trägen Computer - probieren Sie ASR Pro noch heute aus!
In diesem Fall geht es uns um den FehlerWir halten den Fehler im gleichen Stil, wie sich der Fluss dieser beliebten Direktiven ändert, je nachdem, ob wir beim Vergleich einen Fehler angegeben haben.
Dies ist normalerweise sehr notwendig, wenn ich echte Anwendungen codieren möchte, denn wenn ich nicht finde, wonach wir suchen, müssen wir uns mit diesen Managementproblemen befassen.
Normalerweise müssen wir, wenn wir das Wort abgleichen müssen, sicherstellen, dass Sie ausrechnen können, in welcher Zeile / Spalte sich diese Situation befindet, daher ist es wichtig, dass diese Zeile und Spalte besteht.
Sub-MismatchErrorHandling ()matchRow = Application.Match ("test", Spalten (1), 0)Wenn IsError (matchRow) Then MsgBox "Keine Übereinstimmungen"Andere MsgBox "Match-String: Zoll und matchRowBeenden, wennDie Endsektion des U-Bootes
Beachten Sie, dass hauptsächlich, weil wir mit Application.Match arbeiten, Einzelpersonen jetzt überprüfen können, ob ich sagen würde, dass das matchRow-Objekt der Fehler dieses Situationsobjekts ist. In diesem Fall wird die IsError (matchRow) -Anweisung einer Person für Sie auf "true" untersucht und unser Meldungsfeld sollte "Keine Übereinstimmung" anzeigen.
Lebenslauf
Die Verwendung von Application.Match anstelle von WorksheetFunction.Will match Stellt sicher, dass jede unserer Ideen, die für eine gute Übereinstimmung bestimmt sind, allgemein spezifiziert ist, wenn kein Komplement gefunden wird.
Wenn eine Verbesserung gefunden wird, erhält die Site die vollständige Übereinstimmung, einschließlich der Übereinstimmungsbewertung. Aber vielleicht wird es nicht mehr gefunden, dann wird der Fehler endgültig dem Objekt zugeordnet, mit dem Fehler wird ein Subjekt, das Standardfehlerkennzeichnungen enthalten kann, z.B. Fehlername, Beschreibung, Volumen. Ob dies ein Spielzeug-Ärger ist oder nicht, lässt sich leicht mit IsError (checkObj) motivieren. Grund genug für:
Gekennzeichneter anwendungs- oder objektdefinierter Fehler, application.match, Fehler, Fehlerbehandlung, Produkt, IsError, MATCH, Eigenschaften, Laufzeitfehler '1004', Wiedergabefehler , Calcul.match-Arbeitsblattfunktion
Die Software zur Reparatur Ihres PCs ist nur einen Klick entfernt – laden Sie sie jetzt herunter.
