| FUNGSI DO WHILE…LOOP
|
FUNGSI LTRIM
|
FUNGSI CHOOSE |
| Sub tugas3()
i = 1 Do While i <= 5 If i Mod 2 = 0 Then i = 2 * i Cells(i, 1) = i Else i = i + 2 Cells(i + 1, 2) = i End If Cells(i, 2) = i Loop End Sub
|
Sub agesdur()
Set Tabl = Sheets(1).Range(“a1:cv100″) y = InputBox(“age?”) Set yt = Sheets(1).Range(“a” + ltrim(Str(y))) yt.Select For i = 1 To 100 With yt.Cells(1, i).Interior .ColorIndex = 3 End With Next i End Sub
|
Function NamaHari(noHari As Integer) As String
NamaHari = Choose(noHari, “ahad”, “senin”, “selasa”, “rabu”, “kamis”, “jumat”, “sabtu”) End Function
|
Advertisement
