Wählen Sie Spalte 1 bis 10 von ActiveCell Zeile in Excel

dies ist über ein makro in eine excel.

Während eine Kombination von Tasten gedrückt werden (d.h. das makro ausgelöst wird), muss ich einige format-änderungen der Spalten 1 bis 10 der Zeile, die die ActiveCell.

Hab ich im moment bin, die Auswahl der gesamten Zeile,

ActiveCell.EntireRow.Select

Allerdings brauche ich, um wählen Sie nur die Zeilen 1 bis 10. Ich denke, es sollte so etwas wie

ActiveCell.Range(1, 10).Select

Aber das funktioniert nicht.

Nur klar zu sein, habe ich gelesen über

ActiveCell.Offset(5, -4).Select

Aber das ist nicht zur Arbeit zu gehen in meinem Fall. Die ActiveCell könnte jede Spalte der Zeile und damit auch eine hardcoded-offset ist nicht zu helfen.

So, die excel-gurus da, ich bin der Hoffnung, dies ist eine schnelle Sachen, nur, dass ich irgendwie keine Antwort finden können. Bitte helfen Sie.

InformationsquelleAutor partha | 2013-05-06

  1. 13

    Wenn es immer nur die Spalten 1 bis 10 (d.h. A bis J) sollten auf die Arbeit:

    Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row)

    Zum Beispiel, wenn die activecell ist M14 dann wird dies wählen Sie den Bereich A14:J14. Sie können dann formatieren Sie diese wie Sie möchten.

    Hoffe, das hilft

    Danke. Ja, das funktioniert. Und es ist besser als das, was ich geschrieben als eine vorläufige Antwort.

    InformationsquelleAutor Alex P

  2. 1

    Ok. Dies ist, was ich Tat, und es funktioniert. 

    ActiveSheet.Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)).Select

    Meiner Meinung nach ist das eine Art hacky Weg. Wenn es irgendetwas gibt, was besser ist, bitte antwortet. Bis wir etwas besseres, ich denke, das ist die beste Antwort für die Menschen, die kommen auf der Suche nach der Antwort, nach mir.

    InformationsquelleAutor partha

  3. 0

    Diese arbeiten

    Range("A" & ActiveCell.Row).Resize(1,10).select

    InformationsquelleAutor Dan Donoghue

  4. 0

    falls zutreffend.. verbrachte eine Menge Zeit zu finden, brauchte mehr programmierbar - automatische Antwort, für die Ergebnisse, - arbeiten an der 1. Zeile. 

            Dim N7 As String: N7 = RANGE("N7")    'workcell N7 shows eg:  A:J    
        Intersect(Rows(ActiveCell.row), RANGE(N7).Columns).Select   'YES ANSWER

    'other:
        If application.Max(Intersect(Rows(ActiveCell.row), RANGE(N7).Columns)) > 0 Then

      MsgBox "YES" & Space(10), vbQuestion  ', "title": end if    & vbCr &
Else: MsgBox "NO" & Space(10), vbQuestion: End If ', "title": end if    & vbCr &

'Cells(ActiveCell.row, J6).OFFSET(, 1).RESIZE(, 6).Select    'YES: offset works on immediate cols for 1 row
'Cells(ActiveCell.row, J6).RESIZE(, 5).Select                'yes on 4 immediate cols for 1 row   (row, col)
'Cells(ActiveCell.row, B5).select

    Zelle N7 hat:
    =SUBSTITUTE(SUBSTITUTE(CELL("address",$A7),"$",""),ROW(),"")&":"&SUBSTITUTE(SUBSTITUTE(CELL("address",$J7),"$",""),ROW(),"")

    InformationsquelleAutor davex

Schreibe einen Kommentar