Sub periksa()
Dim lembar As Worksheet
Set lembar = Worksheets(1)
If Range(“B3”) = Range(“B5”) Then
lembar.Shapes(“kotak”).Visible = msoCTrue
lembar.Shapes(“panjang”).Visible = msoFalse
lembar.Shapes(“kotak”).TextFrame2.TextRange.Text = Range(“B3”) * Range(“B5”)
Range(“H6”) = “LUAS =”
Range(“G6”) = “”
Range(“M6”) = “cm²”
Range(“N6”) = “”
Else
lembar.Shapes(“kotak”).Visible = msoFalse
lembar.Shapes(“panjang”).Visible = msoCTrue
lembar.Shapes(“panjang”).TextFrame2.TextRange.Text = Range(“B3”) * Range(“B5”)
Range(“H6”) = “”
Range(“G6”) = “LUAS =”
Range(“M6”) = “”
Range(“N6”) = “cm²”
End If
lembar.Shapes(“reset”).Visible = msoCTrue

End Sub

Sub reset()
Dim lembar As Worksheet
Set lembar = Worksheets(1)
Range(“B3”) = “”
Range(“B5”) = “”
Range(“H6”) = “”
Range(“G6”) = “”
Range(“M6”) = “”
Range(“N6”) = “”
lembar.Shapes(“panjang”).Visible = msoFalse
lembar.Shapes(“reset”).Visible = msoFalse
lembar.Shapes(“periksa”).Visible = msoCTrue
lembar.Shapes(“kotak”).Visible = msoFalse

End Sub

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