SYSTEM PLUS DE COLOMBIA- TULUÁ
EXCEL AVANZADO – MODULO 5/6 - CÓDIGO MACRO CON VBA
Sub seleccionar () ‘Nombre de la macro (Inicio)
Range(“B10”).Select ‘Permite seleccionar la celda B10
End sub ‘Fin de la macro
Sub seleccionar_rango()
Range(“A1:E1”).Select ‘Permite seleccionar un rango de celdas
End sub
Sub texto()
Range(“A1”).Value = “Hola” ‘ Permite escribir la palabra Hola en la celda A1
End sub
Sub texto_color()
Activesheet.Range(“A1”).value = “Hola”
Activesheet.Range(“A1”).font.color = RGB (255,0,0) ‘ Permite dar formato color a la
fuente que se encuentra en la celda A1
End sub
Sub edad()
If Range("B1") >= 18 Then
Range("B4").Value = "Es mayor de edad"
Else
Range("B4").Value = "Es menor de edad"
End If
End Sub
Sub ocultar_columna()
Range("C1").EntireColumn.Hidden = True
End Sub
Sub ocultar_mostrar()
If Range("C1").EntireColumn.Hidden = False Then ‘si la columna entera en la
propiedad oculta la estoy visualizando, entonces
Range("C1").EntireColumn.Hidden = True ‘ oculte la columna
Else
Range("C1").EntireColumn.Hidden = False
End If
End Sub
Sub sumar()
Range("B3").Value = Range("B1").Value + Range("B2").Value
End Sub
Sub tabla() ‘ Tabla del 3
If Range("D5").Value = Range("A5").Value * Range("C5").Value Then
Range("E5").Value = "J"
Range("F5").Value = "1"
Else
Range("E5").Value = "L"
Range("F5").Value = "0"
End If
If Range("D6").Value = Range("a6").Value * Range("c6").Value Then
Range("E6").Value = "J"
Range("F6").Value = "1"
Else
Range("E6").Value = "L"
Range("F6").Value = "0"
End If
If Range("D7").Value = Range("A7").Value * Range("C7").Value Then
Range("E7").Value = "J"
Range("F7").Value = "1"
Else
Range("E7").Value = "L"
Range("F7").Value = "0"
End If
Range("F8").Value = Range("F5").Value + Range("F6").Value + Range("F7").Value
End Sub
Sub ocultar()
Sheets("hoja2").Visible = False
End Sub
Sub ocultar_mostarH()
If Sheets("hoja2").Visible = True Then
Sheets("hoja2").Visible = False
Else
Sheets("hoja2").Visible = True
End If
End Sub
Sub mostrar_activar()
Sheets("hoja2").Visible = True
Sheets("hoja2").Activate
End Sub
Sub mostrar_activar3()
Sheets("hoja3").Visible = True
Sheets("hoja3").Activate
End Sub
Sub hoja1()
Sheets("hoja1").Activate
End Sub
Sub tabla()
If Range("D5").Value = Range("A5").Value * Range("C5").Value Then
Range("E5").Value = "J"
Range("F5").Value = "1"
Else
Range("E5").Value = "L"
Range("F5").Value = "0"
End If
If Range("D6").Value = Range("a6").Value * Range("c6").Value Then
Range("E6").Value = "J"
Range("F6").Value = "1"
Else
Range("E6").Value = "L"
Range("F6").Value = "0"
End If
If Range("D7").Value = Range("a7").Value * Range("c7").Value Then
Range("E7").Value = "J"
Range("F7").Value = "1"
Else
Range("E7").Value = "L"
Range("F7").Value = "0"
End If
Range("F8").Value = Range("F5").Value + Range("F6").Value + Range("F7").Value
End Sub
