Jumat, 21 Maret 2014

[belajar-excel] Digest Number 2841

15 Messages

Digest #2841
1a
Re: Transpose tabel by "Mr. Kid" nmkid.family@ymail.com
1b
Re: Transpose tabel [1 Attachment] by "dhen.baguse" bagusejogja
3a
Re: Modifikasi Invoice yang Kacau [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
8a
Re: Merangkum tanggal jadi satu [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
9a
Re: formula sum [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
10a
Re: mengatur ukuran kertas dengan vba [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Fri Mar 21, 2014 8:07 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

ehm...

sudah lama tapi belum ada yang melanjutkannya....

Kasus ini adalah filtering data. Biasanya bisa diselesaikan dengan array
formula filtering<http://excel-mr-kid.blogspot.com/2011/04/formula-filter-data-filtering-formula.html>
.
Kriteria pada kasus ini ada 2, yaitu :
1. tanggal tertentu
2. nama tertentu

Array formula filtering yang digunakan biasanya adalah *Small(IF(), nomor
urut yang dibutuhkan) *untuk membentuk kolom bantu dengan nomor urut hasil
sebagai pengambil posisi record yang dibutuhkan.
Pada kasus ini, tidak dimungkinkan untuk menggunakan kolom bantu, karena
nomor urut yang akan diambil disusun horisontal (ke kanan) alias pada kolom
yang lain. Jadi, terbentuk sumbu X dan Y.
Dengan demikian, maka nomor urut yang diambil dari hasil *Small(IF(), nomor
urut yang dibutuhkan)* diperoleh dari hasil kalkulasi jumlah cacah header
bertulisan tertentu sebagai penunjuk akan mengambil nomor urut kesekian...

Mungkin file terlampir bisa lebih memberi gambaran.

Pada file terlampir, andaikan sheet untuk data transfer dan data potongan
dikumpulkan dalam sebuah sheet (misal sheet bernama data), maka pivot table
bisa membantu menyusun output walau tidak persis sama dengan yang
diharapkan. Tapi, sepertinya yang ditampilkan oleh pivot table bisa lebih
memudahkan analisa.

Wassalam,
Kid.

2014-03-15 20:20 GMT+07:00 dhen.baguse <bagusejogja@yahoo.com>:

>
>
> Salam,
> untuk tanggal 10 Januari seprti itu ok, tetapi jika diganti tanggal 13
> februari data akan kacau, di rumus mana agar bisa tanggal dirubah susunan
> nama juga berubah..
> terimakasih
>
>
> On Saturday, March 15, 2014 3:30 PM, Bagus <bagus@kingjim.co.id> wrote:
>
> Hai dhen;
>
> Coba file terlampir
>
>
>
> Wassalam
> ~ Bagus ~
>
>
> ----- Original Message -----
> *From:* dhen.baguse <bagusejogja@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Saturday, March 15, 2014 2:07 PM
> *Subject:* [belajar-excel] Transpose tabel [1 Attachment]
>
>
> Salam exceler di milisi belajar excel, saya terkendala merubah tambilan
> tabel, mohon bantuan temen temen ... terimakasih
>
>
>
>
>

Fri Mar 21, 2014 4:01 pm (PDT) . Posted by:

"dhen.baguse" bagusejogja

Salam untuk mr kid dan temen temen exceler di milis ini, benar Mr kid klo itu menggunakan array, saya sampai binggung menggunakan judul itu, karena itu perubahan dari bentuk data berdiri ke data tidur (klo istilah saya:) dan saya beri nama trasnpose, ternyata pemberian nama salah asumsi buat orang lain yg membacanya.
Sebenarnya saya saat ini sudah menggunakan array, tetapi aray itu butuh satu sheet bantu yang lumayan juga, dan di array buatan saya tersebut juga menurut saya kurang efisien menggunakan barissnya (mungkin bisa ada masukan), karena semisal array di A1-A10 untuk nama  Andi di baris B1 kekanan dst.. dan array di A11-A21 untuk nama bagus di baris B2 kekanan dst... semisal saya punya 10 nama di klom B saja bisa jadi 100 baris an yg digunakan dikolom A. Mungkin ada pencerahan untuk tersebut.
Saya sangat setuju masukkan Mr Kid untuk pivotnya, mungkin itu bisa untuk saya cetak fisiknya yang saat ini saya sudah menggunakan fasilitas pivot tapi tidak sejangih itu, tetapi apakah bisa menggunakan array yang lebih simpel untuk menhasilkan data yang seperti lampiran "hasil", karena data tersebut akan saya tarik ke "mailmarge" word lalu saya kirim ke body email. semisal saya menggunakan excel dan saya copy ke body email agak tidak berarturan, maka saya merubah format tersebut untuk bisa di baca ke word. Atau apakah temen temen excel maupun Mr Kid secara khus ada masukkan untuk itu.

Terimakasih atas masukkan teman temen master excel, semoga berguna bagi semua dan mendapat balasan dari Nya. amin...

On Friday, March 21, 2014 10:08 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
ehm...

sudah lama tapi belum ada yang melanjutkannya....

Kasus ini adalah filtering data. Biasanya bisa diselesaikan dengan array formula filtering.
Kriteria pada kasus ini ada 2, yaitu :
1. tanggal tertentu
2. nama tertentu

Array formula filtering yang digunakan biasanya adalah Small(IF(), nomor urut yang dibutuhkan) untuk membentuk kolom bantu dengan nomor urut hasil sebagai pengambil posisi record yang dibutuhkan.
Pada kasus ini, tidak dimungkinkan untuk menggunakan kolom bantu, karena nomor urut yang akan diambil disusun horisontal (ke kanan) alias pada kolom yang lain. Jadi, terbentuk sumbu X dan Y.
Dengan demikian, maka nomor urut yang diambil dari hasil Small(IF(), nomor urut yang dibutuhkan) diperoleh dari hasil kalkulasi jumlah cacah header bertulisan tertentu sebagai penunjuk akan mengambil nomor urut kesekian...

Mungkin file terlampir bisa lebih memberi gambaran.

Pada file terlampir, andaikan sheet untuk data transfer dan data potongan dikumpulkan dalam sebuah sheet (misal sheet bernama data), maka pivot table bisa membantu menyusun output walau tidak persis sama dengan yang diharapkan. Tapi, sepertinya yang ditampilkan oleh pivot table bisa lebih memudahkan analisa.

Wassalam,

Kid.

2014-03-15 20:20 GMT+07:00 dhen.baguse <bagusejogja@yahoo.com>:


>Salam,
>untuk tanggal 10 Januari seprti itu ok, tetapi jika diganti tanggal 13 februari data akan kacau, di rumus mana agar bisa tanggal dirubah susunan nama juga berubah..
>terimakasih
>
>
>
>On Saturday, March 15, 2014 3:30 PM, Bagus <bagus@kingjim.co.id> wrote:
>

>Hai dhen;

>Coba file terlampir



>Wassalam
>~
Bagus ~
>  
>----- Original Message -----
>>From: dhen.baguse
>>To: belajar-excel@yahoogroups.com
>>Sent: Saturday, March 15, 2014 2:07 PM
>>Subject: [belajar-excel] Transpose tabel [1 Attachment]
>>
>> 
>>Salam exceler di milisi belajar excel, saya terkendala merubah tambilan tabel, mohon bantuan temen temen ... terimakasih
>
>

Fri Mar 21, 2014 8:13 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

trit ini udah 7 hari belum tersentuh...
sepertinya BeExceller sudah mulai jengah dengan kasus yang ingin hasil
jadinya langsung, terutama dalam script VBA.

Blog milis sudah menyediakan sarana untuk belajar VBA, yang dimulai
disini<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
.

imho,
dengan menampakkan sedikit usaha berupa beberapa baris script yang sudah
dibuat sebisa mungkin, akan dapat mengundang BeExceller untuk bersedia
membantu menjelaskan (bukan membuatkan) bagian yang masih menjadi kendala.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-03-14 16:32 GMT+07:00 Triyoso Rustamaji <trustamaji@yahoo.com>:

>
>
> assalamualaikum ..
> selamat sore master...
> slogan "malu bertanya kerja manual" selalu saya pegang.
> permasalahan terlampir, yang tentu banyak menggunakan trik VBA
> yang saya masih belum bisa, semoga menjadikan kerja saya lebih ringan.
> berikut saya lampirkan masalahnya.
>
> semoga amal baik panjenengan semua mendapatkan nilai lebih dari_NYA.
>
> wassalamualaikum
>
> triyoso rustamaji
>
>
>

Fri Mar 21, 2014 8:22 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Nora,

Boleh tanya,
baris ini artinya apa ya ? siapa yang dicari dan dimana lokasi pencariannya
?
Set DataBeli = Selection.Find(What:=Rng.Text)

Wassalam,
Kid.

2014-03-14 20:48 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:

>
>
> Mohon bantuan para master dan segenap anggota milis.
>
> Kemarin saya mem-posting problem saya terkait dengan invoice sederhana
> yang saya miliki. Setelah problem diselesaikan atas petunjuk Master Kid,
> saya coba utak atik invoice tersebut dengan menambahkan kolom diskon (pada
> sheet invoice), kolom sisa pada sheet BARANG, dll. Akibatnya tombol SAVE
> yang fungsinya memasukkan (mengcopy) transaksi penjualan ke sheet PENJUALAN
> dan REKAP PENJUALAN jadi kacau.
>
> Bersama email ini, saya lampirkan file INVOICE yang kacau tersebut.
>
> Terima kasih atas bantuannya.
>
>
>

Fri Mar 21, 2014 6:50 pm (PDT) . Posted by:

"Nora Ismanti" noraismanti

Terima kasih atas tanggapan Mr. Kid.

Kode VBA yang ada pada aplikasi (invoice) saya bukan buatan saya, tetapi buatan anggota milis ini juga. Saya hanya mengerti sedikit (sekali tentang VBA). Oleh karena itu terkait dengan pertanyaan dari Mr. Kid saya tidak bisa jawab.

Mungkin Mr. Kid bisa mengerti maksud dari potongan kode VBA yang dimaksud dengan menelaah secara menyeluruh kode VBA yang ada di aplikasi saya tersbut.

Demikian terima kasih

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 21 Maret 2014 22:21
Judul: Re: [belajar-excel] Modifikasi Invoice yang Kacau


 
Hai Nora,

Boleh tanya,
baris ini artinya apa ya ? siapa yang dicari dan dimana lokasi pencariannya ?
Set DataBeli = Selection.Find(What:=Rng.Text)

Wassalam,
Kid.

2014-03-14 20:48 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:


>Mohon bantuan para master dan segenap anggota milis.
>
>Kemarin saya mem-posting problem saya terkait dengan invoice sederhana yang saya miliki. Setelah problem diselesaikan atas petunjuk Master Kid, saya coba utak atik invoice tersebut dengan menambahkan kolom diskon (pada sheet invoice), kolom sisa pada sheet BARANG, dll. Akibatnya tombol SAVE yang fungsinya memasukkan (mengcopy) transaksi penjualan ke sheet PENJUALAN dan REKAP PENJUALAN jadi kacau.
>
>
>
>Bersama email ini, saya lampirkan file INVOICE yang kacau tersebut.
>
>
>
>Terima kasih atas bantuannya.
>
>
>

Fri Mar 21, 2014 8:26 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Ahmad,

Barangkali bersedia mencoba untuk meniru yang ada di file yang ada
disini<https://app.box.com/s/pz0o2r49w33uecah4zoa>.
Andai bersedia mencoba meniru, pastikan meniru bagian penyusunan data yang
dipisah menjadi beberapa tabel kecil seperti yang ada dalam file tersebut.

Wassalam,
Kid.

2014-03-17 10:28 GMT+07:00 Ahmad Mubarak <thommey2000@yahoo.com>:

>
>
> Salam rekan-rekan sekalian.
> Mohon pencerahannya:
>
> misal ada 2 combobox, combobox1 akan berisi pilihan "kabupaten&quot; .
> sedangkan combobox2 akan berisi data "kecamatan&quot;.
>
> nah misal kita memilih kabupaten *A" di combobox1 maka dicombobox2 isinya
> adalah nama2 kecamatan yang ada diarea kabupaten "A" saja,
>
> demikian halnya kalau kita memilih combobox1 "kabupaten B" maka pada
> combobox2 akan tampil nama kecamatan didalam area kabupaten B.
>
> Sekian saja mohon bantuannya.
>
>
>

Fri Mar 21, 2014 8:32 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Assalamu'alaikum Tommy,

Pada kondisi tabel penulisan dengan header 1 baris di baris 1 mulai kolom A
:
textbox1.text = sheet2.range("a1").currentregion.rows.count

letakkan pada akhir proses simpan dan saat inisialisasi userform.

Sesuaikan bagian sheet2.range("a1").currentregion.rows.count agar
mendapatkan jumlah baris (termasuk header) dari tabel penulisan (hanya
tabelnya saja, tanpa title tabel dan sebagainya)

Wassalamu'alaikum Wr. Wb.
Kid.

2014-03-17 10:21 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:

>
>
> Assalamu'alaikum Pak Ahmad Mubarak.
>
> File terlampir semoga bisa mambantu. Buat rekan-rekan tolong bantu nomor
> otomatis dan copy data OptionButton ke worksheet karena saya belum bisa &
> juga pengen bisa.
>
> terimaksih.
>
>
> Pada , Haris Rifai <haris.rifai@yahoo.co.id> menulis:
>
>
> Pada Minggu, 16 Maret 2014 14:18, Ahmad Mubarak <thommey2000@yahoo.com>
> menulis:
>
> Dear rekan-rekan sekalian. kami mohon bantuan gmn caranya agar form pada
> excel pada lampiran ini bisa berjalan sesuai yg diinginkan. penjelasan
> detilnya ada pada lampiran email ini. atas perhatiannya kami ucapkan terima
> kasih.
>
> "Tommy"
>
>
>
>
>
>

Fri Mar 21, 2014 8:41 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Mungkin ada addin tertentu yang aktif. Boleh gak kalau filenya (berisi data
dummy saja dan sedikit saja) di share ke milis ?

Wassalam,
Kid.

2014-03-20 8:32 GMT+07:00 Jan Raisin <miss.jan.raisin@gmail.com>:

>
>
> Hai Ivan,
>
> mungkin begini ya:
> 1. ada Conditional Format (CF) pada cel tersebut, coba cek CF yang ada
> 2. ada formula di suatu cel di lokasi lain yang mempengerahi cel tersebut,
> biasanya mungkin kombinasi dengan yang nomer 3
> 3. ada VBA (macro) yang mempengaruhi kelakuan pada cel tersebut
>
> mungkin mr Kid, pak Anton, pak Hendrik dan Be-Exceller lain bisa
> menambahkan kemungkinan yang lain.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 20 Maret 2014 07.44, <ivanstats@yahoo.com> menulis:
>
>
>>
>> Sent from my BlackBerry(R)
>> powered by Sinyal Kuat INDOSAT
>> ------------------------------
>> *From: * ivan budiman <ivanstats@yahoo.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Tue, 18 Mar 2014 09:44:22 -0700 (PDT)
>> *To: *belajar excel<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *[belajar-excel] Kenapa Pilih Fill Warna Harus 2 Kali Klik
>> Baru Cell Berubah Warna
>>
>>
>>
>> Dear Para Master,
>> Saya agak aneh dengan excel saya. Ketika saya mau rubah2 warna dengan
>> menggunakan fill warna pada cell, ketika memilih warna, cell tidak langsung
>> berubah warna sesuai dengan warna yang dikehendaki. Harus diklik sekali
>> lagi, baru warna nya berubah.
>> Kenapa bisa begitu ya? Biasanya sih saya tidak pernah mengalami seperti
>> itu. Mohon petunjuknya dari para master ya.
>> Thanks alot
>>
>> Ivan
>>
>>
>> Regards,
>> M I B
>>
>> - thankfulness -
>>
>> _
>>
>
>

Fri Mar 21, 2014 8:46 am (PDT) . Posted by:

"Nora Ismanti" noraismanti

Terima kasih Pak Bagus. Problem saya sudah terpecahkan. Kode yang bagus sekali.

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 21 Maret 2014 16:44
Judul: Re: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Bagaimana membuat sheet REKAP PENJUALAN yang otomatis?


 
Hai Nora;
 
Bagaimana kalo pada cekrip yang
berbunyi:
.Offset(RekapCnt, 3) =
Form.[H23]
 
diganti dengan:
.Offset(RekapCnt, 3).Formula =
"=SumIf (PENJUALAN!I:I, A:A, PENJUALAN!L:L)"
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Nora Ismanti
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, March 20, 2014 9:06 PM
>Subject: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Bagaimana membuat sheet REKAP PENJUALAN yang otomatis? [1 Attachment]
>

>Mohon bantuan kepada para master dan segenap anggota milis.
>
>
>
>Saya punya invoice sederhana. Ada sedikit problem dalam invoice saya ini, yaitu pada kolom D (TOTAL PEMBELIAN) di sheet "REKAP PENJUALAN" tidak berubah secara otomatis mengikuti keadaan di sheet "PENJUALAN&quot;. Mungkin yang perlu diubah adalah kode VBA-nya. Selengkapnya mohon dilihat pada lampiran. Penjelasan masalah ada di sheet "PENJUALAN&quot;.
>
>
>Atas perhatian dan bantuannya, saya ucapkan terima kasih. 
>
>
>

Fri Mar 21, 2014 8:57 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Tjahya,

File terlampir dengan sebuah kolom bantu. Coretan tentang menggabungkan
teks multi baris ada
disini<http://excel-mr-kid.blogspot.com/2014/03/menggabung-teks-banyak-baris-berkriteria.html>
.

Wassalam,
Kid.

2014-03-21 16:51 GMT+07:00 Tjahya Hartono <tjahyahartono@yahoo.co.id>:

>
>
>
> Dear Master Excel,
>
>
> Bagaimana ya rumusnya bila kasusnya terlampir.
> Terima kasih
>
>
> Wassalam
>
>
>
>

Fri Mar 21, 2014 9:04 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Yusril,

Coba formula :
=SUM(INDEX(Data!$B$3:$D$7,MATCH($A4,Data!$A$3:$A$7,0)*,0*))

Bagian Index untuk mengambil range sebaris terpilih (dampak *,0* dalam
formula) pada baris tertentu yang dihasilkan oleh Match.
Karena hasil Index pada formula tersebut adalah suatu range, maka fungsi
Sum mendapatkan inputan berupa range.
Jadi formula di atas *bukanlah *array formula.

*** jika regional setting komputer setempat adalah Indonesian, maka ganti
seluruh karakter koma dalam formula dengan karakter titik koma.

Wassalam,
Kid.

2014-03-21 17:41 GMT+07:00 Yusril Ramadani <yusrilramadani@gmail.com>:

>
>
> Dear para pakar
>
>
> Mohon bantuannya untuk case terlampir
> saya mau menjumlah dengan kriteria data tersebut memiliki beberapa kolom
> yang akan dijumlah
>
>
> case terlampir saya mencoba pake sumif tp kok tidak bisa lbh dr 1 kolom ya
>
>
> terima kasih sebelumnya
>
> Salam
> YR
>
>
>
>

Fri Mar 21, 2014 9:10 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

Coba :
Sheets("nama sheetnya").pagesetup.papersize=
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl
bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.aspx

Wassalamu'alaikum Wr. Wb.,
Kid.

2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:

>
>
> Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
> mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
> mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
> pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
> kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>

Fri Mar 21, 2014 5:13 pm (PDT) . Posted by:

"prazt" praztmath

Hasilnya apakah seperti ini Mr.Kid ? tapi masih debug, kira kekurangan atau
kesalahan dmn? Mohon penjelasan

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 21 Maret 2014 23:10
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba

Wa'alaikumussalam Wr. Wb.

Coba :

Sheets("nama sheetnya").pagesetup.papersize=
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.asp
x

Wassalamu'alaikum Wr. Wb.,

Kid.

2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:

Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Fri Mar 21, 2014 7:18 pm (PDT) . Posted by:

"prazt" praztmath

Maap lampiran ketinggalan mr kid

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 21 Maret 2014 23:10
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba

Wa'alaikumussalam Wr. Wb.

Coba :

Sheets("nama sheetnya").pagesetup.papersize=
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.asp
x

Wassalamu'alaikum Wr. Wb.,

Kid.

2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:

Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk
mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah
mencoba menggunakan record macro tapi masih bingung juga mana yang harus di
pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran
kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Fri Mar 21, 2014 9:08 pm (PDT) . Posted by:

"Bagus" bagus4bls

Pak Prazt;

Mungkin ini karena ukuran tsb tidak dikenali oleh default printer yang kita gunakan.
coba pada dialog printer, pilih properties..
lihat pada paper sizenya..
apakah ada ukuran / tipe kertas yg kita gunakan tsb..?

ditempat saya ada 2 printer. (HP dan Xerox)

dua2nya tidak mengenal ukuran "xlPaperA4Small" dan "xlPaperFanfoldLegalGerman"

setelah sekripnya saya ganti menjadi "xlPaperA4" dan "xlPaperFolio"

yang A4 dikenali dua2nya (bisa berjalan dikedua printer tsb) => tdk muncul debug

Folio hanya dikenali oleh Xerox, sedangkan HP tidak mengenalinya.
jadi ketika saya set printer xerox sebagai default tidak muncul debug, sedangkan ketika saya set defaultnya HP maka muncul debug.

Mungkin begitu..

Wassalam

~ Bagus ~

----- Original Message -----
From: prazt
To: belajar-excel@yahoogroups.com
Sent: Saturday, March 22, 2014 9:19 AM
Subject: RE: [belajar-excel] mengatur ukuran kertas dengan vba [1 Attachment]

Maap lampiran ketinggalan mr kid

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 21 Maret 2014 23:10
To: BeExcel
Subject: Re: [belajar-excel] mengatur ukuran kertas dengan vba

Wa'alaikumussalam Wr. Wb.

Coba :

Sheets("nama sheetnya").pagesetup.papersize= isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bagian :
isi_dengan_opsi_macam_kertas_yang_diawali_dengan_xl

bisa dilihat daftarnya di :
http://msdn.microsoft.com/en-us/library/office/ff834612%28v=office.15%29.aspx

Wassalamu'alaikum Wr. Wb.,

Kid.

2014-03-21 16:53 GMT+07:00 prazt <praztmath@gmail.com>:

Assalam...para exceller semua, mohon bantuan bagaimana scrib VBA untuk mengatur ukuran kertas pada sheet yang sudah di set print area ? saya sudah mencoba menggunakan record macro tapi masih bingung juga mana yang harus di pakai dan mana yang harus di buang, misal saya ingin mengatur dengan ukuran kertas Folio (21 cm x 33 cm). Ilustrasi seperti terlampir..

----------------------------------------------------------

Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.


----------------------------------------------------------
Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.


=====================================================================
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