verilen sayının 5 ile bölümünden kalan sayıların sonuçlarına göre if else ile kod yazmak istiyorum.3 seçenek var .kalan 0 ise
kalan 1 ise
ve diğerleri.
2 if bir else ile aşağıdaki gibi yazınca else without if diyo.neden olabilir.???
Dim MyResult
MyResult = a Mod 5 'a nın 5e bölümünden kalan
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise
GoTo quantitygir
If MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If
End If
kalan 1 ise
ve diğerleri.
2 if bir else ile aşağıdaki gibi yazınca else without if diyo.neden olabilir.???
Dim MyResult
MyResult = a Mod 5 'a nın 5e bölümünden kalan
If MyResult = 1 Then '5 ile bolumunden kalan 1 ise
GoTo quantitygir
If MyResult = 0 Then
For n = 1 To 8
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Else
For m = 1 To (2 * MyResult) - 2
Print #1, "[tab field]"
Sheet1.Cells(j, 9) = "[tab field]"
j = j + 1
Next m
End If
End If