Excel-VBA-get Palette von Benutzer-ausgewählten Bereich mit der Maus

Dies ist nicht der usedrange Ausgabe.

Zum Beispiel in Excel-Benutzer wählt eine Reihe (möglicherweise leere) mit der Maus, sagen wir mal B4:C12

Und lassen Sie uns sagen, ohne aufheben der Auswahl drücken Sie das makro, und das makro sollte sagen B4:C12.

Kann jedermann zeigen Beispiel?

Das makro sollte etwas entlang der Linien der folgenden:

Sub showrng()
    MsgBox SelectedRange.Address(ReferenceStyle:=xlA1)
End Sub
InformationsquelleAutor sdfg | 2010-09-10
  1. 12
    Sub macro1()
  MsgBox Selection.Address(ReferenceStyle:=xlA1, _
                           RowAbsolute:=False, ColumnAbsolute:=False)
End Sub

    HTH!

    • +1 aber ReferenceStyle:=xlA1 wäre mit den Anforderungen der Frage genauer
    InformationsquelleAutor Dr. belisarius
  2. 3
    Sub macro1()
  MsgBox Selection.Address
End Sub

    oder

    Sub macro1()
    Dim addr as String
    addr = Selection.Address
    msgbox addr

    ' Now, as we found the address, according to that... you can also do other operations

End Sub
    InformationsquelleAutor Ajitabh Ranjan
  3. 1

    Als Auswahl die Möglichkeit, mehrere unabhängige Bereiche, zeigt der folgende code eine vollständige Lösung des Problems:

    Public Sub SelectionTest()
Dim r As Range
Dim s As String

  Select Case Selection.Areas.Count
  Case 0:
    MsgBox "Nothing selected."
  Case 1:
    MsgBox "Selected range: " & Selection.Areas(1).Address(False, False)
  Case Else
    s = ""
    For Each r In Selection.Areas
      s = s + vbNewLine + r.Address(False, False)
    Next r
    MsgBox "Selected several areas:" & s
  End Select

End Sub
    InformationsquelleAutor wribln
Schreibe einen Kommentar