KUIS PKD LOOPING DI DALAM LOOPING

Ini Codingnya, silahkan di copy - paste,.



Sub QuizLagi()

a = Cells(1, 1)
b = Cells(1, 2)
c = Cells(1, 3)
c = c + 5
If c / 2 = Int(c / 2) Then
c = c - 3
Else
c = c - 2
End If
i = 1
Do
For j = 1 To 3
If j / 3 = Int(j / 3) Then
a = a + 1
b = b + 2
c = c + 3
ElseIf j / 2 = Int(j / 2) Then
a = a + 3
b = b - 1
c = c - 1
Else
a = a + 2
b = b - 2
c = c - 3
End If
Cells(j + 3, i + 4) = a
Cells(j + 3, i + 5) = b
Cells(j + 3, i + 6) = c
Next j
If c / 3 = Int(c / 3) Then
a = a + 3
b = b + 3
ElseIf c / 2 = Int(c / 2) Then
a = a + 2
b = b - 1
Else
a = a + 1
b = b - 1
End If
i = i + 1
Cells(i + 2, 1) = a
Cells(i + 2, 2) = b
Cells(i + 2, 3) = c
Loop Until i > 4
End Sub




download di sini