Private Sub CommandButton1_Click()
Dim lembar As Worksheet
Dim a, b, c, d, e As Integer
Set lembar = Worksheets(1)
Randomize
a = Int(Rnd() * 49) + 1
b = Int(Rnd() * 49) + 1
c = Int(Rnd() * 49) + 1
d = Int(Rnd() * 49) + 1
e = Application.WorksheetFunction.Lcm(b, d)
Range(“D5”) = a
Range(“D6”) = b
Range(“F5”) = c
Range(“F6”) = d
Range(“G10”).Value = “KPK dari ” & b & ” dan ” & d & ” adalah ” & e
Range(“H6”) = e
Range(“J6”) = e
Range(“H5″) = a & ” X ” & e / b
Range(“J5″) = c & ” X ” & e / d
Range(“L6”) = e
Range(“N6”) = e
Range(“L5”) = (a * e) / b
Range(“P6”) = (c * e) / d
Range(“P5”) = e
Range(“P5”) = Range(“L5”) + Range(“N4”)
If Range(“P5”) > Range(“P6”) Then
Range(“R5”) = Int(Range(“P5”) / Range(“P6”))
Range(“S5”) = Range(“P5”) Mod Range(“P6”)
Range(“S6”) = e
If Range(“S5”) = 0 Then
Range(“S5”) = “”
Range(“S6”) = “”
End If
Else
Range(“R5”) = “”
Range(“S5”) = “”
Range(“S6”) = “”
End If
Range(“H5:S6”).Interior.Color = vbBlack
End Sub

Private Sub CommandButton2_Click()
Range(“H5:S6″).Interior.Color = vbBlue
End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/LANGKAH-LANGKAH.docx”]