Excel-Makro, das einfügen von International gültigen Formel während der Laufzeit

Ich habe eine Excel-Tabelle mit einem Makro, das fügt eine bedingte Formatierung, wie diese:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=UND($A3=""" & lastName & """; $B3=""" & firstName & """)"

Wie Sie sehen können, habe ich die Deutsche Formel für "UND" (also "UND"), und offensichtlich ist dieser code nicht funktioniert sobald ich es auf eine französische oder englische version von Excel.
In der Regel Formeln werden automatisch lokalisiert, aber wie kann ich eine Formel einfügen, die während der Laufzeit, wird auf ALLEN Versionen?

InformationsquelleAutor grovel | 2012-11-06
  1. 14

    Ok, vielen Dank für das helfen mich mit diesem, Sie haben mir geholfen, Riss diese ein.

    Es ist in der Tat nicht möglich, nur Englisch. Man kann Englisch beim Betrieb auf einer Formel, wie zB. durch die Einstellung der Codierung Range("A1").formula="AND(TRUE)", aber das funktioniert nicht mit FormatConditions.

    Meine Lösung ist eine Funktion, die schreibt eine Formel, die vorübergehend zu einer Zelle, der es liest, durch die FormulaLocal - Eigenschaft und liefert die lokalisierte Formel, etwa so:

    Function GetLocalizedFormula(formula As String)
' returns the English formula from the parameter in the local format
  Dim temporary As String
  temporary = Range("A1").formula
  Range("A1").formula = formula
  Dim result As String
  result = Range("A1").FormulaLocal
  Range("A1").formula = temporary
  GetLocalizedFormula = result
End Function

    Den zurückgegebenen Formel kann verwendet werden FormatConditions, die re-lokalisiert oder nicht lokalisiert, wenn Sie das Dokument später öffnen in einer anderen Sprachversion von Excel.

    • btw. diese vorübergehend zerstört den Wert von A1, aber dann schreibt Sie wieder zurück. Kein Problem in meiner Umsetzung, aber möchten Sie vielleicht ändern Sie das temporäre Zelle, wenn Sie diese selbst.
    • Sie können auch erstellen Sie ein temporäres Arbeitsblatt für diese, so dass Sie nie stören mit einem vorhandenen Arbeitsblatt Funktionen, die Sie haben (das bezieht sich auf A1)
    • Automatische übersetzung von Formeln gar nicht die Arbeit an der Validierung Funktionen, aber diese Lösung meinen Tag gerettet.
    • Diese workarount ist ebenfalls nur eingeschränkt verwendet werden, die in sub-Prozeduren, Funktionen dürfen nicht verändert werden, jede Zelle...
    • Nur ein VBA Tipp: geben Sie nicht selbst den falschen Eindruck, dass Variablen nicht deklariert, bis die Dim Linie. In VBA Variablen hochgezogen, was bedeutet, dass die Umsetzung Ihrer Dims Recht, bevor Sie in den Anfang der Funktion sind die gleichen, aber die ehemaligen schließlich täuschen Sie in etwas falsch zu machen.
    InformationsquelleAutor grovel
  2. 6

    Fand ich eine sehr elegante Lösung für das problem in einer deutschen Excel-forum. Dies muss nicht schreiben, um eine dummy-Zelle, sondern verwendet eine temporären Bereich. Ich benutzte die original-Idee (Kredit bst) zu schreiben, eine übersetzen-Funktion für beide Richtungen.

    Konvertieren lokalisierte Formel englische Formel:

    Public Function TranslateFormula_LocalToGeneric(ByVal iFormula As String) As String
    Names.Add "temporaryFormula", RefersToLocal:=iFormula
    TranslateFormula_LocalToGeneric = Names("temporaryFormula").RefersTo
    Names("temporaryFormula").Delete
End Function


    Konvertieren englische Formel, um lokalisierte Formel:

    Public Function TranslateFormula_GenericToLocal(ByVal iFormula As String) As String
    Names.Add "temporaryFormula", RefersTo:=iFormula
    TranslateFormula_GenericToLocal = Names("temporaryFormula").RefersToLocal
    Names("temporaryFormula").Delete
End Function

    Dies ist sehr praktisch, wenn Sie benötigen, um mit Formeln in bedingte Formatierung, da diese Formeln werden immer gespeichert als lokalisierte Formeln (aber Sie brauchen könnten, Ihre generische version, z.B. die Verwendung Application.Evaluate(genericFormula)).

    • Dies ist eine großartige Idee, aber es fügt den Namen des Blattes auf den Bereich Verweise ("$B$9" wird zu "MySheet!$B$9" und FormatConditions nicht wie ein Bereich mit einem Blattnamen.
    • Das wäre wirklich toll, wenn es funktioniert. Leider tut es das nicht. (Auf meinem computer, RefersTo enthält auch die lokale Formel.)
    • Für mich ist die Formel der übersetzung über das hinzufügen von Namen funktioniert in beide Richtungen ohne Probleme +1 (die lokale Sprache in Deutsch 🙂
    InformationsquelleAutor Marcus Mangelsdorf
  3. 4

    Store (eine triviale version) die Formel in eine (versteckte) Zelle in Ihrer Arbeitsmappe.

    Dann, wenn Sie die Arbeitsmappe öffnen, die Formel wird automatisch übersetzt, von excel für Anwender.

    Nun müssen Sie nur noch sezieren dieser Formel im Skript (finden Sie die öffnende Klammer "(" und nehmen Sie die Vergangenheit Links, die:

    Etwas wie:

    strLocalizedFormula = Mid(strYourFormula, 2, InStr(1, strYourFormula, "(") - 2)

    wo strYourFormula wird eine Kopie von der Formel aus Ihrem Arbeitsblatt.

    Ich hoffe das funktioniert da ich nur mit einer englischen Umgebung.

    Auch aus der Lektüre dieses:
    http://vantedbits.blogspot.nl/2010/10/excel-vba-tip-translate-formulas.html
    Ich denke man sollte (nur) in der Lage sein, um die englische version einer Zelle Formel in VBA.

    InformationsquelleAutor K_B
  4. 2

    Probier doch mal das (ungetestet, da ich nur englische version installierte vor)

    Schreiben Sie Ihre internationalen version der Formel, um ein von der Zelle Weg mit Range.Formula . Dann Lesen Sie es wieder aus Range.FormulaLocal, und schreiben Sie die Zeichenfolge, um zu den FormatConditions

    InformationsquelleAutor chris neilsen
  5. 0

    Entnehmen Sie bitte dem link für weitere Informationen: https://bettersolutions.com/csharp/excel-interop/locale-culture.htm

    CultureInfo baseCulture = System.Threading.Thread.CurrentThread.CurrentCulture; 
Thread.CurrentThread.CurrentCulture = new CultureInfo(xlapp.LanguageSettings.LanguageID(Office.MsoAppLanguageID.msoLanguageIDUI)); 
// do something 
System.Threading.Thread.CurrentThread.CurrentCulture = baseCulture;
    • bitte erläutere das ein wenig
    InformationsquelleAutor user9479152
  6. -1

    Vielen Dank an alle! Ich fand den Beitrag sehr nützlich.

    Meine Lösung ist eine Kombination der anderen, füge ich es im Falle, jemand findet es nützlich.

    Dim tempform As String
Dim strlocalform1 As String
Dim strlocalform2 As String

' Get formula stored in WorksheetA Cell O1 =IFERROR(a,b)
tempform = Worksheets("Sheet").Range("O1").Formula

' Extract from the formula IFERROR statement in local language.
strlocalform1 = Mid(tempform, 2, InStr(1, tempform, "(") - 1)

' Extract from the formula separator , (comma) in local settings.
strlocalform2 = Mid(tempform, InStr(1, tempform, "a") + 1, 1)

' Add formula in local language to desired field.
pvt.CalculatedFields.Add Name:="NewField", Formula:="=" & strlocalform1 & "FORMULA" & strlocalform2 & ")"

    Hoffe, das hilft!

    InformationsquelleAutor Diego
Schreibe einen Kommentar