Messages In This Digest (5 Messages)

1a.: Re: Perintah berulang dalam marco From: Rara Wilis
1b.: Re: Perintah berulang dalam marco From: hendrik karnadi

2a.: Re: Macro Looping From: Rara Wilis

3.: membuat analisis From: Husnul Faizin

4a.: Re: Mengikuti Warna Tetangga From: Agus Helarus

View All Topics | Create New Topic

Messages

1a.: Re: Perintah berulang dalam marco

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Mar 26, 2012 7:48 am (PDT)

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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1b.: Re: Perintah berulang dalam marco

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 26, 2012 7:48 am (PDT)

Coba dengan menggunakan perintah For seperti file terlampir.
Macronya adalah sbb:
Sub TesPrint()
Dim Data As Range
Dim i As Long
Set Data = Range("A3").CurrentRegion
For i = 1 To Data.Rows.Count
Range("F6") = Data(i).Value
ActiveSheet.PrintPreview
Next
End Sub

Salam,
Hendrik Karnadi

Catatan : Untuk mencetak, ganti PrintPreview dengan PrintOut

________________________________
From: "joel_bac@yahoo.co.id" <joel_bac@yahoo.co.id>
To: XL-mania@yahoogroups.com
Sent: Friday, 23 March 2012, 11:57
Subject: ]] XL-mania [[ Perintah berulang dalam marco

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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2a.: Re: Macro Looping

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Mar 26, 2012 7:48 am (PDT)

Sub Loop_Yang_Tak_Teralalu_Sulit(MaxStep As Long)
' Rr.Wilis / 26 Mar 2012
' Xl-mania Case Nr: 20136
'--------------------------
Dim i As Long, X As Long, Y As Long
Dim N As Long, r As Long, p As Long
N = 3
With Cells(3, 1)
* Do While (N + p) < MaxStep*
p = p + 1
For i = 1 To (N + p)
r = r + 1
If i = (N + p) Then
Y = 0
Else
If r <= N Then
Y = (i - 1) * 10
Else
Y = (i) * 10
End If
End If
.Cells(r, 1) = i
.Cells(r, 2) = X
.Cells(r, 4) = Y
If i = (N + p - 1) Then X = Y
Next i
* Loop*
End With
End Sub
'-----------------------

Karena Stepping Row arahnya semakin membesar, 4 baris, 5 baris, 6 baris, 7
baris, 8 baris dst...

maka LOOP tidak boleh HANYA diberi syarat dengan "dst" (dan seterusnya)
saja seperti kata Sdr Puthut di sheet 1 cell A26.

Sebaiknya diberi batas misalnya max per step = 100 atau 1000 terserah asal
Max nomor baris yg digunakan untuk menuliskan hasil looping tidak
melebihi baris yg ada di suatu sheet (untuk excel 2007 = 1048576 - 2 )

[image: Inline image 2]

Pembatasan MAX Stepping Row, (agar mudah diubah-ubah), dituliskan di cell
G2 (Sheet2)

Cell G2 pun dapat anda ubah2 dengan mudah melalui SpinButton yg ada.

Tombol "Ya-Gitu-Deh" untuk menjalankan makro

Tombol "Hapus "hasil untuk membersihkan area penulisan hasil (barangkali
ada datanya)

Berhubung penjelasan sangat minim, Makro tsb di atas menganggap tabel yg
ada Kolom A:D

di sheet 1 adalah *gambaran OUTPUT yg diinginkan* (Inputnya ngak ada!)

Somewhere, 26 Mar 2012

Rara Wilis

(AnakAsuhnya mbak ~siti)

*

On Mon, Mar 26, 2012 at 7:59 AM, Puthut Wibowo <puthut_vai@yahoo.com> wrote:
> Kepada member XL-Mania
> Saya mempunyai masalah untuk looping 2 dimensi (file), dimana looping
tersbut nersarang (nested), *
*> pertanyaanya bagaimana untuk membuat looping yang ada di dalam file
lampiran ke dalam sebuah VBA Macro
> Terima Kasih*

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

3.: membuat analisis

Posted by: "Husnul Faizin" husnulfaizin@yahoo.co.id husnulfaizin

Mon Mar 26, 2012 7:48 am (PDT)

salam para pakar exceler....
mohon bantuan rumus excelnya dalam analisis saya ini:
1. pada sheet1"bukti fisik pengayaan" terdapat beberapa siswa dengan keterangan remidi
2. di sheet2"bukti fisik perbaikan" terdapat kolom nama siswa yang masih kosong
permasalahannya:
- bagaimana caranya nama siswa yang remidi di sheet1 dapat secara otomatis masuk ke sheet2 pada kolom nama siswa
- untuk selanjutnya agar nama siswa yang dengan keterangan remidi selain dari yang dicontohkan tersebut dapat berlaku otomatis seperti penjelasan pertama
(file terlampir)

maklum saya baru belajar excel, jadi mohon bantuannya....
salam,
faiz

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

4a.: Re: Mengikuti Warna Tetangga

Posted by: "Agus Helarus" agus_helarus-luvin@hotmail.com helarus_17

Mon Mar 26, 2012 7:48 am (PDT)

Coba pake conditional formating...
Misal kolom yg mau di gunakan Coloumn A, B dan C. Blok kolom yg ingin di gunakan tadi, kemudian buat conditional formating untuk cell terpilih tersebut dengan :
Rule 1: =IF(LEFT(C1;8)="DITERIMA";1;0) kemudian format dengan warna yg dinginkan (mis. biru)Rule 2: =IF(LEFT(C1;8)="CADANGAN";1;0) kemudian format dengan warna yg diinginkan (mis. merah)
Mudah2 an membantu.
SalamHelarusTo: XL-mania@yahoogroups.com
From: mas_ighoz@yahoo.co.id
Date: Wed, 21 Mar 2012 10:13:51 +0800
Subject: ]] XL-mania [[ Mengikuti Warna Tetangga

Sahabat Excel Mania,Mohon pencerahan dan solusi, formula atau apapun namanya utk mengikuti Warna (Kolom) Tetangga dari file terlampir.

TerimakasihMas_IGhoz

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

Create New Topic | Visit Your Group on the Web

Messages

+-:: 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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Selasa, 27 Maret 2012

]] XL-mania [[ Digest Number 2360

Messages In This Digest (5 Messages)

Messages

Re: Perintah berulang dalam marco

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Mar 26, 2012 7:48 am (PDT)

Re: Perintah berulang dalam marco

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 26, 2012 7:48 am (PDT)

Re: Macro Looping

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Mar 26, 2012 7:48 am (PDT)

membuat analisis

Posted by: "Husnul Faizin" husnulfaizin@yahoo.co.id husnulfaizin

Mon Mar 26, 2012 7:48 am (PDT)

Re: Mengikuti Warna Tetangga

Posted by: "Agus Helarus" agus_helarus-luvin@hotmail.com helarus_17

Mon Mar 26, 2012 7:48 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me