¿Cómo escribir submenús para menús emergentes en VB?

1. Presione la combinación de teclas ALT F11 para abrir la ventana de edición de código VBA.

2. Genere un menú emergente en la celda de VBA. En el segundo paso, haga clic con el botón derecho del mouse en el área en blanco de la ventana del proyecto VBA a la izquierda y seleccione "Insertar". - "Módulo" en el menú emergente.

3. Generar un menú emergente en la celda VBA. El tercer paso es ingresar el siguiente código en el módulo recién creado.

4. Defina un tipo de objeto CommandBar para guardar los elementos de comando del menú contextual del botón derecho de la celda.

5. Defina nuevamente un objeto de elemento de menú, apuntando a un nuevo elemento de menú del tipo de objeto CommandBar, y especifique el nombre del subproceso ejecutado cuando se hace clic en el nuevo comando como prueba, que se muestra. como prueba.

6. Definir una prueba de subproceso para responder a las acciones del menú.

7. El cuarto paso para generar un menú emergente en una celda de VBA es definir el cursor en el primer proceso y presionar F5 para ejecutar el proceso.

8. El efecto final es como se muestra en la figura.