Wa'alaikumussalam Wr. Wb.
Misal akan dipasang pada kolom A, pada A1 diberi formula :
=Min( Date( 2012,Row(),0 )+30 , Date( 2012,Row()+1,0 ) )
copy ke baris selanjutnya.
Jika regional setting komputer setempat adalah Indonesia, ganti karakter
koma dengan karakter titik koma.
jika tidak dimulai pada baris 1, maka ganti bunyi Row() dengan
Row()-nomor_baris_excel_sebelumnya
Jika akan dipasang dengan VBA (misal di kolom C)
'Jika regional setting komputer setempat adalah Indonesia, ganti karakter
koma dengan karakter titik koma.
with range("c1:c16")
.formula="=Min( Date( 2012,Row(),0 )+30 , Date( 2012,Row()+1,0 ) )"
.parent.calculate
.value=.value
end with
Wassalam,
Kid.
2013/4/29 Adi <[email protected]>
> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> Master excel yang terhormat,
> Saya ingin mengisi kolom A dari baris 1 s/d baris 16 dengan tanggal 30
> dari setiap bulan dalam rentang Januari tahun 2012 s/d April 2013
> menggunakan Excel VBA. Untuk bulan yang tidak mempunyai tanggal 30, seperti
> bulan Februari, maka dia akan menyesuakain menjadi tanggal 29/2/2012 atau
> tanggal 28/2/2013
> Mohon pencerahannya Master. Terimakasih, wassalam
>
> Output yang diinginkan:
>
> 30/1/2012
> 29/2/2012
> 30/3/2012
> 30/4/2012
> 30/5/2012
> 30/6/2012
> 30/7/2013
> 30/8/2013
> 30/9/2013
> 30/10/2013
> 30/11/2013
> 30/12/2013
> 30/1/2013
> 28/2/2013
> 30/3/2013
> 30/4/2013
>
>
>
