Beim ändern der schriftart Farbe in allen Zellen einer Liste der excel-sheets

Hey, ich habe versucht, ändern Sie die Schriftfarbe der Zellen in einer Liste der excel-Blätter von rot zu schwarz. Der code verwendet eine txt-Datei, die zum Lesen der Datei die Pfade aus, dann setzt Sie in ein array. Dann mit dem array prüfen Sie die excel-Tabelle für die rote Schriftfarbe und änderungen, die es zu schwarz. Leider, es funktioniert nicht, und ich habe SEHR beschränkt in meinem wissen von VBscript-Debuggen so kann jeder einen Blick und sehen, was habe ich falsch gemacht?

REM Attribute VB_Name = "Module1"
Sub SimpleMacro()
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True

    Const ForReading = 1 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objTextFile = objFSO.OpenTextFile _ 
    ("pathlist.txt", ForReading) 

    Do Until objTextFile.AtEndOfStream 
        strNextLine = objTextFile.Readline 
        arrServiceList = Split(strNextLine , ",") 
        Wscript.Echo "Server name: " & arrServiceList(0) 
        For i = 1 to Ubound(arrServiceList) 
            Wscript.Echo "Service: " & arrServiceList(i) 
        Next
    Loop

    Set objWorkbook = objExcel.Workbooks.Open(arrServiceList)
    Set objWorksheet = objWorkbook.Worksheets(1)

    RedColor = RGB(255, 0, 0)
    BlackColor = RGB(0, 0, 0)

    'Get number of rows in the specified column
    RowsCount = Range("A1" *.End(xlDown)).Rows.Count

    'Select cell
    Range("A1" *.End(xlDown)).Select

    'Loop the cells
    For x = 1 To RowsCount
        If ActiveCell.Font.Color = RedColor Then
            'Change the text color
            ActiveCell.Font.Color = BlackColor
        Else
            ActiveCell.Font.Color = BlackColor
        End If

        ActiveCell.Offset(1, 0).Select
    Next
End Sub

Was meinst du mit "funktioniert nicht"? Besonderheiten bitte?
xlDown unbekannt sein wird, wie Sie die späte Bindung, fügen Sie Const xlDown = -4121 nach Const ForReading = 1. Abgesehen von, die beschreiben, wie es ausfällt.
Sorry für die so vage. Wenn ich es laufen lasse, es ändert sich nicht die schriftart, die Farben von rot zu schwarz. So gibt es eine Liste von Datei-Pfade in pathlist.txt es sollte Lesen Sie die Dateipfade aus dem array und dann gehen Sie hinein und suchen Sie nach roten schriftart und ändern Sie Sie in schwarz.
Um zu sehen, die Fehler, wenn überhaupt, öffnen Sie excel, drücken Sie ALT+F11, füge den obigen code Sperrung der Linien mit Bezug zu objExcel. also Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True auszulassen und Verweise auf objExcel aus dem code.

InformationsquelleAutor Cmasterd | 2013-07-01

excel vbscript

Ich bin davon ausgegangen, dass Sie die schriftart ändern wollen Farben, die nur in der Spalte A. Das folgende korrekt ist VBA, die ich hoffe, die richtigen werden VBScript als wll.

lastrow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastrow
   If Range("A" & i).Font.Color = RGB(255, 0, 0) Then
        Range("A" & i).Font.Color = RGB(0, 0, 0)      'you can substitute your color variables in
   End If
Next

InformationsquelleAutor chuff

1

Können Sie nicht verwenden, so etwas wie *.End(xlDown). Nicht nur ist die Konstante undefiniert in VBScript, aber es gibt auch keine Keywords/variable *. Sie können den schriftart, die Farbe einer bestimmten Spalte zu schwarz so:
```
objWorksheet.Columns(1).EntireColumn.Font.Color = BlackColor
```
oder die Schrift Farbe von den verwendeten Bereich wie diesem:
```
objWorksheet.UsedRange.Font.Color = BlackColor
```
Für das ändern der Farbe aller Zellen, in denen die Schriftfarbe ist rot, die Sie verwenden können, so etwas wie dieses:
```
For Each cell In objWorksheet.Cells
  If cell.Font.Color = RedColor Then cell.Font.Color = BlackColor
Next
```
Andere Sache: können Sie öffnen mehrere Arbeitsmappen, die mit einem array von Pfaden:
```
Set objWorkbook = objExcel.Workbooks.Open(arrServiceList)
```
aber in diesem Fall sollte das array enthält nur die Pfade zu Excel-Arbeitsmappen, sonst nichts.
- Vielen Dank tho ich brauche es nur zu ändern, rote Schrift auf schwarz nicht nur alle die Schriftfarbe auf schwarz.
- Der code, den Sie haben, ändert sich die Zellenfarbe auf schwarz wenn es rot ist, und auch wenn es nicht rot.
- Oh sorry, dass war nur der Versuch zu sehen, es war seine nicht dazu gedacht, dort zu sein.
- Nein, das Letzte hat nicht funktioniert, könnte es sein, dass die Pfad-Liste Teil nicht funktioniert.
InformationsquelleAutor Ansgar Wiechers
0

Werden Alle und nur die Zellen mit roten Schriften zur schwarzen Schrift. Und dies ohne die Verwendung einer Schleife oder einem Vergleich-Anweisungen, bietet sehr schnelle und zuverlässige code.
```
Sub Sample()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With

Dim lngLastFilePathRow As Long

lngLastFilePathRow = Cells(Rows.Count, 1).End(xlUp).Row

With Range("A1:A" & lngLastFilePathRow)
     'Filter Out Everything that does NOT have Red font
    .AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterFontColor
    'With only the cells that have Red font change the color to black
    .SpecialCells(xlCellTypeVisible).Font.ColorIndex = xlAutomatic
    .AutoFilter
End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With
End Sub
```
- Hey danke, das ist toll, ist es Weg, dann Eingabe der array - arrServiceList so dass es geht durch den Pfad der Datei-Liste?
- Verwenden Sie, was Sie haben bis zu der Linie RedColor = RGB(255, 0, 0) Dann fertig mit meiner Antwort, aber fügen Sie die Arbeitsmappe und Arbeitsblatt (objWorkbook , objWorksheet) Verweise auf meine Bereiche.
- Vielen Dank, ich gebe es zu gehen und sich wieder auf Sie.
- Ich Tat, was Sie gesagt haben, aber ich bin immer ein das Voraussichtliche Ende der Anweisung Fehler in der Zeile, wo Dim lngLastFilePath As long ist. Irgendwelche Ideen?
- Der code ist VBA, nicht VBScript. VBScript unterstützt keine typisierten Variablen-Deklarationen.
- Sorry, ich habe nicht schon die letzten paar Tage. Ich werde wieder auf Sie bald.
InformationsquelleAutor user2140261

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.