Cómo utilizar Excel para diseñar un programa de dictado de palabras en inglés
1.
Diseño del botón "Leer celda"
"Leer celda" no es un "comando de uso común", no puede encontrar esto comando en la cinta de forma predeterminada. Sin embargo, puede configurar una cinta personalizada para mostrar el comando en la barra de herramientas de la cinta.
Seleccione el menú "Opciones de archivo" para ingresar al cuadro de diálogo "Configuración de opciones", haga clic en "Personalizar cinta", luego haga clic para seleccionar la pestaña Inicio en la pestaña principal a la derecha y haga clic en Nuevo grupo ( N) debajo del botón " para crear un nuevo grupo personalizado. El método específico es el siguiente.
Seleccione "Comandos que no están en la cinta" y "Comandos de la siguiente ubicación (C)" para encontrar el comando "Leer celdas en voz alta", haga clic con el mouse para seleccionar el comando y confirme que los comandos de la La siguiente ubicación (C) en el paso anterior no está en la cinta. "Nuevo grupo (personalizado)" en la pestaña Inicio está en el estado seleccionado, haga clic en el botón Agregar. De esta manera, el comando Hablar celdas aparecerá en la pestaña Inicio. Asimismo, en la barra de herramientas también aparece el botón Leer celdas - Detener lectura de celdas. Los resultados se muestran en la Figura 1 (Figura 1).
Después de completar los dos pasos anteriores, use el mouse para seleccionar la celda que desea leer en voz alta y luego haga clic en el botón "Leer celda", el sistema leerá las celdas en orden de arriba a abajo, ya sea. es chino o inglés, se puede leer en voz alta y el efecto de lectura es bueno. Haga clic en el botón " leer celda - detener lectura de celda " en esta barra de herramientas. ", el sistema dejará de leer. Sin embargo, la función carece de la opción de establecer el espacio entre celdas, lo que le permite continuar leyendo todas las celdas según sea necesario. Pero el dictado requiere tiempo para pausar la escritura, por lo que tenemos que resolver el problema de controlar el intervalo de pausa entre palabras a través de VBA.
2.
VBA resuelve el problema del control del intervalo de pausa
Para usar Excel
VBA para programar, primero debes seleccionarlo en la barra de herramientas Mostrar "Herramientas de desarrollo". Ingrese al cuadro de diálogo Configuración de "Opciones", haga clic en "Personalizar cinta" a la izquierda y seleccione "Herramientas de desarrollo" frente a la ventana derecha. Aparecerá una casilla de verificación, "Herramientas de desarrollo", en la barra de herramientas, "Herramientas de desarrollo". aparecerá.
rdquo; se mostrará en la interfaz.
Haga clic en la pestaña Herramientas de desarrollo, luego haga clic en el botón Visual Basic (o presione Alt F11) para ingresar al entorno de edición de VBA, haga clic en VBAProject
(PERSONL. Después de insertar un formulario de usuario, modifique su nombre a tingxie, Título (es decir, configuración del programa de dictado " atributos.
En el formulario de usuario, agregue dos " cuadros de texto " y un control, dos controles " etiquetas ", y dos controles de "botones de comando" cuyos "nombres" son los mismos que los nombres en el formulario. Los atributos de título de las etiquetas son: configuración del número de palabras y espaciado de palabras de dictado, que se colocan en dos cuadros de texto. control Los primeros dos controles se utilizan para explicar el uso de los siguientes dos " cuadros de texto "; los atributos de texto de los dos " cuadros de texto " son respectivamente: 20, 2, estos son los valores iniciales de los dos controles del "cuadro de texto" El programa utiliza estos dos controles para permitir al usuario ingresar la configuración del número de palabras y el espacio de palabras de dictado. y Cancelar. Arrastre y suelte para ajustar el tamaño y la posición relativa de los controles del formulario para que el resultado sea perfecto (Figura 2 /p>
3.
La implementación de tecnología central del formulario). programa de dictado
La implementación de tecnología central del programa de dictado se divide en las siguientes tres partes
(1) Dale un alma al botón de comando
Para un. Para que el botón de comando se convierta en un botón activo, se le debe proporcionar un código ejecutable.
Haga doble clic en el botón Aceptar e ingrese lo siguiente:
Privado
Sub
CommandButton1_Click()
p>
n
=
Val(TextBox1)
'Obtener el número de palabras leídas
t
=
Val(TextBox2)
'Obtener el intervalo entre lecturas de palabras (segundos)
m
=
ActiveCell.Row
' Obtiene el número de fila de la celda actualmente activa
c
=
ActiveCell. Column
'Obtiene el número de columna de la celda actualmente activa
b
=
m
n
-
1
'Cuando se alcance el número requerido de palabras, cuente el número de líneas en la última línea,
Anterior
Error
Continuar
Siguiente
Llamar
speakcontrol
'Llamar al proceso de control de voz
Tingxie.Hide
End
Sub
Haz doble clic en Cancelar y haga clic en Ingrese el siguiente contenido:
Privado
Sub
CommandButton2_ Click()
tingxie.
Fin
Sub
(2) Crear un proceso de control de lectura
La función de este proceso de control de lectura es determinar la celda de lectura y controlar la palabra intervalo durante el proceso de lectura. Si después de completar la tarea de lectura establecida, salga del programa.
Utilice el mouse para hacer clic en "VBAProject
(PERSONL. **** La declaración de variables, la creación del proceso de control de lectura y el trabajo del proceso de lectura.
Introduzca lo siguiente en él:
Público
a,
b,
c,
m,
n,
t
Como
Entero
'Definir variables públicas
Sub
' talkcontrol()
Dim
p,
q
=
ActiveSheet.Cells(1,
1).SpecialCells(xlLastCell).Row
'Obtener la última fila de la hoja de cálculo
Activada
Error
Reanudar
Siguiente
Si
t
lt;
10
Entonces
p
=
"00：.00：0"
amp;
t
'Método para calcular p cuando el tiempo es de 10 segundos o menos
Else
p
=
"00:00:"
amp;
t
' Cuando el tiempo es de 10 segundos o más método para calcular p. Calcular p
Fin
Si
Si
m
gt;
b
O
m
gt;OnTime
Ahora
TimeValue (p),
"wordspeak"
'Llamar al proceso de lectura dentro del intervalo de tiempo establecido
Fin
Si
Fin
Sub
Consejo:
Aquí se incluyen instrucciones adicionales sobre el cálculo del intervalo de tiempo p. Dado que el intervalo de tiempo t puede ser de 1 dígito o 2 dígitos dentro del rango de 60 segundos, y los métodos para calcular p también son diferentes, primero debemos juzgar el número de dígitos de t y luego elegir el método apropiado para calcular p.
(3) Implementación de tareas de lectura específicas
El proceso de control de lectura anterior no implementa específicamente el trabajo de lectura, y el trabajo de lectura se completa mediante el proceso de lectura. En el proceso de control de lectura anterior a continuación, cree un proceso de lectura para palabras habladas de la siguiente manera:
Sub
wordspeak()
Activado
Error
Reanudar
Siguiente
Aplicación. Hablar
a
'Di el texto de la unidad configurada en el grid
m
=
m
1
'Cuenta los número de filas en celdas habladas
Llamar
speakcontrol
Hablar. p>
'Llamar al proceso de control de lectura
End
Sub
La función de este proceso es leer en voz alta, y en la celda que se lee en voz alta Agregue 1 al número de filas, baje a la siguiente celda y luego regrese al proceso de control de lectura, que determina si se continúa leyendo la palabra hacia abajo.
(4) El proceso de creación de una macro de inicio
Aunque hay tablas y procesos de control y lectura relacionados arriba, todavía falta un proceso de macro de inicio.
Cree un nuevo proceso debajo del proceso anterior, llamado Dictado ", con el siguiente contenido:
Sub
Dictado ()
tingxie.Show
'Mostrar la ventana de configuración de dictado
End
Sub
El contenido de los módulos anteriores se muestra en la Figura 3 (Figura 3). Para facilitar su uso, puede descargarlo directamente desde el disco en la nube y luego copiarlo y pegarlo (
Contraseña 8r2m).
Consejo:
Para ejecutar una macro, primero debe ir a la pestaña Herramientas de desarrollo, hacer clic en el botón Seguridad de macros y luego ir a "Configuración de macros" y seleccionar "Habilitar todo". macros" (opción inferior).
Después de que la depuración sea correcta en Excel
2016, puede ejecutar el programa. Primero, haga clic en la celda superior de la columna de palabras que desea leer en voz alta, haga clic en el botón "Macro" en la pestaña "Herramientas de desarrollo" y haga clic en el botón "Macro" en el botón "Macro" emergente. Seleccione "Dictado". " (opción inferior) en el cuadro de diálogo de selección. Macro, luego haga clic en el botón Ejecutar e ingrese Configuración de recuento de palabras, Configuración del programa de dictado y Configuración del programa de dictado en el cuadro de diálogo emergente; Espaciado de palabras de dictado; una vez determinado, se puede realizar el entrenamiento de dictado en inglés.