Usted debe crear un formulario a su gusto, luego usted insertara el siguiente codigo realizado en VS 6.0:
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
TextBox1.Enabled = False
Else
TextBox1.Enabled = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = False Then
TextBox2.Enabled = False
Else
TextBox2.Enabled = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = False Then
TextBox3.Enabled = False
Else
TextBox3.Enabled = True
End If
End Sub
Private Sub CheckBox4_Click()
End Sub
Private Sub CommandButton1_Click()
Sheets("hoja1").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3.Value
ActiveCell.Offset(0, 1).Select
If OptionButton1.Value = True Then
ActiveCell = "soltero"
Else
If OptionButton2.Value = True Then
ActiveCell = "casado"
Else
If OptionButton3.Value = True Then
ActiveCell = "Union Libre"
End If
End If
End If
ActiveCell.Offset(0, 1).Select
If OptionButton5.Value = True Then
ActiveCell = "Estudiante"
Else
ActiveCell = "Vago"
End If
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub CommandButton2_Click()
' esta accion limpia los objetos que se ha ingresado
TextBox1.Value = Empty
TextBox3.Value = Empty
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
End Sub
Private Sub CommandButton3_Click()
Unload UserForm1
End Sub
Private Sub CommandButton4_Click()
Dim a As Double
a = TextBox2.Text
If a > 9999999999# Then
MsgBox ("Cedula fuera del rango (mayor a 10 digitos)")
CommandButton5.Enabled = False
Else
If a < 999999999 Then
MsgBox ("Cedula fuera del rango (menor a 10 digitos)")
CommandButton5.Enabled = False
End If
End If
If a >= 1000000000 And a <= 9999999999# Then
MsgBox ("rango correcto")
CommandButton5.Enabled = True
End If
End Sub
Private Sub CommandButton5_Click()
Dim i, dec_prox As Integer
Dim aux As Double
Dim cifra As Integer
Dim val_imp As Integer
Dim val_par, val_total As Integer
Dim dig_ver As Integer
For i = 1 To 9
If (i Mod 2) = 0 Then
cifra = Val(Mid(TextBox2.Text, i, 1))
val_par = val_par + cifra
Else
cifra = Val(Mid(TextBox2.Text, i, 1)) * 2
val_imp = val_imp + IIf(cifra < 9, cifra, cifra - 9)
End If
Next
Total = val_par + val_imp
For i = 1 To 9
aux = (Total + i) Mod 10
If aux = 0 Then
dec_prox = Total + i
Exit For
Else
dec_prox = Total
End If
Next
dig_ver = dec_prox - Total
'MsgBox (dec_prox)
'MsgBox (Total)
'MsgBox (Val(Mid(TextBox2.Text, 10, 1)))
If dig_ver = Val(Mid(TextBox2.Text, 10, 1)) Then
MsgBox ("cedula correcta, adios")
Else
MsgBox ("cedula incorrecta")
End If
End Sub
Private Sub Frame2_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48) Or (KeyAscii > 57) Then
KeyAscii = 0
MsgBox "Solo se aceptan números", vbOKOnly + Exclamation, "Atencion"
End If
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Ya se que debe ser tedioso este asunto pero asi debe ir la parte de programacion. Listo entonces
Felipe Ochoa E.
