coba script berikut:
Sub Ganjil()
Dim iAwal As Integer, iJuml As Integer, i As Integer
Dim cel As Range
Set cel = Range("d2")
Range(cel, cel.End(xlDown)).ClearContents
iAwal = Range("b2").Value
iJuml = Range("b3").Value
If iAwal Mod 2 = 0 Then
iAwal = iAwal + 1
End If
For i = 1 To iJuml
Cells(i + 1, 4).Value = iAwal
iAwal = iAwal + 2
Next i
End Sub
Sub Genap()
Dim iAwal As Integer, iJuml As Integer, i As Integer
Dim cel As Range
Set cel = Range("d2")
Range(cel, cel.End(xlDown)).ClearContents
iAwal = Range("b2").Value
iJuml = Range("b3").Value
If iAwal Mod 2 <> 0 Then
iAwal = iAwal + 1
End If
For i = 1 To iJuml
Cells(i + 1, 4).Value = iAwal
iAwal = iAwal + 2
Next i
End Sub
file terlampir..
Salam,
-Miss Jan Raisin-
Pada 6 September 2013 14.25, Joyokusumo Naba <[email protected]> menulis:
> **
>
>
> Berikut File Terlampir untuk Bilangan Ganjil Genap mohon Pencerahan
>
> *From:* Jan Raisin <[email protected]>
> *To:* [email protected]
> *Sent:* Friday, September 6, 2013 1:53 PM
> *Subject:* Re: [belajar-excel] Deret angka Ganjil/Genap
> **
>
> pak Joyo..
>
> mungkin bisa dilampirkan sampel workbooknya..
> nanti kasih cerita sedikit.. kalo begini maka hasil yang diinginkan
> seperti ini..
> kalau begitu maka hasil yang diinginkan seperti itu..
>
> Lagi males main tebak-tebakan soalnya xixixi ^_^
>
> Salam,
> **
>
> -Miss Jan Raisin-
> ****
> 2013/9/6 Joyokusumo Naba <[email protected]>**
>
> **
>
> Dear all,
> bagaimana menampilkan deret bilangan ganjil atau genap dengan MOD2
> A B C D
> Genap/Ganjil
> Bil Awal 3 3
> Juml Bil 7 5
> 7
> dst
>
> Klik Ganjil
>
>
>
> Klik Genap
>
>
> Mohon pencerahan terima kasih
>
> ****
>
>
>
MJR-Ganjil_Genap.xlsm
Description: Binary data
