Auswahl Mithilfe Von Excel Makro

  A      B        C

123455  XXX     99999
123456  XX      100000
123457  XXX     100001
174564  XXXX    100002
184567          100003
194570          100004
204573          100005
214576          100006
224579          100007
                100008

Ich würde gerne ein makro schreiben für die Auswahl eines Bereichs mit <ctrl> + <down arrow>

Sollte das Verfahren so sein,

  1. Wählen Sie die Zelle A1
  2. Wählen Sie einen Bereich mit <shift> + <ctrl> + <page down>
  3. Aelect Zelle A1 ohne Abbruch Auswahl Auswahl (mit <ctrl>)
  4. ActiveCell.Offset(0, 2).Select
  5. Dann den Bereich auswählen von C1 bis C9 mit <shift> + <ctrl> + <page down> dann <shift> + <up arrow>

Den nachfolgenden Schritten in meinem Beispiel Daten, 224579 und 100007 ausgewählt und in derselben Zeile 100008 ist nicht ausgewählt.

Ich wollen, wählen Sie den Bereich zwischen A1 bis A9 auch C1 bis C9, aber ich möchte das makro dies zu tun ohne zu definieren, einen Bereich wie A1 und A9, weil das Angebot wird wahrscheinlich ändern, wie die A1 wechseln Sie auf die A5 nach einigen änderungen. Also, ich soll das makro anzupassen und schnappen Sie sich die zahlen entsprechend.

  • Für Referenz, um jemand anderes auf diese Frage, usign der Makro-Recorder eingebaut in Office machen kann diese Art von Lösung, die sehr einfach zu sich selbst zu finden.
InformationsquelleAutor user768199 | 2011-05-24
  1. 2

    Dieser sollte funktionieren, wenn A1 die aktive Zelle.

    Union(Range(ActiveCell, ActiveCell.End(xlDown)), Range(ActiveCell.Offset(0, 2), ActiveCell.End(xlDown).Offset(0, 2))).Select
    • Ich will wählen Sie den Bereich zwischen A1 bis A9 auch C1 bis C9 . Aber ich will makro dies zu tun, ohne Palette definieren wie A1 und A9, weil wahrscheinlich die Auswahl wird sich ändern, wie die A1 wechseln Sie auf die A5 nach einigen änderungen also will ich das Makro anpassen und schnappen Sie sich die zahlen entsprechend
    • danke aber, dass wählen, wird das gesamte Spektrum einschließlich der B-Säule. Ich will nicht wählen Sie die Spalte.
    • Dies wird nur markieren Sie die Spalten A und C.
    • Oh ja eggplant_parm Sie geändert haben Sie den code 🙂 Was ist, wenn ich wollen, fügen Sie die Spalte E wieder, bis die gleiche Zeile zum Beispiel ? A C E ausgewählt, bis die gleiche Zeile ?
    • Sie können hinzufügen, einen anderen Bereich innerhalb der union ( ... ) mit der offset-Einstellung von 4 statt von 2.
    • ja, aber das nur wählt A-und E-Spalte an, nicht C
    • Sie haben zum hinzufügen Dritten Bereich nicht nur ändern, die zweite: Union(Range(ActiveCell, ActiveCell.End(xlDown)), Range(ActiveCell.Offset(0, 2), ActiveCell.End(xlDown).Offset(0, 2)), Range(ActiveCell.Offset(0, 4), ActiveCell.End(xlDown).Offset(0, 4))).Wählen Sie
    • Vielen Dank eggplant_parm, ich löse das auf meine eigene danach =)

    InformationsquelleAutor eggplant_parm
  2. 0

    Nicht sicher, aber will man das?

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static self_protect As Boolean

  If self_protect Then Exit Sub

  self_protect = True
  Set Target = Target.Areas(1)
  Application.Union(Target, Target.Offset(0, 2)).Select
  self_protect = False
End Sub

    Fügen Sie den code in ein Arbeitsblatt ein code-Modul, und wählen Sie einen Bereich auf dem Blatt.

    • Ich verstehe nicht ? Ich kopieren und einfügen diesen code auf Makro-Modul klicken Sie dann auf ausführen öffnen Sie die klassischen makro ausführen/ erstellen / Abbrechen-Fenster, die mit keiner der Knöpfe aktiv waren (außer Abbrechen)
    • Kopieren in ein worksheet-code-Modul (der code-Modul, benannt nach dem Arbeitsblatt den code zu arbeiten), nicht ein makro-Modul. Sie muss nicht explizit ausführen. Wählen Sie einfach einen Bereich auf das Blatt.
    • WOW. Wie kann ich das im Makro ? Auch wenn ich weitere Spalten hinzufügen, wie 4. und 6. Spalte der Auswahl ?
    InformationsquelleAutor GSerg
Schreibe einen Kommentar