3 Messages
Digest #4065
Messages
Thu Jan 12, 2017 7:29 am (PST) . Posted by:
"Muhammad Iqbal" iq_bal76id
Dear Latifah
Sementara refer ke jawaban mas sony dan mas heri dulu di link ini
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/41295
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/41285
thanks
BR
Muhammad Iqbal
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: January 11, 2017 10:23 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mengubah Format Tampilan Menjadi ke Bawah [1 Attachment]
Dear Master excel,
Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun ke bawah seperti berikut?
Kira-kira memakai rumus apa?
Terima kasih.
Inline image 1
Sementara refer ke jawaban mas sony dan mas heri dulu di link ini
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/41295
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/41285
thanks
BR
Muhammad Iqbal
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: January 11, 2017 10:23 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mengubah Format Tampilan Menjadi ke Bawah [1 Attachment]
Dear Master excel,
Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun ke bawah seperti berikut?
Kira-kira memakai rumus apa?
Terima kasih.
Inline image 1
Thu Jan 12, 2017 7:29 am (PST) . Posted by:
"Fatania Latifa"
Terima kasih pak, untuk data yang eksisting bisa jalan, tetapi ketika
mengubah masa awal dan akhir, data yang dihasilkan tidak berubah.
Mohon dijelaskan maksud makronya, terima kasih
2017-01-12 13:51 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Halo Fatania,
>
> Sambil tunggu para master, saya coba bantu pake Macro ya ?
>
> Salam
> Sony
>
>
> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>
> 2017-01-11 10:23 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Master excel,
>>
>> Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun
>> ke bawah seperti berikut?
>> Kira-kira memakai rumus apa?
>> Terima kasih.
>> [image: Inline image 1]
>>
>>
>
>
mengubah masa awal dan akhir, data yang dihasilkan tidak berubah.
Mohon dijelaskan maksud makronya, terima kasih
2017-01-12 13:51 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Halo Fatania,
>
> Sambil tunggu para master, saya coba bantu pake Macro ya ?
>
> Salam
> Sony
>
>
> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>
> 2017-01-11 10:23 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Master excel,
>>
>> Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun
>> ke bawah seperti berikut?
>> Kira-kira memakai rumus apa?
>> Terima kasih.
>> [image: Inline image 1]
>>
>>
>
>
Thu Jan 12, 2017 4:47 pm (PST) . Posted by:
"Sony Ario"
Halo Fatania,
Terlampir adalah file revisi dari yang sebelumnya. Bulan awal dan akhir
saya coba rubah, semua nya berhasil tanpa masalah. Tapi coba dilihat lagi.
Mungkin ada yang terlewat dari saya.
Penjelasan macro nya :
Application.ScreenUpdating = False
Dim NIK As String '*==> Deklarasi variabel*
Dim Bln1, Bln2, a, b As Long *'==> Deklarasi variabel*
a = WorksheetFunction.CountA(Columns("A")) + 1*'==> isi variabel A
adalah perhitungan brp* banyak baris yang terisi pada kolom A + 1
*'==> Mulai proses looping dan isi variabel NIK, Bln1 (Awal) dan Bln2*
For a = 3 To WorksheetFunction.CountA(Columns("A")) + 1
Range("A" & a).Select
NIK = ActiveCell.Value
Bln1 = ActiveCell.Offset(0, 1).Value
Bln2 = ActiveCell.Offset(0, 2).Value
*'==> Proses looping menambahkan isi variabel Bln1
sampai lebih besar dari Bln2 dan isi hasil nya di kolom G*
Do Until Bln1 > Bln2
b = WorksheetFunction.CountA(Columns("G")) + 1
Range("G" & b).Value = NIK
Range("H" & b).Value = Bln1
Bln1 = Bln1 + 1
Loop
Next a
Application.ScreenUpdating = True
*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
2017-01-12 18:28 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Terima kasih pak, untuk data yang eksisting bisa jalan, tetapi ketika
> mengubah masa awal dan akhir, data yang dihasilkan tidak berubah.
> Mohon dijelaskan maksud makronya, terima kasih
>
> 2017-01-12 13:51 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Halo Fatania,
>>
>> Sambil tunggu para master, saya coba bantu pake Macro ya ?
>>
>> Salam
>> Sony
>>
>>
>> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>>
>> 2017-01-11 10:23 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Master excel,
>>>
>>> Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun
>>> ke bawah seperti berikut?
>>> Kira-kira memakai rumus apa?
>>> Terima kasih.
>>> [image: Inline image 1]
>>>
>>>
>>
>
>
Terlampir adalah file revisi dari yang sebelumnya. Bulan awal dan akhir
saya coba rubah, semua nya berhasil tanpa masalah. Tapi coba dilihat lagi.
Mungkin ada yang terlewat dari saya.
Penjelasan macro nya :
Application.ScreenUpdating = False
Dim NIK As String '*==> Deklarasi variabel*
Dim Bln1, Bln2, a, b As Long *'==> Deklarasi variabel*
a = WorksheetFunction.CountA(Columns("A")) + 1*'==> isi variabel A
adalah perhitungan brp* banyak baris yang terisi pada kolom A + 1
*'==> Mulai proses looping dan isi variabel NIK, Bln1 (Awal) dan Bln2*
For a = 3 To WorksheetFunction.CountA(Columns("A")) + 1
Range("A" & a).Select
NIK = ActiveCell.Value
Bln1 = ActiveCell.Offset(0, 1).Value
Bln2 = ActiveCell.Offset(0, 2).Value
*'==> Proses looping menambahkan isi variabel Bln1
sampai lebih besar dari Bln2 dan isi hasil nya di kolom G*
Do Until Bln1 > Bln2
b = WorksheetFunction.CountA(Columns("G")) + 1
Range("G" & b).Value = NIK
Range("H" & b).Value = Bln1
Bln1 = Bln1 + 1
Loop
Next a
Application.ScreenUpdating = True
*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
2017-01-12 18:28 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Terima kasih pak, untuk data yang eksisting bisa jalan, tetapi ketika
> mengubah masa awal dan akhir, data yang dihasilkan tidak berubah.
> Mohon dijelaskan maksud makronya, terima kasih
>
> 2017-01-12 13:51 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Halo Fatania,
>>
>> Sambil tunggu para master, saya coba bantu pake Macro ya ?
>>
>> Salam
>> Sony
>>
>>
>> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>>
>> 2017-01-11 10:23 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Master excel,
>>>
>>> Mohon pencerahannya agar hasil input bulan awal dan akhir menjadi turun
>>> ke bawah seperti berikut?
>>> Kira-kira memakai rumus apa?
>>> Terima kasih.
>>> [image: Inline image 1]
>>>
>>>
>>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar