15 New Messages
Digest #2396
5
BelajarVBA, sudah tahu cara menulis kode program VBA atau belum ? by "Mr. Kid" nmkid.family@ymail.com
Messages
Mon Jul 1, 2013 10:06 am (PDT) . Posted by:
"Jamil Makhmudin" jamil_kbm
Assalamu'alaikum Wr. Wb.
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta membuat laporan kepada atasan, dengan data dan tanggal yang tepat.
Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah jika hari terakhir adalah hari AHad (Minggu)
karena hari tersebut bukan hari dinas dan tidak diperbolehkan mengeluarkan surat pada hari libur...
Adakah formula excel tentang penanggalan, berubah ke tanggal sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad (Minggu)
atas bantuannya disampaikan Terima kasih...
Wassalam
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta membuat laporan kepada atasan, dengan data dan tanggal yang tepat.
Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah jika hari terakhir adalah hari AHad (Minggu)
karena hari tersebut bukan hari dinas dan tidak diperbolehkan mengeluarkan surat pada hari libur...
Adakah formula excel tentang penanggalan, berubah ke tanggal sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad (Minggu)
atas bantuannya disampaikan Terima kasih...
Wassalam
Mon Jul 1, 2013 10:34 am (PDT) . Posted by:
"De Premor"
Silahkan dicoba,
:: Bahasa Excel
=A1-IF(WEEKDAY(A1)=1,1)
:: Bahasa Manusia >> Pada A1 kurangkan jika hari adalah minggu dengan 1
A1 adalah cell yang berisi tanggal
Fungsi Weekday adalah untuk mengecek hari, Hari Minggu diawali dengan
angka 1 jika weekday digunakan tanpa statement lanjutan
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin wrote:
> Assalamu'alaikum Wr. Wb.
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
> mengeluarkan surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal
> sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad
> (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
:: Bahasa Excel
=A1-IF(WEEKDAY(
:: Bahasa Manusia >> Pada A1 kurangkan jika hari adalah minggu dengan 1
A1 adalah cell yang berisi tanggal
Fungsi Weekday adalah untuk mengecek hari, Hari Minggu diawali dengan
angka 1 jika weekday digunakan tanpa statement lanjutan
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin wrote:
> Assalamu'
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
> mengeluarkan surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal
> sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad
> (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
Mon Jul 1, 2013 10:56 am (PDT) . Posted by:
"De Premor"
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(A1)=1)
:: Rumus: Weekday(A1)=1
Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika tidak maka
FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi positif
Dikarenakan Operasi kita adalah operasi pengurangan, maka formula Triple
Minus diatas dapat diubah menjadi 1 buah minus saja, menjadi sbb:
=A1-(WEEKDAY(A1)=1)
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya, yaitu
=A1-IF(WEEKDAY(A1)=1,1) :: 23 Huruf
=A1---(WEEKDAY(A1)=1) :: 21 Huruf
=A1-(WEEKDAY(A1)=1) :: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin wrote:
> Assalamu'alaikum Wr. Wb.
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
> mengeluarkan surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal
> sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad
> (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
=A1---(WEEKDAY(
:: Rumus: Weekday(A1)=
Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika tidak maka
FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi positif
Dikarenakan Operasi kita adalah operasi pengurangan, maka formula Triple
Minus diatas dapat diubah menjadi 1 buah minus saja, menjadi sbb:
=A1-(WEEKDAY(
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya, yaitu
=A1-IF(WEEKDAY(
=A1---(WEEKDAY(
=A1-(WEEKDAY(
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin wrote:
> Assalamu'
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
> mengeluarkan surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal
> sebelumnya jika hari terakhir di bulan tersebut merupakan hari Ahad
> (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
Mon Jul 1, 2013 11:03 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bisa pakai :
=A1-(Mod(A1,7)=1)
Wassalam,
Kid.
2013/7/2 De Premor <de@premor.net>
> **
>
>
> Nambah lagi pake model rumus lain berikut
>
> =A1---(WEEKDAY(A1)=1)
>
> :: Rumus: Weekday(A1)=1
> Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika tidak maka
> FALSE
>
> :: Double Minus "--" didepan rumus Weekday
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan Negatif => -1
> Minus Kedua adalah untuk mengembalikan lagi menjadi positif
>
> Dikarenakan Operasi kita adalah operasi pengurangan, maka formula Triple
> Minus diatas dapat diubah menjadi 1 buah minus saja, menjadi sbb:
>
> =A1-(WEEKDAY(A1)=1)
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya, yaitu
> =A1-IF(WEEKDAY(A1)=1,1) :: 23 Huruf
> =A1---(WEEKDAY(A1)=1) :: 21 Huruf
> =A1-(WEEKDAY(A1)=1) :: 19 Huruf
>
>
> Rgds,
> [dp]
> On 01/07/2013 23:21, Jamil Makhmudin wrote:
>
>
> Assalamu'alaikum Wr. Wb.
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan mengeluarkan
> surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal sebelumnya
> jika hari terakhir di bulan tersebut merupakan hari Ahad (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
>
>
>
=A1-(Mod(A1,
Wassalam,
Kid.
2013/7/2 De Premor <de@premor.net>
> **
>
>
> Nambah lagi pake model rumus lain berikut
>
> =A1---(WEEKDAY(
>
> :: Rumus: Weekday(A1)=
> Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika tidak maka
> FALSE
>
> :: Double Minus "--" didepan rumus Weekday
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan Negatif => -1
> Minus Kedua adalah untuk mengembalikan lagi menjadi positif
>
> Dikarenakan Operasi kita adalah operasi pengurangan, maka formula Triple
> Minus diatas dapat diubah menjadi 1 buah minus saja, menjadi sbb:
>
> =A1-(WEEKDAY(
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya, yaitu
> =A1-IF(WEEKDAY(
> =A1---(WEEKDAY(
> =A1-(WEEKDAY(
>
>
> Rgds,
> [dp]
> On 01/07/2013 23:21, Jamil Makhmudin wrote:
>
>
> Assalamu'
>
> Pakar excel terhormat...
>
> Di setiap akhir bulan, kami diminta membuat laporan kepada atasan,
> dengan data dan tanggal yang tepat.
> Beberapa laporan kami buat penanggalan otomatis, namun menjadi masalah
> jika hari terakhir adalah hari AHad (Minggu)
> karena hari tersebut bukan hari dinas dan tidak diperbolehkan mengeluarkan
> surat pada hari libur...
>
> Adakah formula excel tentang penanggalan, berubah ke tanggal sebelumnya
> jika hari terakhir di bulan tersebut merupakan hari Ahad (Minggu)
>
> atas bantuannya disampaikan Terima kasih...
>
> Wassalam
>
>
>
>
Mon Jul 1, 2013 8:20 pm (PDT) . Posted by:
"Jamil Makhmudin" jamil_kbm
Terima kasih Mr. Kid dan De Premor atas pencerahannya...
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
--------------------------------------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,7)=1)
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(A1)=1)
:: Rumus: Weekday(A1)=1
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(A1)=1)
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(A1)=1,1) :: 23
Huruf
=A1---(WEEKDAY(A1)=1) ::
21 Huruf
=A1-(WEEKDAY(A1)=1)
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'alaikum Wr. Wb.
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(
:: Rumus: Weekday(A1)=
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(
Huruf
=A1---(WEEKDAY(
21 Huruf
=A1-(WEEKDAY(
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
Mon Jul 1, 2013 8:20 pm (PDT) . Posted by:
"De Premor"
Kereeeen, nga kepikiran yg satu itu
On 02/07/2013 1:03, Mr. Kid wrote:
> Bisa pakai :
> =A1-(Mod(A1,7)=1)
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/2 De Premor <de@premor.net <mailto:de@premor.net>>
>
> Nambah lagi pake model rumus lain berikut
>
> =A1---(WEEKDAY(A1)=1)
>
> :: Rumus: Weekday(A1)=1
> Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika
> tidak maka FALSE
>
> :: Double Minus "--" didepan rumus Weekday
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan
> Negatif => -1
> Minus Kedua adalah untuk mengembalikan lagi menjadi positif
>
> Dikarenakan Operasi kita adalah operasi pengurangan, maka formula
> Triple Minus diatas dapat diubah menjadi 1 buah minus saja,
> menjadi sbb:
>
> =A1-(WEEKDAY(A1)=1)
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya,
> yaitu
> =A1-IF(WEEKDAY(A1)=1,1) :: 23 Huruf
> =A1---(WEEKDAY(A1)=1) :: 21 Huruf
> =A1-(WEEKDAY(A1)=1) :: 19 Huruf
>
>
>
> Rgds,
> [dp]
> On 01/07/2013 23:21, Jamil Makhmudin wrote:
>> Assalamu'alaikum Wr. Wb.
>>
>> Pakar excel terhormat...
>>
>> Di setiap akhir bulan, kami diminta membuat laporan kepada
>> atasan, dengan data dan tanggal yang tepat.
>> Beberapa laporan kami buat penanggalan otomatis, namun menjadi
>> masalah jika hari terakhir adalah hari AHad (Minggu)
>> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
>> mengeluarkan surat pada hari libur...
>>
>> Adakah formula excel tentang penanggalan, berubah ke tanggal
>> sebelumnya jika hari terakhir di bulan tersebut merupakan hari
>> Ahad (Minggu)
>>
>> atas bantuannya disampaikan Terima kasih...
>>
>> Wassalam
>
>
>
On 02/07/2013 1:03, Mr. Kid wrote:
> Bisa pakai :
> =A1-(Mod(A1,
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/2 De Premor <de@premor.net <mailto:de@premor.net>>
>
> Nambah lagi pake model rumus lain berikut
>
> =A1---(WEEKDAY(
>
> :: Rumus: Weekday(A1)=
> Jika A1 adalah hari minggu, maka result nya adalah TRUE, jika
> tidak maka FALSE
>
> :: Double Minus "--" didepan rumus Weekday
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke bilangan
> Negatif => -1
> Minus Kedua adalah untuk mengembalikan lagi menjadi positif
>
> Dikarenakan Operasi kita adalah operasi pengurangan, maka formula
> Triple Minus diatas dapat diubah menjadi 1 buah minus saja,
> menjadi sbb:
>
> =A1-(WEEKDAY(
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal sebelumnya,
> yaitu
> =A1-IF(WEEKDAY(
> =A1---(WEEKDAY(
> =A1-(WEEKDAY(
>
>
>
> Rgds,
> [dp]
> On 01/07/2013 23:21, Jamil Makhmudin wrote:
>> Assalamu'
>>
>> Pakar excel terhormat...
>>
>> Di setiap akhir bulan, kami diminta membuat laporan kepada
>> atasan, dengan data dan tanggal yang tepat.
>> Beberapa laporan kami buat penanggalan otomatis, namun menjadi
>> masalah jika hari terakhir adalah hari AHad (Minggu)
>> karena hari tersebut bukan hari dinas dan tidak diperbolehkan
>> mengeluarkan surat pada hari libur...
>>
>> Adakah formula excel tentang penanggalan, berubah ke tanggal
>> sebelumnya jika hari terakhir di bulan tersebut merupakan hari
>> Ahad (Minggu)
>>
>> atas bantuannya disampaikan Terima kasih...
>>
>> Wassalam
>
>
>
Mon Jul 1, 2013 11:20 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear Master,
Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus ada
criteria,
Sedangkan criteria harus diletakkan di dalam cell tertentu
Pertanyaan saya apakah bisa criteria diganti variable memory ?
Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
Semoga para master bisa memberi pencerahan
Terima kasih
<ymsgr:sendIM?heru.safrudin>;
Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus ada
criteria,
Sedangkan criteria harus diletakkan di dalam cell tertentu
Pertanyaan saya apakah bisa criteria diganti variable memory ?
Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
Semoga para master bisa memberi pencerahan
Terima kasih
<ymsgr:sendIM?
Mon Jul 1, 2013 11:28 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Sekedar sharing saja,
saya juga sedang mencari metode yang sama tetapi belum ketemu caranya.
saat ini, untuk mengakalinya adalah:
1. setelah proses filter, range criteria saya hapus melalui macro juga.
atau
2. hasil filter ditempatkan di sheet yang lain
semoga membantu
thanks
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Heru Safrudin
Sent: Tuesday, July 02, 2013 12:09 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Macro : Advanced Filter
Dear Master,
Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus ada
criteria,
Sedangkan criteria harus diletakkan di dalam cell tertentu
Pertanyaan saya apakah bisa criteria diganti variable memory ?
Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
Semoga para master bisa memberi pencerahan
Terima kasih
saya juga sedang mencari metode yang sama tetapi belum ketemu caranya.
saat ini, untuk mengakalinya adalah:
1. setelah proses filter, range criteria saya hapus melalui macro juga.
atau
2. hasil filter ditempatkan di sheet yang lain
semoga membantu
thanks
-zainul-
From: belajar-excel@
On Behalf Of Heru Safrudin
Sent: Tuesday, July 02, 2013 12:09 PM
To: belajar-excel@
Subject: [belajar-excel] Macro : Advanced Filter
Dear Master,
Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus ada
criteria,
Sedangkan criteria harus diletakkan di dalam cell tertentu
Pertanyaan saya apakah bisa criteria diganti variable memory ?
Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
Semoga para master bisa memberi pencerahan
Terima kasih
Mon Jul 1, 2013 11:29 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
untuk mengetahui tanggal terakhir dari bulan pebruari pada tahun teretentu adalah
=EOMONTH(DATE(2013;2;1);0)
angka tahun tercetak merah bisa diganti sesuai tahun yang diinginkan.
dan akan menyesuaikan sendiri kabisat atau bukan silahkan dicoba !!
wassalam
Ghozi Alkatiri
________________________________
Dari: Jamil Makhmudin <jamil_kbm@yahoo.co.id >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 2 Juli 2013 7:46
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Terima kasih Mr. Kid dan De Premor atas pencerahannya...
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
--------------------------------------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,7)=1)
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(A1)=1)
:: Rumus: Weekday(A1)=1
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(A1)=1)
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(A1)=1,1) :: 23
Huruf
=A1---(WEEKDAY(A1)=1) ::
21 Huruf
=A1-(WEEKDAY(A1)=1)
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'alaikum Wr. Wb.
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
=EOMONTH(DATE(
angka tahun tercetak merah bisa diganti sesuai tahun yang diinginkan.
dan akan menyesuaikan sendiri kabisat atau bukan silahkan dicoba !!
wassalam
Ghozi Alkatiri
____________
Dari: Jamil Makhmudin <jamil_kbm@yahoo.
Kepada: belajar-excel@
Dikirim: Selasa, 2 Juli 2013 7:46
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Terima kasih Mr. Kid dan De Premor atas pencerahannya.
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(
:: Rumus: Weekday(A1)=
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(
Huruf
=A1---(WEEKDAY(
21 Huruf
=A1-(WEEKDAY(
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
Mon Jul 1, 2013 11:54 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sekedar nambahin hal kecil namun perlu perhatian,
- tanda ; (titik koma) tergantung regional settingnya, untuk English US ganti dengan tanda , (koma)
- Hasilnya berupa angka, jadi perlu diformat date.
Salam,
HK
----- Forwarded Message -----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 2 July 2013, 13:27
Subject: Bls: [belajar-excel] Tanggal akhir ditiap bulan...
untuk mengetahui tanggal terakhir dari bulan pebruari pada tahun teretentu adalah
=EOMONTH(DATE(2013;2;1);0)
angka tahun tercetak merah bisa diganti sesuai tahun yang diinginkan.
dan akan menyesuaikan sendiri kabisat atau bukan silahkan dicoba !!
wassalam
Ghozi Alkatiri
________________________________
Dari: Jamil Makhmudin <jamil_kbm@yahoo.co.id >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 2 Juli 2013 7:46
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Terima kasih Mr. Kid dan De Premor atas pencerahannya...
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
--------------------------------------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,7)=1)
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(A1)=1)
:: Rumus: Weekday(A1)=1
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(A1)=1)
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(A1)=1,1) :: 23
Huruf
=A1---(WEEKDAY(A1)=1) ::
21 Huruf
=A1-(WEEKDAY(A1)=1)
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'alaikum Wr. Wb.
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
- tanda ; (titik koma) tergantung regional settingnya, untuk English US ganti dengan tanda , (koma)
- Hasilnya berupa angka, jadi perlu diformat date.
Salam,
HK
----- Forwarded Message -----
From: ghozi alkatiri <ghozialkatiri@
To: "belajar-excel@
Sent: Tuesday, 2 July 2013, 13:27
Subject: Bls: [belajar-excel] Tanggal akhir ditiap bulan...
untuk mengetahui tanggal terakhir dari bulan pebruari pada tahun teretentu adalah
=EOMONTH(DATE(
angka tahun tercetak merah bisa diganti sesuai tahun yang diinginkan.
dan akan menyesuaikan sendiri kabisat atau bukan silahkan dicoba !!
wassalam
Ghozi Alkatiri
____________
Dari: Jamil Makhmudin <jamil_kbm@yahoo.
Kepada: belajar-excel@
Dikirim: Selasa, 2 Juli 2013 7:46
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Terima kasih Mr. Kid dan De Premor atas pencerahannya.
oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika bulan pebruari di tahun kabisat dan bukan kabisat????
------------
Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@
Tanggal: Senin, 1 Juli, 2013, 6:03 PM
Bisa pakai :
=A1-(Mod(A1,
Wassalam,
Kid.
2013/7/2 De Premor
<de@premor.net>
Nambah lagi pake model rumus lain berikut
=A1---(WEEKDAY(
:: Rumus: Weekday(A1)=
Jika A1 adalah hari minggu, maka result nya adalah TRUE,
jika tidak
maka FALSE
:: Double Minus "--" didepan rumus Weekday
Minus Pertama adalah untuk mengconvert Nilai TRUE ke
bilangan
Negatif => -1
Minus Kedua adalah untuk mengembalikan lagi menjadi
positif
Dikarenakan Operasi kita adalah operasi pengurangan,
maka formula
Triple Minus diatas dapat diubah menjadi 1 buah minus
saja, menjadi
sbb:
=A1-(WEEKDAY(
Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
sebelumnya,
yaitu
=A1-IF(WEEKDAY(
Huruf
=A1---(WEEKDAY(
21 Huruf
=A1-(WEEKDAY(
:: 19 Huruf
Rgds,
[dp]
On 01/07/2013 23:21, Jamil Makhmudin
wrote:
Assalamu'
Pakar excel terhormat...
Di setiap akhir bulan, kami diminta
membuat
laporan kepada atasan, dengan data dan
tanggal yang
tepat.
Beberapa laporan kami buat
penanggalan
otomatis, namun menjadi masalah jika hari
terakhir
adalah hari AHad (Minggu)
karena hari tersebut bukan hari
dinas dan tidak
diperbolehkan mengeluarkan surat pada hari
libur...
Adakah formula excel tentang
penanggalan,
berubah ke
tanggal sebelumnya jika hari terakhir di
bulan
tersebut merupakan hari Ahad
(Minggu)
atas
bantuannya disampaikan Terima
kasih...
Wassalam
Mon Jul 1, 2013 4:48 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
fungsi
=INDEX($A$1:$G$17;INDEX({2;10};MATCH(SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17));{2;10}));SUMPRODUCT(($C$2:$G$17=C23)*COLUMN($C$2:$G$17)))
kalaudiuraikan satu persatu formula di
atas terdiri dari :
1.SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17))
mencari nilai baris dari range $C$2:$G$17
yang datanya sama dengan data di C23
(ADE ALFAY) karena nama ADE ALFAY di range
C$2:$G$17 hanya berada berada di
cell C5 maka fungsi ini akan
menghasilkan nilai 5 (baris 5)
2.SUMPRODUCT(($C$2:$G$17=C23)*COLUMN($C$2:$G$17)))
mencari nilai kolom dari range $C$2:$G$17
yang datanya sama dengan data di C23
(ADE ALFAY) karena nama ADE ALFAY di range
C$2:$G$17 hanya berada berada di
cell C5 maka fungsi ini akan
menghasilkan nilai 3 (kolom C)
padahal
seluruh target yang ingin dimunculkan dari kasusi ini adalah posisi meja yang berada di baris 2 atau baris
10
untuk cell C5 karena berada setelah baris 2 maka nilai baris yang diinginkan adalah 2
sedangkan untuk
kolom karena tidak diperlukan perubahan
maka tetap seperti aslinya.
demikian
juga untuk baris yang berada setelah baris 10
yang ingin dimunculkan adalah 10.
maka,untuk
mensiasati hal ini digunakan fungsi
MATCH(SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17));{2;10})
maka hasildari fungsi sumproduct pada formula No.1 yang
sebelummya 5 berubah menjadi 2 demikian juga akan muncul nilai 10 ketika data yang dimaksudkan berada setelah baris 10.
seperti
dilihat pada formula secara keseluruhan ada dua kali fungsi INDEX .
index
yang di dalam INDEX({2;10};MATCH(SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17));{2;10}))
akan memunculkan nilai 2 atau 10
index
yang diluar (global) mengindex
kembali hasil index dalam supaya menghasilkan nilai yang diinginkan.
mudah
mudahan penjelasan ini bisa dipahami.
wassalam
Ghozi
Alkatiri
________________________________
Dari: Emi <emilestariklcc@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 1 Juli 2013 20:58
Judul: Re: Bls: [belajar-excel] Lookup mencari posisi meja
Pak Ghozi,
Mohon pencerahan, dalam rumus di bawah apa artinya INDEX({2;10}, merujuk kepada apa?
=INDEX($A$1:$G$17,INDEX({2;10},MATCH(SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17)),{2;10})),SUMPRODUCT(($C$2:$G$17=C23)*COLUMN($C$2:$G$17)))
Terima kasih.
Emi Lestari
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Saturday, June 29, 2013 9:32 AM
Subject: Bls: [belajar-excel] Lookup mencari posisi meja
tulis di D23
=INDEX($A$1:$G$17;INDEX({2;10};MATCH(SUMPRODUCT(($C$2:$G$17=C23)*ROW($C$2:$G$17));{2;10}));SUMPRODUCT(($C$2:$G$17=C23)*COLUMN($C$2:$G$17)))
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: Emi <emilestariklcc@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 28 Juni 2013 9:53
Judul: [belajar-excel] Lookup mencari posisi meja
Dear Teman BeExcel,
Gimanacara lookup untuk mencari di meja
mana mereka berada.
Apabila
nama ditulis, otomatis bisa tau di mana mereka.
Terima
kasih.
-Emi
Lestari
=INDEX($A$1:
kalaudiuraikan satu persatu formula di
atas terdiri dari :
1.SUMPRODUCT(
mencari nilai baris dari range $C$2:$G$17
yang datanya sama dengan data di C23
(ADE ALFAY) karena nama ADE ALFAY di range
C$2:$G$17 hanya berada berada di
cell C5 maka fungsi ini akan
menghasilkan nilai 5 (baris 5)
2.SUMPRODUCT(
mencari nilai kolom dari range $C$2:$G$17
yang datanya sama dengan data di C23
(ADE ALFAY) karena nama ADE ALFAY di range
C$2:$G$17 hanya berada berada di
cell C5 maka fungsi ini akan
menghasilkan nilai 3 (kolom C)
padahal
seluruh target yang ingin dimunculkan dari kasusi ini adalah posisi meja yang berada di baris 2 atau baris
10
untuk cell C5 karena berada setelah baris 2 maka nilai baris yang diinginkan adalah 2
sedangkan untuk
kolom karena tidak diperlukan perubahan
maka tetap seperti aslinya.
demikian
juga untuk baris yang berada setelah baris 10
yang ingin dimunculkan adalah 10.
maka,untuk
mensiasati hal ini digunakan fungsi
MATCH(SUMPRODUCT(
maka hasildari fungsi sumproduct pada formula No.1 yang
sebelummya 5 berubah menjadi 2 demikian juga akan muncul nilai 10 ketika data yang dimaksudkan berada setelah baris 10.
seperti
dilihat pada formula secara keseluruhan ada dua kali fungsi INDEX .
index
yang di dalam INDEX({2;10}
akan memunculkan nilai 2 atau 10
index
yang diluar (global) mengindex
kembali hasil index dalam supaya menghasilkan nilai yang diinginkan.
mudah
mudahan penjelasan ini bisa dipahami.
wassalam
Ghozi
Alkatiri
____________
Dari: Emi <emilestariklcc@
Kepada: "belajar-excel@
Dikirim: Senin, 1 Juli 2013 20:58
Judul: Re: Bls: [belajar-excel] Lookup mencari posisi meja
Pak Ghozi,
Mohon pencerahan, dalam rumus di bawah apa artinya INDEX({2;10}
=INDEX($A$1:
Terima kasih.
Emi Lestari
____________
From: ghozi alkatiri <ghozialkatiri@
To: "belajar-excel@
Sent: Saturday, June 29, 2013 9:32 AM
Subject: Bls: [belajar-excel] Lookup mencari posisi meja
tulis di D23
=INDEX($A$1:
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: Emi <emilestariklcc@
Kepada: "belajar-excel@
Dikirim: Jumat, 28 Juni 2013 9:53
Judul: [belajar-excel] Lookup mencari posisi meja
Dear Teman BeExcel,
Gimanacara lookup untuk mencari di meja
mana mereka berada.
Apabila
nama ditulis, otomatis bisa tau di mana mereka.
Terima
kasih.
-Emi
Lestari
Mon Jul 1, 2013 8:11 pm (PDT) . Posted by:
"WIRAnata Kemala" kwiranata
Kang zainul, mantap jalan lancar.
Setelah dimengerti codingnya, ijin untuk modifikasi sedikit ya.
Trims banget ;)
regards, Wira 鄧åˆÃ©Š˜
Note 2 on Super 3G+
On Jul 1, 2013 10:12 PM, "zainul_ulum[at]yahoo[dot]com" <
zainul_ulum@yahoo.com > wrote:
> **
>
>
> Kang Wira,
> silahkan dicoba vba code berikut:
> '======
> Option Explicit
> Sub TransformData()
> Dim rgDataAsal As Range
>
> With Worksheets("Sheet1")
> '1. menentukan range yang akan ditransform dan jumlah record
> Set rgDataAsal = .Range("A1").CurrentRegion
>
> '2. sort data asal berdasarkan field 'relno'
> rgDataAsal.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
>
> '3. menentukan range relno dimulai dari baris kedua
> Dim rgRelNo As Range, nRecs As Long
> nRecs = rgDataAsal.Rows.Count - 1
> Set rgRelNo = .Range("A2").Resize(nRecs, 1)
>
> '4. mengumpulkan nomor relno
> Dim rgCell As Range 'cell relno
> Dim i As Long, j As Long, nAcc As Long
> Dim DataBaru() As Variant
> i = -1
> For Each rgCell In rgRelNo.Cells
> '4.1. jika nilai relno TIDAK SAMA dengan baris sebelumnya
> If rgCell.Value <> rgCell.Offset(-1, 0).Value Then
> i = i + 1
> ReDim Preserve DataBaru(8, i)
> DataBaru(0, i) = rgCell 'norel
> DataBaru(1, i) = rgCell.Offset(, 1) 'nama
> DataBaru(7, i) = rgCell.Offset(, 4) 'address 1
> DataBaru(8, i) = rgCell.Offset(, 5) 'address 2
>
> '4.2. mengumpulkan banyaknya account tiap relno
> nAcc = WorksheetFunction.CountIf(rgRelNo, rgCell)
> For j = 0 To nAcc - 1
> DataBaru(2 + j, i) = rgCell.Offset(j, 2) & " " &
> rgCell.Offset(j, 3)
> Next j
>
> End If
> Next
>
> End With
>
> '5. mencetak di sheet yang diinginkan
> Dim NewRecs As Long
> NewRecs = UBound(DataBaru, 2) + 1
> With Worksheets("diinginkan")
> '5.1. menghapus data sebelumnya jika sudah ada
> .Range("A2").Resize(10000, 9).Clear
>
> '5.2. tulis data baru
> .Range("A2").Resize(NewRecs, 9) =
> WorksheetFunction.Transpose(DataBaru)
> .Activate
> End With
>
> End Sub
>
> '=====
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
> On Behalf Of WIRAnata Kemala
> Sent: Monday, July 01, 2013 7:38 PM
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] multiple records (rows) jadi kolom
>
>
> dear all,
> bisa minta tolong bantuannya untuk memindahkan multiple records (rows) jadi
> multiple kolom?
> untuk lebih jelasnya, saya attach yah xls nya.
> mohon bantuannya dalam VBA yah - sekalian newbie belajar vba :)
>
> thanks atas bimbingan dan kesabaran rekan-rekan :)
> salam.
>
>
>
Setelah dimengerti codingnya, ijin untuk modifikasi sedikit ya.
Trims banget ;)
regards, Wira 鄧åˆÃ©Š˜
Note 2 on Super 3G+
On Jul 1, 2013 10:12 PM, "zainul_
zainul_ulum@
> **
>
>
> Kang Wira,
> silahkan dicoba vba code berikut:
> '======
> Option Explicit
> Sub TransformData(
> Dim rgDataAsal As Range
>
> With Worksheets("
> '1. menentukan range yang akan ditransform dan jumlah record
> Set rgDataAsal = .Range("
>
> '2. sort data asal berdasarkan field 'relno&#
> rgDataAsal.Sort key1:=.Range(
>
> '3. menentukan range relno dimulai dari baris kedua
> Dim rgRelNo As Range, nRecs As Long
> nRecs = rgDataAsal.Rows.
> Set rgRelNo = .Range("
>
> '4. mengumpulkan nomor relno
> Dim rgCell As Range 'cell relno
> Dim i As Long, j As Long, nAcc As Long
> Dim DataBaru() As Variant
> i = -1
> For Each rgCell In rgRelNo.Cells
> '4.1. jika nilai relno TIDAK SAMA dengan baris sebelumnya
> If rgCell.Value <> rgCell.Offset(
> i = i + 1
> ReDim Preserve DataBaru(8, i)
> DataBaru(0, i) = rgCell 'norel
> DataBaru(1, i) = rgCell.Offset(
> DataBaru(7, i) = rgCell.Offset(
> DataBaru(8, i) = rgCell.Offset(
>
> '4.2. mengumpulkan banyaknya account tiap relno
> nAcc = WorksheetFunction.
> For j = 0 To nAcc - 1
> DataBaru(2 + j, i) = rgCell.Offset(
> rgCell.Offset(
> Next j
>
> End If
> Next
>
> End With
>
> '5. mencetak di sheet yang diinginkan
> Dim NewRecs As Long
> NewRecs = UBound(DataBaru, 2) + 1
> With Worksheets("
> '5.1. menghapus data sebelumnya jika sudah ada
> .Range("
>
> '5.2. tulis data baru
> .Range("
> WorksheetFunction.
> .Activate
> End With
>
> End Sub
>
> '=====
>
> From: belajar-excel@
> On Behalf Of WIRAnata Kemala
> Sent: Monday, July 01, 2013 7:38 PM
> To: belajar-excel@
> Subject: [belajar-excel] multiple records (rows) jadi kolom
>
>
> dear all,
> bisa minta tolong bantuannya untuk memindahkan multiple records (rows) jadi
> multiple kolom?
> untuk lebih jelasnya, saya attach yah xls nya.
> mohon bantuannya dalam VBA yah - sekalian newbie belajar vba :)
>
> thanks atas bimbingan dan kesabaran rekan-rekan :)
> salam.
>
>
>
Mon Jul 1, 2013 8:21 pm (PDT) . Posted by:
"De Premor"
Pakai SUM di bumbuin CSE
{=SUM(--($C$3:$G$17=C23)*(FLOOR(COLUMN($C$3:$G$17)/2,1)+(FLOOR(ROW($C$3:$G$17)/10,1)*3)))}
On 28/06/2013 9:53, Emi wrote:
> Dear Teman BeExcel,
> Gimanacara lookup untuk mencari di meja mana mereka berada.
> Apabila nama ditulis, otomatis bisa tau di mana mereka.
> Terima kasih.
> -Emi Lestari
>
>
>
{=SUM(--($C$
On 28/06/2013 9:53, Emi wrote:
> Dear Teman BeExcel,
> Gimanacara lookup untuk mencari di meja mana mereka berada.
> Apabila nama ditulis, otomatis bisa tau di mana mereka.
> Terima kasih.
> -Emi Lestari
>
>
>
Mon Jul 1, 2013 11:07 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Setelah menyeragamkan lingkungan belajar
VBA<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html >dan
keliling
VBE<http://b-excel.blogspot.com/2013/06/belajarvba-001-vbe-visual-basic-editor.html >,
saatnya mulai menulis kode program.
Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam
penulisan kode program...
disini<http://b-excel.blogspot.com/2013/07/belajarvba-002-gimana-sih-cara-nulis.html >
Wassalam,
Kid.
Setelah menyeragamkan lingkungan belajar
VBA<http://b-excel.
keliling
VBE<http://b-excel.
saatnya mulai menulis kode program.
Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam
penulisan kode program...
disini<http://b-excel.
Wassalam,
Kid.
Tue Jul 2, 2013 12:02 am (PDT) . Posted by:
"Semut Seto" setosemut
Assalamualaikum Warohmatullohi
Wabarokatuh
Salam kenal rekan-rekan sekalian
Mohon bantuan master2 sekalian,
saya sedang belajar membuat sebuah file excel dengan macro VBA agar file tsb bisa expired setelah digunakan beberapa kali
atau dalam jangka waktu tertentu, file tidak bisa di save as, dan memaksa pengguna untuk mengaktifkan macro. Apabila macro tidak aktif maka sheet utama akan
disembunyikan. Sebagai bahan saya lampirkan file excel yg ingin saya buat
seperti itu.
Dari file tsb ada 11 sheet yang
terdiri dari 6 sheet “utamaâ€, 4 sheet
“dummy†dan 1 sheet “peringatanâ€. Jadi, jika file tsb dibuka dan macro belum
diaktifkan maka hanya akan muncul sheet “peringatan†yang memberitahu untuk
mengaktifkan macro, jika macro sudah diaktifkan maka 6 sheet “utama†otomatis muncul dan
sheet “peringatan†langsung terhidden, sedangkan 4 sheet “dummy†tetap dihidden/
disembunyikan.
Mohon kiranya rekan2 master
disini bisa membantu memecahkan masalah tsb, dan mohon bisa memberikan
referensi buku mengenai belajar macro untuk pemula agar bisa menjadi panduan saya
belajar di rumah, sebelumnya saya ucapkan terimakasih.
-seto-
Wabarokatuh
Salam kenal rekan-rekan sekalian
Mohon bantuan master2 sekalian,
saya sedang belajar membuat sebuah file excel dengan macro VBA agar file tsb bisa expired setelah digunakan beberapa kali
atau dalam jangka waktu tertentu, file tidak bisa di save as, dan memaksa pengguna untuk mengaktifkan macro. Apabila macro tidak aktif maka sheet utama akan
disembunyikan. Sebagai bahan saya lampirkan file excel yg ingin saya buat
seperti itu.
Dari file tsb ada 11 sheet yang
terdiri dari 6 sheet “utamaâ€, 4 sheet
“dummy†dan 1 sheet “peringatanâ€. Jadi, jika file tsb dibuka dan macro belum
diaktifkan maka hanya akan muncul sheet “peringatan†yang memberitahu untuk
mengaktifkan macro, jika macro sudah diaktifkan maka 6 sheet “utama†otomatis muncul dan
sheet “peringatan†langsung terhidden, sedangkan 4 sheet “dummy†tetap dihidden/
disembunyikan.
Mohon kiranya rekan2 master
disini bisa membantu memecahkan masalah tsb, dan mohon bisa memberikan
referensi buku mengenai belajar macro untuk pemula agar bisa menjadi panduan saya
belajar di rumah, sebelumnya saya ucapkan terimakasih.
-seto-
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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