Zufällige Auswahl Von Zellen In Einem Bereich Nur, Wenn Es Eine Wert - Excel
So, hier ist der folgende VBA-code, den ich bin derzeit mit. Es funktioniert perfekt, aber ich brauche, um die Auswahl zu erweitern, zu überprüfen, zusätzliche Zellen, aber einige dieser Zellen enthalten können leere Zellen, und ich will nicht auswählen.
Gibt es eine Möglichkeit die zu umgehen, mit den leeren Zellen?
Dim RNG1 As Range
Set RNG1 = Range("H1:H30")
Dim randomCell1 As Long
randomCell1 = Int(Rnd * RNG1.Cells.Count) + 1
With RNG1.Cells(randomCell1)
.Select
'will do something else here, like copy the cell, fill the cell with a color, etc
End With
Du musst angemeldet sein, um einen Kommentar abzugeben.
Diesem Fall nehmen Sie nur nicht-leere Zellen:
HINWEIS:
Dies ist ein Beispiel für eine Allgemeine Technik. Um eine zufällige Auswahl aus einer Teilmenge einer Reihe, sammeln die Untergruppe und wählen Sie aus der Auflistung.
Wenn die Werte in Spalte H waren
XlConstants
dann sowas mitSpecialCells
Etwas zu spät, aber kein Schaden im posting 🙂
EDIT -- @brettdj richtig ist. Diese ist angepasst, um eine bessere Antwort auf die "überspringen Sie diese Zellen" - Frage.
Probieren Sie es aus:
Versuchen mit
IsEmpty(RNG1.Cells(randomCell1))
RNG1.Cells.Count
immer = 30, unabhängig davon, wie viele leere Zellen es gibt.