Prüfen Sie, ob mehr als eine Zelle ausgewählt

Ich Frage mich, wie kann ich überprüfen ob mehr als eine Zelle celected in einer Reihe?

Habe ich 3 Zellen die ich möchten zu überprüfen, werden die Bereiche "A:B" und "D", und im Versuch, diesen code, aber seine nicht funktioniert für mich. 

If 3 - CountA(range) < 1 Then

Wie kann ich es tun, in Anthere Weg?

InformationsquelleAutor angular2neewbie | 2015-06-16
  1. 8

    Sowas ausgewählt Bereich:

    If 3-Selection.Cells.Count < 1 then

    oder, wenn die Möglichkeit besteht, dass Sie ausgewählt haben wirklich eine Menge von Zellen verwenden Sie diese ein:

    If 3-Selection.Cells.Countlarge < 1 Then
    • Froh, dass Sie Hinzugefügt der .CountLarge Sie bei der Auswahl, die alle Zellen schützt Sie vor einem überlauf.
    InformationsquelleAutor Kazimierz Jawor
  2. 2

    Wenn Sie Worksheet_Change(ByVal Target As Range) oder Worksheet_SelectionChange(ByVal Target As Range) dann verwenden Sie diesen code:

    If InStr(Target.Address, ":") > 0 Or InStr(Target.Address, ",") > 0 Or InStr(Target.Address, ";") > 0 Then

    Dieser wird überprüfen, ob der ausgewählte Bereich ist zum Beispiel:

    `A1;C1` (Cells A1 and C1 are selected) or
`E1:E4` (E1 to E4 are selected)

    Manchmal ist es verwendet ";" und manchmal "," so, dass wir schauen Sie beide an.

    Statt Target können Sie den Bereich, den Sie im code definiert werden, zum Beispiel:

    If InStr(MyRange.Address, ":") > 0 Or InStr(MyRange.Address, ",") > 0 Or InStr(MyRange.Address, ";") > 0 Then
    • Vielen Dank für den code, elano7!
    InformationsquelleAutor elano7
  3. 0

    Ich denke, Sie wollen, um zu versuchen, etwas entlang diesen Linien

    Dim rng1 As Range
Set rng1 = Range("A1:B1,D1")
MsgBox 3 - rng1.Cells.Count
    InformationsquelleAutor brettdj
Schreibe einen Kommentar