2009-01-23 7 views
2

Cela devrait être simple, je ne sais pas pourquoi j'ai des problèmes avec cela ..... Dans une plage d'entrée de données qu'un utilisateur entre des données il y a un "gauche" et un " à droite "du formulaire. Je n'ai pas besoin de remplir toutes les données d'une ligne. Je veux créer une macro (et l'assigner à une touche de raccourci IE ctrl-z) de sorte que si elle est frappée, elle positionnera la cellule active dans le courant rangée et dans la colonne "X". autrement dit de frapper les touches Ctrl-Z, le curseur pour sauter dans la colonne « X »Comment sélectionner la cellule à partir de la macro

Répondre

1

Dans cette colonne de cas « x » est en fait la colonne E:

Sub ToColE() 
    Const colE = 5 
    Dim offset As Integer 
    offset = colE - ActiveCell.Column 
    ActiveCell.offset(rowOffset:=0, columnOffset:=offset).Activate 
End Sub 
1

Chacune des énoncés suivants devraient faire le tour. Affectez le raccourci macro dans le menu Outils -> Macros.

Public Sub SelectStuff() 
    Cells(3, 5).Select 
    Rows(17).Select 
End Sub 
1

Essayez cette

Sub MoveLeftOnForm() 
    Dim rn As Integer 
    rn = ActiveCell.Row 
    Range("B" & rn).Select 
End Sub 

il suppose B est votre colonne de gauche sous la forme.

0

Ce code doit le faire pour vous:

Public Sub SetUpKeyboardShortcut() 
    Application.OnKey "^z", "SelectColInSelectedRow" 
End Sub 

Public Sub SelectColInSelectedRow() 
    Const ColToSelect = "X" 
    Range(ColToSelect & CStr(Selection.Row)).Select 
End Sub 

Il suffit d'appeler SetUpKeyboardShortcut en cas Workbook_Open dans le module ThisWorkbook. Je crois que le code ci-dessus doit être stocké dans un module standard.

espoir qui aide ...

0

Cela fonctionne:

Public Sub go() 
Cells(ActiveCell.Row, 5).Activate 
End Sub 

substituer Juste le "5" avec ce numéro colonne que vous souhaitez. Vous devriez être en mesure d'assigner un raccourci ctrl + z à partir des options du menu macro.

Questions connexes