Sélectionnez la colonne 1 à 10 de ActiveCell ligne dans Excel

c'est au sujet d'une macro dans un fichier excel.

Tandis qu'une combinaison de touches (c'est à dire la macro est déclenchée), j'ai besoin de faire quelques changements de format pour les colonnes 1 à 10 de la ligne qui a ActiveCell.

Pour le moment, je suis en sélectionnant l'ensemble de la ligne

ActiveCell.EntireRow.Select

Cependant, j'ai besoin de sélectionner uniquement la ligne 1 à 10. Je pense qu'il devrait être quelque chose comme

ActiveCell.Range(1, 10).Select

Mais qui ne fonctionne pas.

Juste pour être clair, j'ai lu sur

ActiveCell.Offset(5, -4).Select

Mais ce n'est pas d'aller travailler dans mon cas. ActiveCell pourrait être n'importe quelle colonne de la ligne et donc codé en dur décalage ne va pas les aider.

Donc, excel gourous là, je suis en espérant que ce est un moyen rapide de tout ça, juste que quelque part, je ne peux pas trouver la réponse. S'il vous plaît aider.

OriginalL'auteur partha | 2013-05-06

  1. 13

    Si c'est toujours les colonnes 1 à 10 (c'est à dire de A à J), alors cela devrait fonctionner:

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

    Par exemple, si le activecell est M14 alors ce sera sélectionnez la plage A14:J14. Vous pouvez ensuite le format de cette façon.

    Espère que cette aide

    Merci. Oui, cela fonctionne. Et c'est mieux que ce que j'avais posté une réponse provisoire.

    OriginalL'auteur Alex P

  2. 1

    Ok. C'est ce que j'ai fait, et ça fonctionne. 

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

    Dans mon esprit, c'est une sorte de hacky. Si il n'y a rien de mieux, s'il vous plaît répondre. Jusqu'à ce que nous obtenir quelque chose de mieux, je suppose que c'est la meilleure réponse pour les gens qui viennent à la recherche de la réponse, d'après moi.

    OriginalL'auteur partha

  3. 0

    Cela fonctionne

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

    OriginalL'auteur Dan Donoghue

  4. 0

    le cas échéant.. passé beaucoup de temps à trouver, besoin d'un plus programmable - automatisé de réponse, les résultats des travaux sur la 1 ligne. 

            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

    cellule de travail N7 a:
    =SUBSTITUTE(SUBSTITUTE(CELL("address",$A7),"$",""),ROW(),"")&":"&SUBSTITUTE(SUBSTITUTE(CELL("address",$J7),"$",""),ROW(),"")

    OriginalL'auteur davex