Re: ]] XL-mania [[ Perintah berulang dalam marco

 

Mungkin begini ....

Berhuung anda tidak bekenan memberitahukan versi Excel yg anda pakai, 

kami anggap anda pemakai Excel 2007

(1) membuat Tombol untuk menjalankan makro di sheet1

Pada sheet 1 tempelkan sebuah Tombol ActiveX Control  (CommandButton), caranya

Klik Tab Developer > Klik ikon Insert 

Lihat pada kotak ActiveX Control,  

Dobel klik ikon persegi ( posisinya paling kiri atas, Alat untuk membuat CommandButton)

Akan terlihat sebuah gambar tombol baru di sheet1 

Commandbutton yg ada di sheet dapat anda geser / ditempatkan di posisi yg baik.

Dengan mengatur Holder Pinggirnya anda dapat membesar-kecilkan ukurannya..

Klik Kanan Object CommandButton tsb (mungkin bernama CommandButton1)

Pilih menu Properties > muncul kotak Properties.

Beri nilai pada kotak Caption (ada di dalam kotak properties) , misalnya = "Jalankan MakroKu" 

Tutup Kotak Properties

(2) Menuliskan Makro / Kode VBA untuk Tombol yg baru saja anda buat

Klik Kanan Lagi Object CommandButton1, pilih sub menu: View Code

Anda dibawa langsung membuka VBE (visual basic editor), langsung ke Module milik Sheet1

(sheet dimana CommandButton berada)

Di situ sudah dibuatkan makro tetapi hanya kalimat pembuka dan penutupnya saja, isinya masih kosong

Tuliskan / lengkapi dengan kode vba sehingga menjadi seperti berikut 

Private Sub CommandButton1_Click()

   Dim r As Long

   r = 3

   Do While Not Cells(r, 1) = vbNullString

      Range("F6").Value = Cells(r, 1).Value

      Me.PrintOut

      r = r + 1

   Loop

End Sub

artinya kira-2

- tentukan nilai r = 3 (akan dipakai sebagai  nilai index Baris)

- Dimulai pengulangan terhadap beberapa perintah

  Pengulangan hanya diperkenankan selama Cells(r,1)  (Cell di kolom A baris ke r) = tidak kosong

  

  ( pengulangan tsb akan melihat isi cell mulai dari Cell(3,1) = A3 ke bawah, 1 baris demi satu baris

    jika Cell (r,1) ternyata kosong, pengulangan dihentikan)

 

Perintah yg diulang

  - mengisikanNilai di Cells(r,1)  ke cell F6

  - Mencetak Sheet (tentunya print areanya secara manual sudah anda atur sebelumnya kan?)

  - menaikkan/ menambah  nilai r dengan 1

Kembali ke Sheet Excel dengan Alt + F11. atau jjika ingin sambil menutup VBE: Alt + Q

Lihat di Tab Developer, pada Ribbon : Group "Controls" , jika ikon 'Design Mode' 

(gambar penggaris segitigabiru) masih aktif ("menyala") agar di klik agar tidak aktif.

Maksudnya agar Tombol / command button bisa segera digunakan (dengan mengKlik - nya)

Apakah sekarang anda berani mencoba mengklik TOMBOL tsb ? 

terserah anda !

misalnya berani, tentunya printer sudah di atur-atur lebih dulu...

Hormat kami,

osrek-oret-osrekk (Tandatangan..)

Rr.Wilis

On Fri, Mar 23, 2012 at 11:57 AM, joel_bac@yahoo.co.id <joel_bac@yahoo.co.id> wrote:
>
> Kepada yth
> Pakar Makro Excel
> Dengan ini saya mohon bantuan karena saya sangat mendesak ingin mengeprin
> undangan
> Yang sangat banyak maka dengan perintah macro mungkin saya tidak perlu
> mengetik lagi
> Nama-nama dari daftar ke undangan tapi saya tidak bisa membuat perintah
> macronya
> Mohon kepada Bos Excel dapat membantu saya
> Dalam hal ini yang paling susah saya dapat perintah tanda panah kesamping
> kekanan, ke kiri
> Dan ke bawah
>  
> Terima Kasih atas bantuannya
> Ttd
> Joel_bac

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 55

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___