1004 Fehler für Bereich Argument

Ich habe eine andere einfache Syntax Frage, die ich nicht ganz herausfinden kann. Ich möchte alle Zellen in einer Spalte so ändern, dass sie einen unteren Rand haben und eine Variable haben, um die letzte Nacht mit Daten darüber herauszufinden.1004 Fehler für Bereich Argument

Mein Code ist unten und ich glaube, die Fehler ist, wie ich versuche, die letzte Zelle zu definieren.

wsSheet.Range("F11:wsSheet.Cells(LastRowForSig, 6)").Borders(xlEdgeBottom).LineStyle = xlContinuous

Quelle

2017-07-07 vba_n00b

Wie haben Sie erklären 'wsSheet'? – BruceWayne

Als Arbeitsblatt: Dim wsSheet As Worksheet –

https://Stackoverflow.com/q/10098802/1188513 - Sie haben Code, der ausführbar sein soll, in doppelte Anführungszeichen eingeschlossen; VBA sieht dann nur ein Zeichenfolgenliteral. –

Try this:

With wsSheet.Range("F11", wsSheet.Cells(LastRowForSig, 6)).Borders 
    .value = 1 
    .item(xlEdgeLeft).LineStyle = xlNone 
    .item(xlEdgeRight).LineStyle = xlNone 
    .item(xlEdgeTop).LineStyle = xlNone 
End With

Quelle

2017-07-07 16:39:00

Versuchen Sie diesen Code unter

Dim r1 as Range, r2 as Range 
Set r1 = wsSheet.Range("F11") 
Set r2 = wsSheet.Cells(LastRowForSig, 6) 

wsSheet.Range(r1 & ":" & r2).Borders(xlEdgeBottom).LineStyle = xlContinuous

nach Wunsch bearbeitet werden.

Quelle

2017-07-07 15:35:58

Ich habe es versucht und bekomme immer noch die 1004-Methode Bereich von Objekt Arbeitsblatt Fehler fehlgeschlagen. –

um ein wenig pingelig zu sein, stellen Sie sicher, dass Sie ein Leerzeichen zwischen dem '&' und beliebigen Argumenten haben. Manchmal fügt VBA es nicht automatisch hinzu und ich habe zuvor Fehler bekommen. – BruceWayne

Versuchen Sie mit den neuen Änderungen. Ich bin mir nicht sicher, warum die vorherige Version nicht funktioniert hat. –

Sie sollten E. Trauger Antwort akzeptieren, aber hier ist eine leichte Variation

With wsSheet 
    .Range("F11", .Cells(LastRowForSig, 6)).Borders(xlEdgeBottom).LineStyle = xlContinuous 
End With

Quelle

2017-07-07 15:54:52 SJR

Muss ich etwas ändern, damit der Rahmen in allen Zellen in der Spalte angezeigt wird, weil er gerade in der untersten Zelle der Spalte angezeigt wird –

Das liegt daran, dass Sie nur den unteren Rand angegeben haben. Ersetzen Sie 'Borders (xlEdgeBottom)' durch 'Borders'. – SJR

1004 Fehler für Bereich Argument

Antwort

Verwandte Themen