navegar a través de los valores definidos en la celda con la tecla de flecha

He progtwigdo antes pero soy nuevo en vba así que por favor ayúdenme .

Quiero que un usuario select una celda (cualquier celda en una columna) en una hoja de trabajo y luego él / ella debería poder presionar las teclas de flecha "ARRIBA" o "ABAJO" para navegar a través de los valores.

Es similar a un menu desplegable.

  1. Por ejemplo, tendría valores pnetworkingefinidos como "STOP", "GO", "START".
  2. Cuando el usuario selecciona la celda y presiona la tecla de flecha hacia arriba una vez, el valor de la celda cambia a "IR", vuelve a presionar la tecla de flecha, el valor cambia a "DETENER", y así sucesivamente …

gracias ayuda!

Parte 1

  1. Haga clic derecho en la pestaña de su hoja
  2. Ver código
  3. Copie y pegue en el siguiente código

Este código le dice a Excel que ejecute sus macros de flecha arriba y abajo solo en esta hoja. El código se desactiva cuando sales de la hoja

Private Sub Worksheet_Activate() Application.OnKey "{UP}", "UpOne" Application.OnKey "{DOWN}", "DownOne" End Sub Private Sub Worksheet_Deactivate() Application.OnKey "{UP}" Application.OnKey "{DOWN}" End Sub 

Parte 2

  1. Presione ALt y F11 juntos para ir al Editor de Visual Basic
  2. Insertar module
  3. Copia y pega el código de abajo
  4. Presione ALt y F11 para volver a excel

      Sub UpOne() Select Case ActiveCell.Value Case "" ActiveCell.Value = "Ready" Case "Ready" ActiveCell.Value = "Set" Case "Set" ActiveCell.Value = "Go" End Select End Sub Sub DownOne() Select Case ActiveCell.Value Case "" ActiveCell.Value = "Go" Case "Go" ActiveCell.Value = "Set" Case "Set" ActiveCell.Value = "Ready" End Select End Sub 

Su código ahora pasará de

en blanco (si está vacío) – 1) listo – 2) establecer – 3) ir (para flecha arriba)

en blanco (si está vacío) – 1) ir – 2) configurar – 3) listo (para DownArrow)