Autor Tema: macro visual basic (Leído 2172 veces)

mrocli · « **en:** Jueves 21 de Julio de 2011, 12:36 »

Hola :

Quería hacer una macro en el Visual Basic del Excel (tengo la versión del 2003), y he probado de distintas formas pero en algo me equivoco, por lo que me gustaría pediros ayuda

La cuestión que quiero hacer es que coja los datos de dos columnas, y según lo que ponga en ellas, poner un dato en una tercera columna. Es decir, según A1 y B1, escribir el dato correspondiente en C1. Lo mismo con A2 y B2 en C2, etc. Así las cosas, la parte central creo que la tengo bien :

If 17 < x < 18 And y = 7 Then
z = "1,5"
ElseIf 19 < x < 20 And y = 7 Then
z = "1"
...
...
ElseIf x = "" And y = "" Then
z = ""

Pero el inicio y el final lo he probado de distintas maneras y no se exactamente como ponerlo... Primero, no se muy bien si debería ser Sub o Function.

Y después, a la hora de definir x, y, z, no se muy bien si ponerlo como "x = A1" ó "x = Column.A" o de otra manera.

Y en la parte final, no se si es "Next x" y "Next y" o si por el contrario es "Nextfor x" y "Nextfor y", o si también tengo que ponerlo para "z".

Muchas gracias por vuestra ayuda.

F_Tanori

Bueno, primero las condiciones estan incorrectas

Código: Visual Basic

If 17 < x < 18 And y = 7 Then

seria algo asi

Código: Visual Basic

If  x > 17 and x < 18 and y = 7 Then

Se utiliza function cuando es necesario retornar un valor, y sub cuando es solo una SUBrutina o procedimiento o accion, la cual no es necesario que retorne nada

Ejemplo:

Funcion, realiza un procedimiento y retorna un valor (resultado)

Código: Visual Basic

function NombreCompleto (Nombre as String,Apellido As String) As String
      NombreCompleto  = Nombre &" " &Apellidos
end function

Llamado, al darle clic a un boton desde un formulario

Procedimiento (realiza un procedimiento o ejecuta una accion pero no retorna ningun valor)

Código: Visual Basic

  Private Sub Command1_Click()
        Dim NC as String,N as String,A as string
        
       N =InputBox("Cual es tu nombre?")
       A =InputBox("y tus Apellidos?")
       NC = NombreCompleto(N,A)
 
       MsgBox("Hola, " & NC)
  End Sub
 

Mira este es un metodo (hay mas) para tomar un valor de una celda

Código: Visual Basic

Function QueHayEnLaCelda(Celda) as String
      QueHayEnLaCelda = Excel.Range(Celda).Value   ' Hoja Activa como ejemplo . se puede referenciar navegando en  Workbooks, Sheets...
End Funcion

Código: Visual Basic

  Private Sub Command1_Click()
       Dim Resultado As String,LaCelda As String
       Dim Columna As String, Fila as Integer
       
       Columna = "A"
       Fila=4 
       LaCelda =Columna & Fila
 
       Resultado =QueHayEnLaCelda("A1") 
       MsgBox("A1:" & Resultado )
 
       Resultado =QueHayEnLaCelda("A2")
       MsgBox("A2:" & Resultado )
 
       Resultado =QueHayEnLaCelda("A2")
       MsgBox("A12:" & Resultado )
 
       Resultado =QueHayEnLaCelda(LaCelda) ' Como veras es una simple cadena
       MsgBox(LaCelda &" :" & Resultado )
 
  End Sub
 

Espero te sirva, procura utilizar las etiquetas CODE

Nota: Ningun codigo ha sido compilado por falta de esas herramientas, pero la idea es esa .
Saludos

mrocli

ok, gracias

SoloCodigo

Autor Tema: macro visual basic (Leído 2172 veces)

mrocli

macro visual basic

F_Tanori

Re:macro visual basic

mrocli

Re:macro visual basic