Comandos Visual Basic

1. Comandos De Visual Basic

• Font.Bold = True : Este comando es utilizado para aplicar negrita a una celda
•  Font.Italic = True :es utilizado para aplicar cursiva
• Font.Underline = xlUnderlineStyleSingle : comando utilizado para aplicar subrayado simple
• Font.Color = RGB(255, 0, 0): utilizado para aplicar color de fuente ( para los valores mencionados el color será rojo)
• With Selection.Font                                                                                                                                  Name = " "Baskerville Old Face""                                                                                                                          End With                                                                                                                                                Este comando es utilizado para seleccionar el tipo de letra  o fuente
• With Selection.Font                                                                                                                                   .Size = 15                                                                                                                                                        End With                                                                                                                                                   Este comando se utiliza para seleccionar el tamaño de letra o fuente
• appExcel.Range("C30:E30").Select                                                                                                  .MergeCells = True                                                                                                                                            

comando utilizado Para combinar celdas

• FormatCurrency: comando utilizado para asignar formato  de moneda

Sub Ecuacion()

Dim a, b, c, x1, x2 As Double

a = InputBox("digite a", "Ecuaciones")

b = InputBox("digite b", "Ecuaciones")

c = InputBox("digite c", "Ecuaciones")

x1 = (-b + Sqr((b ^ 2) - 4 * a * c)) / (2 * a)

x2 = (-b - Sqr((b ^ 2) - 4 * a * c)) / (2 * a)

Range("b2").Value = "resultado 1"

Range("c2").Value = x1

Range("b3").Value = "resultado 2"

Range("c3").Value = x2

If a = 0 Then

MsgBox "x1 , x2 debe ser diferente de 0, la ecuación no tiene solución"

...