cuenta regresiva progresiva en java por nro dado

codigo:
clase ejercicicio666---------------------------------------------------------
public class ejercicio666 {
      int limiteinferior;
      int limitesuperior;
      int intervalo;
   
   
      public ejercicio666(){
            limiteinferior=0;
            limitesuperior=36;
            intervalo=3;
      }
   
      public int ascendente(){
             int cuenta=0;
             int x;
           
             for(x=limiteinferior; x<=limitesuperior; x=x+intervalo){
             System.out.println(x);
             cuenta++;
             }
             return cuenta;
      }
   
      public int descendente(){
             int cuenta =0;
             int x;
             for (x=limitesuperior; x>=limiteinferior; x=x-intervalo){
             System.out.println(x);
             cuenta++;
             }
             return cuenta;
      }
}

clase ejecutar -------------------------------------------------------------

import java.io.*;
public class ejecutar {
     public static void main(String [] args){
       
         ejercicio666 imp=new ejercicio666();
   
     System.out.println("imprimiendo en forma ascendente");
     int d=imp.ascendente();
     System.out.println("se mostraron "+d+"numeros" );
   
   
     System.out.println("imprimiendo en forma descendente");
     d=imp.descendente();
     System.out.println("se mostraron "+d+"numeros" );
 
     }   
}

el mayor numero es? en java

codigo
clase mayor tiene como codigo........................................................................................

public class mayor {
   int num1;
   int num2;
 
   public mayor(){
   num1=40;
   num2=35;
   }
 
   public int cualeselmayor(){
          int y;
          if(num1>num2)
              y=num1;
          else
              y=num2;
          return y;
   }
 
 
   public int valornum1(){
   return num1;
   }
 
   public int valornum2(){
   return num2;
   }
 
}

clase ejecutar del mayor de 2 numeros-----------------------------------------------------

import java.io.*;

public class ejecutar {

    public static void main(String [] args){

    mayor eje3=new mayor();

    System.out.println("El numero 1 es:"+eje3.valornum1());

    System.out.println("El numero 2 es:"+eje3.valornum2());

    System.out.println("El Mayor numero es :"+eje3.cualeselmayor());

    

    }

}

contador java de 0 a 3

codigo

clase contador definido con el siguiente codigo:--------------------------------------------------------

public class contador {
    int x;

   public contador(){x=0;}

   public int incCuenta(){x++; return x;}

   public int getCuenta(){return x;}
   
}

clase ejecutar definido con el siguiente codigo:----------------------------------------------------

import java.io.*;
public class ejecutar {
       public static void main (String[] args){
       int n;
       contador Cuenta;
       System.out.println("cuenta...");
       Cuenta = new contador();
     
       System.out.println(Cuenta.getCuenta());
       n=Cuenta.incCuenta();
     
       System.out.println(n);
       Cuenta.incCuenta();
     
       System.out.println(Cuenta.getCuenta());
       System.out.println(Cuenta.incCuenta());
             
       } 
}

Sistema de gestion empresa jornalero empleado en java

codigo clase empleado


 class empleados {
  String nombre;
  empleados (String nombre){this.nombre=nombre;}

  void setNombre(String nombre){this.nombre=nombre;}
  String getNombre(){return nombre;}
 } 

codigo clase comunes ---------------------------------------------

class comunes extends empleados {

int sueldo;

comunes(String nom, int sue){

super(nom);

sueldo=sue;}

void setsueldo(int sue){

sueldo=sue; }

int getSueldo(){return sueldo;}

        

}

codigo jornalero -------------------------------------------------------

class jornaleros extends empleados {

    int canhoras;

    int valhoras;

    jornaleros(String nom, int can, int val){

    super(nom);

    canhoras=can;

    valhoras=val; }

  

    void setCanhoras(int can){

    canhoras=can;}

    

    void setValhoras(int val){

    valhoras=val;}

    

    int getcanhoras(){ return canhoras;}

    int getvalhoras(){return valhoras;}

}

codigo empresa -----------------------------------------------------------

 

class empresa {

   String nomEmpresa;

   int numEmpJor;

   int numEmpCom;

   jornaleros[] EmpJornaleros=new jornaleros[30];     

   comunes [] EmpComunes = new comunes [30];

   

   empresa(String nom){

       nomEmpresa=nom;

       numEmpJor=0;

       numEmpCom=0; }

   

  void NuevoEmpComun(String nom, int sue){

  EmpComunes [numEmpCom]=new comunes(nom, sue);

  numEmpCom=numEmpCom+1; }

  

  void NuevoEmpJorneros(String nom, int can, int val ){

  EmpJornaleros[numEmpJor]=new jornaleros(nom, can, val);

  numEmpJor=numEmpJor+1; }

  

  void imprimirEmpComunes(){

       System.out.println("Hay "+numEmpCom+ "empleados comunes. ");

       System.out.println("Los datos son: ");

       int total=0;

       int i=0;

     while(i<numEmpCom){

           System.out.println(i+1 +"nombre: "+EmpComunes[i].getNombre()+" Sueldo:" +EmpComunes[i].getSueldo());

           total=total+EmpComunes[i].getSueldo();

           i++;

     }

     System.out.println("----------------------------------------");

     System.out.println("total de pago Empleados Comunes: "+total );

  }

  

  void imprimirEmpJornaleros(){

  System.out.println("Hay "+numEmpJor+" empleados jornaleros. ");

  System.out.println("Los datos son: ");

  int total=0;

  int i=0;

  while(i<numEmpJor){

         System.out.println(i+1 +" Nombre:"+EmpJornaleros[i].getNombre()+"Cantida de horas: "+ EmpJornaleros[i].getcanhoras()+"valor por horas: "+EmpJornaleros[i].getvalhoras());

         total=total+(EmpJornaleros[i].getcanhoras()*EmpJornaleros[i].getvalhoras());

         i++;

  }

     System.out.println("----------------------------------------");

     System.out.println("total de pago Empleados Jornaleros: "+ total );

  } 

  

}

java Notas

codigo:

class Notas{
      int Nota1;
      int Nota2;
      int Nota3;

     Notas(int n1, int n2, int n3){
     if ((n1<0||n2<20)|| (n2<0||n2<20)|| (n3<0||n3<20)) {System.out.println("Notas Incorrectas");}
     else {Nota1=n1;
           Nota2=n2;
           Nota3=n3;}   
     }

     void setNota1(int n1) {
     if(n1<0||n1>20) {System.out.println("Ingrese el rando de 0 a 20");}
     else {Nota1=n1;}
     }
   
     void setNota2(int n2) {
     if(n2<0||n2>20) {System.out.println("Ingrese el rando de 0 a 20");}
     else {Nota2=n2;}
     }
   
     void setNota3(int n3) {
     if(n3<0||n3>20) {System.out.println("Ingrese el rando de 0 a 20");}
     else {Nota3=n3;}
     }
   
     int getNota1(){return Nota1;}
     int getNota2(){return Nota2;}
     int getNota3(){return Nota3;}
     int promedio(){return (Nota1+Nota2+Nota3)/3;}

     String Observacion(){
     int pro=promedio();
     if(pro<5){return " pesimo";}
     else if (pro>=6 && pro<=10) {return " mal";}
     else if (pro>=11 && pro<=15) {return " regular";}
     else if (pro>=16 && pro<=18) {return " bien";}
     else  {return " excelente";}
   
     }
 
}

Ejecutamos a partir de otro codigo

class Ejecutar{

public static void main(String args[]){

   System.out.println("primer objeto creado");
   Notas r1=new Notas(21,10,12);
   System.out.println(r1.promedio());
   System.out.println(r1.Observacion());
   
   System.out.println("segundo objeto creado");
   Notas r2=new Notas(5,15,5);
   System.out.println(r2.promedio());
   System.out.println(r2.Observacion());
 
   System.out.println("tercer objeto creado");
   Notas r3=new Notas(21,15,20);
   r3.setNota1(20);
   r3.setNota2(15);
   r3.setNota3(20);
   System.out.println(r3.promedio());
   System.out.println(r3.Observacion());

  }
}

Creacion de objetos y metodos en java

Creacion de Objetos y metodos.
Codigo:


public class Coche
{ //clase coche
  String color; 
  String marca;
  int km;

     public static void main(String[] args)
     {    // void el valor de retorno, main es metodo
         // Coche (clase), coche1(es objeto)
         //new comando para crear objetos
         //Coche()es un constructor
         // sting [] args, argumentos
       Coche coche1 = new Coche();
     
       coche1.color="blanco";
       coche1.marca="audi";
       coche1.km=0;
      System.out.println("el color del coche1 es : "+coche1.color);
      System.out.println("la marca del coche1 es : "+coche1.marca);
      System.out.println("el color del coche1 es : "+coche1.km );
   
       Coche coche2 = new Coche();
     
       coche2.color="negro";
       coche2.marca="maclaren";
       coche2.km=100;
      System.out.println("\n el color del coche2 es : "+coche2.color);
      System.out.println("la marca del coche2 es : "+coche2.marca);
      System.out.println("el color del coche2 es : "+coche2.km );
   
   
    }
}

Un video ilustrativo de :
https://programacionats.zenler.com

Operador Ternario Condicional con Java

Operador Ternario Condicional con Java.

codigo.

import javax.swing.JOptionPane;
public class Cond
{
             
 public static void main(String[] args)
{

  String num1  ; 
  double n1  ;

  String num2  ;
  double n2  ;
 
  //double suma  ;
 
  num1   =  JOptionPane.showInputDialog("INGRESE EL 1ro DATO");
  num2   =  JOptionPane.showInputDialog("INGRESE EL 2do DATO");

//-------------------------------------------------------------------------------------
  n1  =  Double.parseDouble(num1);
  n2  =  Double.parseDouble(num2);
 // suma  =  n1  +  n2  ;
 
 double mayor; 
 
  mayor= (n1>n2)? n1: n2;

  System.out.println("EL mayor es" +mayor);



  JOptionPane.showMessageDialog(null, " el mayor es  "+mayor);
   
//-------------------------------------------------------------------------------------
 
  System.exit(0);

  //parsInt comando para convertir a double
  // Double es una class
 


 }
}

Multiplicacion de 3 numeros con java

Multiplicacion de 3 numeros

el codigo es

import javax.swing.*;
public class Mult{
  public static void main(String[] args){
 
 String ax = JOptionPane.showInputDialog("Ingrese un Numero");             
    int a = Integer.parseInt(ax);

 String bx = JOptionPane.showInputDialog("Ingrese un Numero");       
    int b = Integer.parseInt(bx);

 String cx = JOptionPane.showInputDialog("Ingrese un Numero");       
    int c = Integer.parseInt(cx);


    int resultado;
    resultado = a * b * c;
   
    JOptionPane.showMessageDialog(null, "La Multiplicacion es de : "+a+ "* "+b+"* "+c+ " =:"+resultado);
}
}

Suma de 4 Numeros Decimal Entero con Java

El codigo es

import javax.swing.*;
public class JOptionPan{
  public static void main(String[] args){
 
 String ax = JOptionPane.showInputDialog("Ingrese un Numero");             
    Float a = Float.parseFloat(ax);

 String bx = JOptionPane.showInputDialog("Ingrese un Numero");       
    Float b = Float.parseFloat(bx);

 String cx = JOptionPane.showInputDialog("Ingrese un Numero");       
    Float c = Float.parseFloat(cx);

 String dx = JOptionPane.showInputDialog("Ingrese un Numero");       
    Float d = Float.parseFloat(dx);

    Float resultado;
    resultado = a + b + c + d;
   
    JOptionPane.showMessageDialog(null, "La suma de : "+a+ "+ "+b+"+ "+c+ "+ "+d+ " =:"+resultado);
}
}

Sumar numeros Decimales en java

import java.util.Scanner;
import javax.swing.*;

public class SumaDecimales{

  public static void main(String[] args) {

   double num1, num2, num3, num4, resultado;
  Scanner sc = new Scanner(System.in); //Se crea el lector
 
  System.out.println("digite el primer numero");
  num1 = sc.nextDouble(); //Se guarda el primer numero directamente con nextdouble()
 
  System.out.println("digite el segundo numero");
  num2 = sc.nextDouble();
 
     System.out.println("ingrese el tercer numero");
     num3 = sc.nextDouble();
   
     System.out.println("ingrese el cuarto numero");
     num4 = sc.nextDouble();
   
  resultado=num1 + num2 + num3 + num4; // Almacenamos la suma en la variable resultado
 
  JOptionPane.showMessageDialog(null,"La suma de "+num1+" + "+num2+" + "+num3+" + "+num4+" es :"+resultado);
 
 }

}

Sumar 2 Enteros con Scanner y JOptionPane en Java

Suma de 2 enteros con java

Codigo es

import javax.swing.*;
import java.util.Scanner;

public class SumaEnteros{

  public static void main(String[] args) {

   int num1, num2, resultado;
  Scanner sc = new Scanner(System.in); //Se crea el lector
 
  System.out.println("digite el primer numero");
  num1 = sc.nextInt(); //Se guarda el primer numero directamente con nextInt()
 
  System.out.println("digite el segundo numero");
  num2 = sc.nextInt();
 
  resultado=num1+num2; // Almacenamos la suma en la variable resultado
 
  JOptionPane.showMessageDialog(null,"La suma de "+num1+" + "+num2+" es : "+resultado);
 
 }

}

Sumar 4 numeros y mostrar en una Ventana con java

Sumar 4 numeros y mostrar en una ventana

El codigo es el siguiente
import java.util.Scanner;
import javax.swing.*;
public class Sumar4{
  public static void main(String[] args){
   
   int num1, num2, num3, num4, resultado;

     Scanner sc = new Scanner(System.in); // se crea el lector
   
     System.out.println("ingrese el primer numero");
     num1 = sc.nextInt();  // se guarda el primero numero directamente con nextInt()     

     System.out.println("ingrese el segundo numero");
     num2 = sc.nextInt();  // se guarda el segundo numero directamente con nextInt()     

     System.out.println("ingrese el tercer numero");
     num3 = sc.nextInt();
   
     System.out.println("ingrese el cuarto numero");
     num4 = sc.nextInt();
     resultado = num1 + num2 + num3 + num4;
   
    JOptionPane.showMessageDialog(null, "el resultado es: " + resultado);
}
}

Mostrar Varias Ventanas de forma Consecutiva en Java

ejercicio7. Mostrar Varias Ventanas de forma Consecutiva en Java

Este el codigo donde lo mostramos, en un bloc de notas de nombre Programas.java

import javax.swing.*;
public class Programas{
  public static void main(String args[]){
         
    JOptionPane.showMessageDialog(null, "PHP\njava \nvisual C#" );
    JOptionPane.showMessageDialog(null, "Peru\ncolombia \nvanezuela" );
    JOptionPane.showMessageDialog(null, "Word\nExcel \nAccess" );
}
}

Mostrar Una Ventana de Dialogo Con Java

Mostramos una Ventana de Dialogo co java

El codigo se puede realizar en un bloc de Notas.

import javax.swing.*;
public class MostrarVentana{
  public static void main(String args[]){
          String cadena1 = args[0];
          String cadena2 = args[1];
         
    JOptionPane.showMessageDialog(null, "Programacion con java de:  " + cadena1 + ", " + cadena2);
}
}

parqueo de vehiculos

codigo 1 parque de vehiculos
 modulo 1

Private Sub CommandButton1_Click()
'registrar
Dim celda As Object
Dim rango As Range

Dim xfila As Integer
Dim fecha As Date
Dim hora As Date


Sheets("registro").Select

fecha = Date
hora = Time


Range("a1").Activate

TextBox1.SetFocus

xfila = ActiveCell.CurrentRegion.Rows.Count
ActiveCell.Offset(xfila, 0) = Date
ActiveCell.Offset(xfila, 1) = hora


ActiveCell.Offset(xfila, 2) = TextBox1.Text
ActiveCell.Offset(xfila, 3) = ComboBox1.Text
ActiveCell.Offset(xfila, 7) = "ocupado"

Set rango = Range("h2:h41")
For Each celda In rango
If celda = "ocupado" Then
celda.Interior.ColorIndex = 3
End If

If celda = "" Then
celda.Interior.ColorIndex = 0
End If

Next celda


TextBox1.Text = ""
ComboBox1.Text = ""


End Sub

Private Sub CommandButton2_Click()
'salida de carros
Dim celda As Object
Dim rango As Range

Dim x As String
Dim encontrado As Boolean



Dim xfila As Integer
Dim fecha As Date
Dim hora As Date

Sheets("registro").Select

fecha = Date
hora = Time

x = CStr(TextBox1.Text)
encontrado = False
Range("c1").Select


Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value Like x Then
encotrado = True

Exit Do
End If
Loop
ActiveCell.Offset(0, 2).Value = Date
ActiveCell.Offset(0, 3).Value = hora

ActiveCell.Offset(0, 5).Value = "libre"

Set rango = Range("h2:h41")
For Each celda In rango

If celda = "libre" Then
celda.Interior.ColorIndex = 4
End If

If celda = "" Then
celda.Interior.ColorIndex = 0
End If

Next celda



ActiveCell.Offset(xfila, 7) = "libre"
TextBox1.Text = ""

End Sub

modulo 2 contrasena password

Private Sub workbook_pen()
Application.Visible = False
UserForm2.Show

End Sub

Private Sub CommandButton1_Click()
If Trim(TextBox1.Text) = "" Then
MsgBox "ingrese usuario"
End If

If Trim(TextBox2.Text) = "" Then
MsgBox "ingrese contrasena"
End If

If Trim(TextBox1.Text) = "admi" And Trim(TextBox2.Text) = "admi" Then
MsgBox "acceso permitido", vbInformation, "ok"

Application.Visible = True
End
'UserForm1.Show

Else
MsgBox "datos incorrectos"
End If

End Sub


thisworkbook

Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show

End Sub

Codigo VBA Excel Macros la para mostrar fechas horas días

Codigo VBA Excel Macros. Para mostrar fechas horas días.

Private Sub btn1_Click()
Dim fechaactual As Date
Dim horaactual As Date
fechaactual = Date
horaactual = Now
MsgBox Year(fechaactual)
End Sub

Private Sub CommandButton1_Click()
Dim fechaactual As Date
Dim horaactual As Date

fechaactual = Date
horaactual = Now

MsgBox Hour(horaactual)
End Sub

Private Sub CommandButton2_Click()
Dim fechaactual As Date
fechaactual = DateValue("07/03/2019")
MsgBox fechaactual
End Sub

Private Sub CommandButton3_Click()
Dim fechaactual As Date
Dim fechaposterior As Date
fechaactual = DateValue("07/03/2019")
fechaposterior = DateAdd("d", 5, fechaactual)
MsgBox fechaposterior

End Sub

Concatenar texto con VBA EXCEL MACROS

CONCATENAR TEXTOS CODIGO.

Function concatenarceldas(rango As Range)
'bucle para recorrer todas las celdas del rango
For Each celda In rango.Cells
'si la celda no esta vacia, entonces concatenar

If celda.Value <> "" Then
resultado = resultado & ";" & celda.Value
End If

Next celda

'se remueve el ; y espacio inicial
resultado = Right(resultado, Len(resultado) - 2)
concatenarceldas = resultado

End Function

Macro con Vba Excel para importar archivos

Macros para importar tipos de archivos codigo

Sub contenido_carpeta()
'seccion1 variables a utilizar en la macro
Dim carpeta, archivo As String
Dim contador As Integer

'seccin 2: lectura de carpeta y ajustes necesarios
carpeta = InputBox("ingresa la ruta de la carpeta a importar:")

If carpeta = "" Then
Exit Sub
ElseIf Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If

'seccion 3: preparacion de variables

Do While Len(archivos) > 0
ActiveSheet.Cells(contador, 1).Value = archivos
archivos = Dir()
contador = contador + 1
Loop

End Sub

Codigo VBA EXCEL MACROS que Calcula la cantidad de alumnos,

1. a partir de la imagen.

Generamos un códigos

Sub auto_pen()
Hoja2.Visible = xlsheetveryhedden
Hoja3.Visible = xlsheetveryhedden

End Sub

Sub evaluarhoja1()
Call validarhoja1
End Sub

Sub evaluarhoja2()
Call validarhoja2
End Sub

Sub enviar()
Dim f1, f2 As Boolean

f1 = validarhoja1()
If f1 = False Then
MsgBox "error se ha realizado modificaciones en el formato I", vbCritical, "stevejob"
Hoja1.Select
Hoja1.Range("d5").Select
Exit Sub
End If

f2 = validarhoja2()
If f2 = False Then
MsgBox "error se ha realizado modificaciones en el formato II", vbCritical, "stevejob"
Hoja2.Select
Hoja2.Range("c8").Select
Exit Sub
End If

MsgBox "felicitaciones los datos han sido enviados correctamente", vbInformation, "steve jobs"

End Sub

Function validarhoja1() As Boolean
Dim totalgeneral, totalsexo, totalanos, totalsemestre, totalturno As Integer

totalgeneral = Val(Hoja1.Range("d5").Value)
totalsexo = Val(Hoja1.Range("c13").Value)
totalanos = Val(Hoja1.Range("c27").Value)
totalsemestre = Val(Hoja1.Range("g17").Value)
totalturno = Val(Hoja1.Range("g26").Value)

If totalgeneral = 0 Then
MsgBox "error - debe de ingresar la cantidad de alumnos total", vbCritical, "steve jobs"
Hoja1.Select
Hoja1.Range("d5").Select
validarhoja1 = False
Exit Function
End If

If totalgeneral <> totalsexo Then
MsgBox "error en tabla de datos de sexo", vbCritical, "steve jobs"
Hoja1.Select
Hoja1.Range("c11").Select
validarhoja1 = False
Exit Function
End If

If totalgeneral <> totalanos Then
MsgBox "error en tabla de datos de anos", vbCritical, "steve jobs"
Hoja1.Select
Hoja1.Range("c19").Select
validarhoja1 = False
Exit Function
End If

If totalgeneral <> totalsemestre Then
MsgBox "error en tabla de datos de semestre", vbCritical, "steve jobs"
Hoja1.Select
Hoja1.Range("g11").Select
validarhoja1 = False
Exit Function
End If

If totalgeneral <> totalturno Then
MsgBox "error en tabla de datos de turno", vbCritical, "steve jobs"
Hoja1.Select
Hoja1.Range("g23").Select
validarhoja1 = False
Exit Function
End If

'de realizaran las instrucciones al pasar todas las validaciones
MsgBox "datos ingresados correctamente en estadisticas - formato I", vbInformation, "steve jobs"

Hoja2.Visible = True
Hoja2.Select
Hoja2.Range("c8").Select
validarhoja1 = True

End Function

Function validarhoja2() As Boolean
Dim totalgeneral, totaldistrito, totaldepartamento As Integer

totalgeneral = Val(Hoja1.Range("d5").Value)
totaldistrito = Val(Hoja2.Range("c22").Value)
totaldepartamento = Val(Hoja2.Range("g30").Value)

If totalgeneral <> totaldistrito Then
MsgBox "error en tabla de datos de distrito", vbCritical, "steve jobs"
Hoja2.Select
Hoja2.Range("c8").Select
validarhoja2 = False
Exit Function
End If

If totalgeneral <> totaldepartamento Then
MsgBox "error en tabla de datos de departamento", vbCritical, "steve jobs"
Hoja2.Select
Hoja2.Range("g8").Select
validarhoja2 = False
Exit Function
End If

'de realizaran las instrucciones al pasar todas las validaciones
MsgBox "datos ingresados correctamente en estadisticas - formato II", vbInformation, "steve jobs"

Hoja3.Visible = True
Hoja3.Select
Hoja3.Range("c8").Select
validarhoja2 = True


End Function

Crear Formulario, Entrada con Contraseña y Registro con VBA. Excel con MACROS

Primeramente debemos crear en Visual Basic de Excel, un formulario, de este modo

1. Formulario de login.

2. Formulario de Registro.

3. Seguidamente vamos a crear el codigo del       formulario 1

Private Sub CommandButton1_Click()
Dim clave As String * 5
clave = "STEVE"

If UCase$(Trim$(TextBox2.Text)) = clave Then
Unload Me
UserForm3.Show
Exit Sub
Else
MsgBox "contrasena incorrecta", vbInformation, "seguridad"
End If
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub TextBox1_Change()
If TextBox1.Text <> "" And TextBox2 <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

End Sub

Private Sub TextBox2_Change()
If TextBox2.Text <> "" And TextBox2 <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

End Sub

4. Hacemos el codigo para el formulario 2.

Private Sub CommandButton2_Click()

End

End Sub

Private Sub TextBox1_Change()

Range("a1").Select

ActiveCell.FormulaR1C1 = TextBox1

End Sub

Private Sub TextBox2_Change()

Range("b1").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Private Sub TextBox3_Change()

Range("c1").Select

ActiveCell.FormulaR1C1 = TextBox3

End Sub

Private Sub TextBox4_Change()

Range("d1").Select

ActiveCell.FormulaR1C1 = TextBox4

End Sub

Private Sub TextBox5_Change()

Range("e1").Select

ActiveCell.FormulaR1C1 = TextBox5

End Sub

Es una forma basica de ingreso de datos, a partir de este codigos simples puedes generar programacion VBA. complejos.