TintAndShade und PatternTintAndShade in Excel 2003

Fügte ich TintAndShade und PatternTintAndShade um eine Excel 2007-vba-makro. Ein Kollege versucht Sie in Excel 2003 und festgestellt, dass diese Befehle nicht dort arbeiten.

Wie kann ich dann wandeln Sie den folgenden code in etwas, das funktioniert in Excel 2003?

With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

wo die Zeilen, die Umkehr brauchen sind:

    .TintAndShade = 0
    .PatternTintAndShade = 0

Hinweis: ich benutze diese für die änderung Zelle Eigenschaften.

InformationsquelleAutor Wikis | 2011-10-14

  1. 1

    TintandShade funktioniert nur für Formen in Excel 2003. Die Zellen sind fest mit dem standard-hässliche Farben. Sie können Ihre code-Bedingung basiert auf version allerdings.

        With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274

    If Application.Version >= 12 then
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End If

    End With
    Also 12 = excel 2007? Danke!
    12 = Excel 2007, 14 = Excel 2010 und 11 = Excel 2003. Ich weiß nicht, was passiert ist 13?
    Aberglaube eingegriffen?
    Ich habe nie wirklich gedacht, dass Szenario. Gute Idee... Vielleicht werde ich einfach zu google.

    InformationsquelleAutor TheFuzzyGiggler

  2. 0

    .PatternTintAndShade wurde Hinzugefügt in der version 2007, so ist einfach nicht verfügbar in 2003

    .TintAndShade gilt nicht für Bereiche in 2003 (nur Formen)

    Sagte, diese Einstellung auf 0 hebt Ihre Wirkung, so es sei denn, es ist etwas, was Sie nicht sagen uns, die Sie nicht brauchen kann, Sie überhaupt zu verwenden.

    BEARBEITEN

    Während der Aufnahme kann nützlich sein, es wird oft mehr code als nötig ist für Ihre Zwecke, insbesondere bei der Festlegung von format, etc. Und, es kann produzieren verschiedene Codes in verschiedenen Versionen. So verwenden Sie es als Leitfaden, nicht als Evangelium.

    Z.B. Einstellung eine Füllung, die Farbe auf einer Palette (mit toolbar paint)

    Excel 2010

    Sub Macro1()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

    Excel 2003 (und dem ausführen dieses Makros in 2010 produziert das gleiche Ergebnis wie im Jahr 2003)

    Sub Macro1()
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub
    Überprüfen Sie den code, ich habe auch einen anderen Wert in einem anderen Ort. Aber ich habe diesen code aus der Aufzeichnung von Makros.

    InformationsquelleAutor chris neilsen

Schreibe einen Kommentar