lunes, 7 de noviembre de 2011

KocyeangHu.

MID, RIGHT, LEFT.

KocyeangHu.

Calculadora.

KocyeangHu.

Calculadora 1era Parte.
Practica 3.4

practica 3.7

practica 3.7

Practica 3.7




3.7

Practica 3.7

CLICK
https://docs.google.com/open?id=0B2ROV77J4pzEMjNkNzgxODgtMWI4My00ZTJmLWEzMWQtNzRmMjkwNzBjMGE3

Práctica 3.6

Mid, left, right, borrar espacios en blanco.

Miguel Fernando Juárez Moyrón
502

Practica 3.7

Macro

practica 3.6

borrar espacios

practica 3.7

https://docs.google.com/open?id=0B4b0D88H-MS7NzljMjg0ZmQtZGFkZi00YTc2LWIxNGEtYTc2Zjk0OWQyOTY3

practica 3.7

hola

practica 3.7

practica 3.7

Código Botón Acepar Agenda BB

'Declaramos variable que nos permite manipublar las filas o renglones.
Dim Renglon As Integer
Renglon = 1
'Códgo para recorrer los datos que tenemos ya en nuestra hoja de cálculo y saber donde guardar el último dato.
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
'Asignamos los datos contenidos en el formulario a la hoja de cálclo.
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
ActiveSheet.Cells(Renglon, 4) = txtcorreo.Text
'Código para limpiar los cadros de texto despues de guardar en la hoja de calculo.
txtNombre.Text = ""
txtPin.Text = ""
txtcorreo.Text = ""
'Poner el cursor en el cuadro de texto del nombre
txtNombre.SetFocus

practica 3.7

aqui

Espacios en Blanco

Practica3.6

Agenda

Agenda BB

PRACTICA 3.6

RPACTICA 3.6

PRACTICA 3.2

PRACTICA 3.2

PRACTICA 3.1

PRACTICA3.1