VBA Freie Zellen im benannten Bereich, die spezifisches Zeichen enthalten

Question

Alle, Ich bin völlig unbekannt w/VBA, aber wollen einen Code für eine Fantasy Football Draft-Simulation, die die Entwürfe Auswahlen "zurücksetzen".

Parameter: Die Größe der Daten beträgt 12 Teams (Spalten) und 18 Runden (Zeilen). Die Daten sind nicht benachbart, also habe ich den Bereich, den ich zurücksetzen möchte "DataVal"

Die Liga ist eine Keeper-Liga, was bedeutet, dass es bereits in ausgewählten Zellen vor dem Entwurf sind Spieler, so dass ich nicht will diese geklärt haben. Um zwischen behaltenen und ungepackten Spielern zu unterscheiden, haben die ungepflegten Spieler ihre Positionen in Klammern.

Anfrage: Ich möchte einen Code, der alle Zellen mit "(" oder wenn das nicht möglich "(RB)", "(QB)", "(WR)", "(TE)" löscht "(TD)", "(PK)" innerhalb des Bereichs "DATAVAL", die ich auf einen Knopf

Answer 1

Versuchen das Hinzufügen dieser Code in einem regulären Modul anbringen können:

Sub ClearCells() 

Dim rng as Range 

With Range("DataVal") 'You had a named range named "DataVal" right? 
    For each rng in .cells 
     If Left(rng.value, 1) = "(" Then 'All values that start with "(" 
      rng.ClearContents 
     End If 
    Next rng 
End With 
End Sub 

Es über jede Zelle Schleifen Wenn in Ihrem benannten Bereich das erste Zeichen in der Zelle "(" ist, wird diese Zelle gelöscht.

Fügen Sie als Nächstes eine Schaltfläche hinzu, und fügen Sie das Makro "ClearCells" hinzu.

Lesen Sie immer noch How do I ask a good question bevor Sie Ihre nächste jedoch.