Visual Basic Aplication (VBA) I dalam Fisika

    VBA mempermudah kita. Ini rumus-rumus agar membuat perhitungan Fisika anda lebih mudah...Tinggal copas aja, ke worksheet VBA kamu....
1. Massa Jenis
    Sub MassaJenis()
    Dim m As Single, Ro As Single, Vol As Single
    m = InputBox("Massa benda?", "Menghitung Massa Jenis")
    Vol = InputBox("Volume benda ?", "Menghitung Massa Jenis")
    Ro = m / Vol    'Perhitungan untuk var Ro
    MsgBox "Massa jenis benda yang bermassa " & m & _
    " kg dan Volume " & Vol & " m^3 adalah " & Ro & " kg/m^3" _
    , 0, "Hasil Perhitungan"
    ActiveSheet.UsedRange.Clear
    Range("A1") = "Menghitung Massa Jenis (Ro)"
    Range("A1").Font.Bold = True
    Range("A2") = " Massa Benda = " & m & " kg"
    Range("A3") = " Volume Benda = " & Vol & " m^3"
    Range("A4") = " Massa Jenis Benda = " & Ro & " kg/m^3"
End Sub

2. Gerak Lurus Beraturan
Sub GLB()
Dim x As Single, t As Single, v As Single
t = InputBox("Inputkan Lama Waktu dalam (S)", "Input Waktu")
v = InputBox("Inputkan Kecepatan Benda dalam (m/s)", "Inputkan Kecepatan")
x = v * t
MsgBox "Benda berkecepatan" & v & "m/s akan menempuh jarak" & x & "meter dalam waktu" & t & "sekon", 0, "GLB"
ActiveSheet.UsedRange.ClearContents
Range("A1") = "Menghitung Jarak pada GLB"
Range("A1").Font.Bolt = True
Range("A2") = "Kecepatan Benda =" & v & "m/s"
Range("A3") = "Waktu Tempuh =" & t & "s"
Range("A4") = "Jarak tempuh Benda =" & x & "m"
Columns.AutoFit
End Sub

3. Gerak Lurus Berubah Beraturan

Sub GLBB()
    Dim vo As Single, t As Single, vt As Single
    Dim a As Single, x As Single
    ActiveSheet.UsedRange.ClearContents
    vo = 5:      t = 10:         a = 5
    vt = vo + a * t
    x = vo * t + 0.5 * a * t ^ 2
    Range("A1") = "Menghitung Jarak Pada GLBB"
    Range("A1").Font.Bold = True
    Range("A2") = "Kecepatan awal Benda = " & v0 & " m/S"
    Range("A3") = "Waktu tempuh = " & t & " s"
    Range("A4") = "Percepatan benda= " & a & " m/s2"
    Range("A5") = "Kecepatan pada saat " & t & " s adalah " & vt & " m/s"
    Range("A6") = "Jarak tempuh Benda = " & x & " m"
    Columns.AutoFit
End Sub

4. Resultan Gaya

Sub ResultanGaya()
    Dim F As Single, m As Single, a As Single, fges As Single
    Const g = 10, u = 0.2
    ActiveSheet.UsedRange.ClearContents
    Range("a1") = "Menghitung Resultan Gaya"
    Range("A1").Font.Bold = True
    m = 5:     a = 10
    fges = m * g * u
    F = fges + m * a
    Range("A2") = "Massa benda = " & m & " kg"
    Range("A3") = "Koefisien gesek = " & u
    Range("A4") = "Percepatan benda = " & a & " m/s2"
    Range("A5") = "Gaya Gesek = " & fges & " N"
    Range("A6") = "Resultan Gaya = " & F & " Newton"
End Sub

   Mungkin itu beberapa rumusan untuk VBA nya. anda bisa memodifikasi sesuai keinginan dan kebutuhan anda. Langkah selanjutnya, tentu anda sudah mengetahui kan. :)