Programación de consultas de formularios Vba

Esto no es difícil. Déjame intentar agregar mi nombre. Enviar archivos adjuntos.

El código del formulario es el siguiente:

Nivel aaa secundario ()

Dim mrow As Long

mrow = Range("a65536 "). final (xlArriba). Fila 1

Rango(" a " ampmrow) = TextBox1. valor

Rango(" c " ampmrow) = TextBox2. valor

Rango(" b " ampmrow) = ComboBox1. valor

rango(" d " ampmrow) = ComboBox2. valor

Rango(" e " ampmrow) = ComboBox3. valor

Rango(" f " ampmrow) = TextBox3. Valor y valor. "Mín"; cuadro de texto 4. Valor y valor. "Segundos"

Rango(" f " ampmrow) = TextBox4. Valor

Si OptionButton1. entonces valor = verdadero

rango(" g " ampmrow) = OptionButton1. Título

Botón de opción ElseIf 2. luego valor = verdadero

rango(" g " ampmrow) = botón de opción 2. Título

Botón de opción ElseIf 3. luego valor = verdadero

rango(" g " ampmrow) = botón de opción 3. Título

Termina si...

Conector final

Sub privado UserForm_Initialize()

ComboBox1. AddItem "Masculino"

ComboBox1. AddItem "Mujer"

ComboBox2. AddItem "Doctor"

ComboBox2. AddItem "principal"

ComboBox2. AddItem "Universidad"

ComboBox2. AddItem "Escuela Secundaria"

ComboBox2. AddItem "Junior"

ComboBox3. AddItem "Primer grupo"

ComboBox3. AddItem "Segundo Grupo"

ComboBox3. El tercer grupo

ComboBox3. El cuarto grupo

Conector final

Private subquery_Click()

Dim mcol es un número entero

Dim mrow1 tiene la misma longitud

p>

mrow1 = Rango("A:A"). Buscar (TextBox1.valor). Organizar

Cuadro de texto 2. valor = Rango(" c " & mrow1)

Cuadro de texto 4. valor = Rango(" f " & mrow1)

ComboBox1. valor = Rango(" B " & mrow1)

ComboBox2. valor = Rango(" D " & mrow1)

ComboBox3. valor = Rango(" E " ampmrow1)

Si rango(" G " ampmrow1). valor = BotónOpción1. Título Luego

Botón de opción 1.

valor = 1

elsefRange("G" ampmrow1). valor = botón de opción 2. Título Luego

Botón de opción 2. valor = 1

elsefRange("G" ampmrow1). valor = botón de opción 3. Título Luego

Botón de opción 3. Valor = 1

Terminará si...

Conector final

Subprivado claro data_Click()

Cuadro de texto 1. valor = " "

Cuadro de texto2. valor = " "

ComboBox1. valor = " "

ComboBox2. valor = " "

ComboBox3. valor = " "

Cuadro de texto 4. value=" "

Botón de opción 1. Valor = 0

Botón de opción 2. Valor = 0

Botón de opción 3. Valor = 0

Conector final

Subagregación privada _Click()

Llamar aaa

MsgBox "Agregar correctamente", 64

Conector final

Sub privado exit_Click()

Descargar formulario de usuario 1

Conector final

Sub privado modificar _Click ()

Dim mcol es un número entero

Dim mrow1 tiene la misma longitud

mrow1 = Range("A:A "). Buscar (TextBox1.valor). Fila

(mrow1). Eliminar

Llamar aaa

MsgBox "Modificación exitosa", 64