Muchas personas no saben que el PPT, el uso de VBA fácil recuperación de los datos en Excel, a través de una diapositiva puede hacer una serie de ejercicios. La siguiente serie pequeña sólo echar un vistazo a cómo el PPT y la combinación perfecta de Excel para hacer los ejercicios. En el aula, muchos profesores son los ejercicios de clase con PPT. En general, el número de ejercicios de carretera en el número de diapositivas utiliza. Este enfoque guarda un inconveniente: que se deslizan en unas preguntas de la prueba unificados con el fin de modificar la fuente o el tamaño de la fuente, es necesario modificar uno por uno. Si las preguntas utilizadas en la diapositiva menos, este enfoque estaba bien, sin embargo, si tenemos en cuenta que hay docenas, cientos de diferentes ejercicios, uno por uno, si desea modificar, entonces es una muy molesto, una cuota de Dios cosa. El autor a través de la investigación continua, y, finalmente, se le ocurrió un método muy eficaz: el número de preguntas que necesitan ser almacenados en una hoja de cálculo de Excel, y luego usar VBA en Excel PPT para leer los datos de hoja de cálculo para deslizar , de modo que sólo una diapositiva puede practicar varios ejercicios de la carretera. Para modificarlo, sólo se necesita modificar esta una diapositiva en el cuadro de texto en él. Si quieres saber cómo se implementa este método, por favor, ven conmigo! Preparaciones Sheets y Slides este proceso es principalmente listo para depositar las preguntas y las preguntas de la presentación de diapositivas hoja de cálculo Excel. En primer lugar, preparar un archivo de Excel, almacenarlo en las preguntas requeridas Hoja1 hoja de cálculo y el archivo de Excel y archivos de PPT en la misma carpeta. A continuación, abra PowerPoint 2003, insertar una diapositiva en blanco. En esta diapositiva para insertar dos cuadros de texto, su papel es un tema para los papeles de almacenamiento, uno para almacenar la respuesta correcta (preguntas almacenadas en el cuadro de texto del título puede introducir una declaración sugestiva, almacenamiento correcto la respuesta puede ser en el cuadro de texto para introducir un espacio) (Figura 1). Por último, seleccione y " espectáculo de diapositivas y rarr; botón de acción y " menú, un botón de operación 5 se inserta en el lugar de la diapositiva. Haga clic con el botón de acción correspondiente para agregar texto correspondiente (Fig. 2) de la misma. Añadir un código VBA para hacer esto es escribir el control principal hoja de cálculo Excel y PPT desliza caja china en código VBA. La mención de la escritura de código, que puede ser un poco Fan Yun. De hecho, el código del programa no es tan misterioso, donde se puede estar por primera vez en mi código introducido o copiado en el archivo, y luego ver si te explico, todo es mucho más simple! En primer lugar, elegimos " Herramientas y rarr; macro y rarr; Editor de Visual Basic y " menú, entonces se abrirá la ventana de Microsoft Visual Basic, que es el editor de VBA. Seleccionar y " insertada y rarr; módulo y " menú, esta vez en el lado derecho se puede ver una edición de código de área en blanco, podemos tratar de introducir el código (Fig. 3). Mirando el código, confundido algunos de ellos! No importa, me miras se lo explique, de repente se ve la luz. En el código anterior, se define en primer lugar por xlApp Pública, xlBook, xlSheet, i cuatro variables, los tres primeros se utilizan para controlar la hoja de cálculo Excel, i se utiliza para indicar el número actual de filas en la hoja de cálculo de Excel. A continuación, el 5 " Sub … End Sub " define cinco procedimiento de evento, los eventos VBA están, cada proceso tiene un nombre correspondiente entre Sub y End Sub, tales como examen abierto ( ), la siguiente pregunta () y así sucesivamente. Ahora vamos a explicar de " examen abierto () y " este proceso: Conjunto xlApp = CreateObject (" Excel.Application ") se utiliza para crear un control de Excel; xlApp.Visible = False indica que el control no es visible que Excel está oculto no dejar que se muestran en la ventana actual; xlBook Set = xlApp.Workbooks.Open (CurDir () + " \\ book1.xls ") representa Excel para abrir el archivo con el nombre book1.xls, CurDir () indica el directorio actual. Conjunto xlSheet = xlBook.Worksheets (1) representa la primera una hoja de cálculo autoridad Sheet1 control de libro de trabajo que se asigna a xlSheet. ActivePresentation indican la presentación activa en ese momento. .Slides (1) representa la primera presentación de una diapositiva, .Shapes (1) representa la primera diapositiva en un cuadro de texto. .TextFrame.TextRange.Text dijo que el texto en el cuadro de texto. Nos conectamos a saber ActivePresentation.Slides (1) .Shapes (1) .TextFrame.TextRange.Text representa el contenido actual de la presentación de una diapositiva de un cuadro de texto. xlSheet.Range (" a " &i) representa el valor de una celda en Sheet1, ahora i = 3, para obtener la celda de valor A3. Acción Reemplazar función es la de reemplazar, Chr (10) representan un carácter de nueva línea, Chr (13) representan un retorno de carro, Reemplazar (xlSheet.Range (" b " &i), Chr (10), Chr (13)) a Alternativamente expresado la celda B3 a un avance de línea de retorno de carro. Y " &" funciones conectadas a este símbolo, que se utiliza para forzar el valor de diferentes tipos de conexión. La totalidad de los ActivePresentation.Slides frase (1) .Shapes (1) .TextFrame.TextRange.Text = xlSheet.Range (" a " &i) &", " &Reemplazar (xlSheet.Range (" valor más Alternativamente B3 será caracteres de nueva línea de retorno de carro después; b " &i), Chr (10), Chr (13)) muestra un valor de Sheet1 en la celda A3 plus y ", &" asignado a deslizarse a lo largo del primer cuadro de texto. In " valor en este proceso, i = i + 1 representa la hoja de cálculo actual una fila hacia abajo, es decir, fila 3 es ahora, después de i + 1 puede tomar la cuarta fila; siguiente pregunta () y " . Este proceso se aplica IF juicio condicional, el juicio no se tiene por qué examen final, si xlSheet.Range (" " &i) el valor no está vacío, para tomar el valor correspondiente se asigna a la caja de texto del título, de lo contrario, la MsgBox () función de mensajes del sistema. Mientras tanto, a fin de no provocar muestra la respuesta correcta, ActivePresentation.Slides (1) .Shapes (2) .TextFrame.TextRange.Text = " " denotar dejar diapositiva en el segundo cuadro de texto que es el cuadro de texto respuesta correcta se muestra como un espacio. Explica tanto, y ahora entiendo algo de él? A continuación, otros procesos son similares y lo que significa, que comprenden entender entender. Añadir a cada botón es un botón para añadir un evento para este proceso, principalmente correspondientes caso de que proceso. Por ejemplo, nos damos de " la respuesta correcta y " en este botón para añadir un evento, podemos hacer clic derecho sobre él y seleccione y " la acción SET " menú, el pop-up " acción establecido y " ventana, seleccionar y " ejecutar la macro y ", Haga clic la flecha a la derecha para seleccionar el proceso adecuado, el último clic y " la determinación y " a. Agregar otro eventos de botón y es la misma razón (Figura 4). Activar código VBA con el fin de hacer que estos eventos que son las obras de código VBA, tenemos que ajustar la seguridad de macros. Seleccionar y " Herramientas y rarr; macro y rarr; la seguridad y ", la seguridad de macros está establecido en " ", tan baja que puede ejecutar código VBA (Figura 5) sin problemas. Después de la terminación de los resultados anteriores demuestran, podemos mostrar la diapositiva. En uso, primero haga clic en y " examen abierto y " botón, a continuación, será mostrando examen en la primera pregunta, basta con hacer clic en el botón " la respuesta y " correcta; se mostrará la respuesta correcta al botón tema correspondiente; si hace clic en " siguiente pregunta y " botón, el tema será cambiado, y no se mostrará la respuesta correcta a la pregunta siguiente. Si piensa que la respuesta correcta o la fuente del título, tamaño, color, etc., no son demasiado satisfecho, sólo es necesario para establecer el formato de cuadro de texto correspondiente en la línea. Mira, este método no es particularmente Shuangya! Usando este método, usted tiene no importa cómo muchas preguntas, no se apresure a tratar (Figura 6)! ******************* Código ************* xlApp Pública, xlBook, xlSheetPublic I como examen abierta IntegerSub () Set xlApp = CreateObject (" Excel.Application ") xlApp.Visible = FalseSet xlBook = xlApp.Workbooks.Open (CurDir () + " \\ book1.xls ") Set xlSheet = xlBook.Worksheets (1) i = 3ActivePresentation.Slides (1) .Shapes (1) .TextFrame.TextRange.Text = xlSheet.Range (" a " &i) &", " &Reemplazar (xlSheet.Range (" b " &i), Chr ( 10), Chr (13)) End subsub siguiente pregunta () i = i + 1Si xlSheet.Range (" a " &i) < > " " ThenActivePresentation.Slides (1) .Shapes (2 ) .TextFrame.TextRange.Text = " " ActivePresentation.Slides (1) .Shapes (1) .TextFrame.TextRange.Text = xlSheet.Range (" a " &i) &", " &Reemplazar (xlSheet.Range (" b " &i), Chr (10), Chr (13)) ElseMsgBox ("! tener la última pregunta en un ") una pregunta sobre End IfEnd subsub () i = i - 1Si xlSheet.Range (" a " &i) < > " " O r xlSheet.Range (" a " &i) < > " ID " ThenActivePresentation.Slides (1) .Shapes (2) .TextFrame.TextRange.Text = " " ActivePresentation.Slides (1) .Shapes (1) .TextFrame.TextRange.Text = xlSheet.Range (" a " &i) &", " &Reemplazar (xlSheet.Range (" b " &i), Chr ( 10), Chr (13)) ElseMsgBox (" ya la primera pregunta! &Quot;) End IfEnd subsub respuesta correcta () ActivePresentation.Slides (1) .Shapes (2) .TextFrame.TextRange.Text = xlSheet.Range (" C " &i) End subsub de examen () xlBook.Close ( falso) xlApp.QuitSet xlApp = NothingEnd Sub de la casa [el sistema] www.xp85.com