Validar cedula de identidad excel con VS 6.0

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.

La verdadera realidad de un hincha del Depresivo Chikitolina que desea el progreso

Saludos Cordiales



En este video podemos evidenciar la verdadera realidad de un hincha del depresivo Chikitolina que esta desesperado por el progreso y ve como su equipo (el cual es una desepcion nacional) pierde ante uno de los grandes, es decir el REY DE COPAS ecuatoriano, el mejor equipo que ha tenido nuestro querido pais en toda la historia del futbol ecuatoriano y del planeta tierra.

Esta campaña demuestra que, cada dia mas quedan menos hinchas del Depresivo Chiquitolina y que nuestra hinchada (la del REY DE COPAS del Ecuador, es decir Liga deportiva Universitaria)  que es el mejor del mundo señores!!!

Atentamente,



Ing. Felipe Ochoa Espin

Video inedito de mana, un poema cantado de Pablo Neruda

.

A mi en lo particular este video me gusto, en especial por la letra, es chevere, espero que les guste.

Atentamente,


Felipe Ochoa E.