Messages In This Digest (18 Messages)
- 1.
- Menggabungkan dua rumus VlookUp dan HlookUP From: boim uhuy
- 2.
- kombinasi pivot table dan arsir + selisih From: bambang sumanto
- 3a.
- Re: filter antara jam sekian sampai jam sekian di excel 2003 From: Kid Mr.
- 4a.
- Re: Joint 2 table From: Kid Mr.
- 4b.
- Joint 2 table From: syawaludin2000@yahoo.com
- 5.
- Pengurangan jam lewat hari From: fhay_technoship@yahoo.com
- 6a.
- Re: Bls: ]] XL-mania [[ Membuat hyperlink antar sheet di excell 2003 From: jokovlo
- 6b.
- Bls: ]] XL-mania [[ Membuat hyperlink antar sheet di excell 2003 From: Parulian Harianja
- 7a.
- Bls: ]] XL-mania [[ PivotTabel Coloumn Field to Row From: You See
- 8a.
- Bls: ]] XL-mania [[ input nilai From: You See
- 9.
- Menentukan Sales Best Performance From: Santoso
- 10.
- mobilnya modar-mandir From: Arralice Abia Lesmana
- 11a.
- Re: membuat analisis From: adrian piter
- 11b.
- Re: membuat analisis From: Agus Helarus
- 11c.
- Re: membuat analisis From: Onto Seno
- 12a.
- Re: Perintah berulang dalam marco From: Partroom 1
- 13.
- Stock exp Date From: LISTIYANI SE
- 14a.
- Re: Macro Looping From: siti Vi
Messages
- 1.
-
Menggabungkan dua rumus VlookUp dan HlookUP
Posted by: "boim uhuy" boim_1803@yahoo.com boim_1803
Thu Mar 29, 2012 5:12 pm (PDT)
untuk para pakar,,,
mohon bantuanya neh,,,kira" rumus yang pas buat soal ini apa ya?
file terlampir,
Terima kasih sebelumnya :)
- 2.
-
kombinasi pivot table dan arsir + selisih
Posted by: "bambang sumanto" lenterahati2002@yahoo.com lenterahati2002
Thu Mar 29, 2012 5:15 pm (PDT)
Para Rekan XL yth,
saya ada data di xls total baris 166.782 baris
cara cepat saya oleh menggunakan pivot table,
hanya ada beberapa kendala, bagaimana menambahkan kolom selisih tanggal terbaru dengan
tanggal sebelum, dan hasil yg negatif akan otomatis barisnya berwana/diarsir
saya sudah coba pake options>Formulas>insert calculated field, tetapi tidak menemukan selisih nilai shm
utk tanggalnya...
terimakasih atas bantuannya, termasuk bantuan sebelumnya.
- 3a.
-
Re: filter antara jam sekian sampai jam sekian di excel 2003
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Thu Mar 29, 2012 5:31 pm (PDT)
Pak Mustaqim,
Mungkin dengan mengubah tipedata datasource nya menjadi bertipe datetime
akan memunculkan custom filter yang dimaksud.
Jika datasource berupa excel juga, coba kalikan setiap data waktu dengan 1.
Jika datasource pivot dari sebuah proses query, mungkin fungsi untuk
konversi datatype yang sesuai dengan data provider yang digunakan bisa
dipakai.
Wassalam.
Kid.
On Wed, Mar 21, 2012 at 11:48, m u s t a q i m <wiwie01@yahoo.com > wrote:
> **
>
>
> Dear XL-MAnia;
>
> Saya telah belajar Pivot Table pada MS Excel 2003 menggunakan External
> Data Source, hasilnya terlampir, tetapi ada masalah pada filter data,
> bagaimana cara merubah filter pada time, agar waktu yang ditampilkan bisa
> difilter antara ( maksudnya dari jam ... sampai jam ... ) tanpa harus
> mencentang tiap jam yang tercantum, seperti filter pada excel diluar pivot
> table, disitu terdapat fasilitas custom pada data filternya, terima kasih
> atas bantuannya.
>
> Regards,
>
> Mustaqim.
>
>
>
- 4a.
-
Re: Joint 2 table
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Thu Mar 29, 2012 5:31 pm (PDT)
Coba subquery berikut :
select a1.aname,b1.amount as bamount,a1.amount as aamount from (select
a.aname,sum(a.aamount) as amount from actual$ as a group by a.aname) as a1
inner join (select b.bname,sum(b.bamount) as amount from budget$ as b group
by b.bname) as b1 on a1.aname=b1.bname
Tabel actual ada di sheet actual
Tabel budget ada di sheet budget
Kid.
On Sun, Mar 25, 2012 at 18:18, <syawaludin2000@yahoo.com > wrote:
> **
>
>
> Dear XL-Mania,
>
> Saya memiliki 2 table seperti contoh terlampir. Saya ingin menggabungkan 2
> table tersebut menjadi 1 table dengan menggunakan xlsql yg ada di excel.
> Saya sudah coba tapi hasilnya selalu menjadi doble. Mohon pencerahannya
> agar table hasil gabungannya menjadi:
>
> Name. BAmount. AAmount
> A. 1. 4
> B. 1. 2
>
> Regards,
> Syawal
>
>
> Powered by Telkomsel BlackBerry®
>
> -----Original Message-----
> From: Syawaludin Syarief <syawals@gmail.com >
> Date: Sun, 25 Mar 2012 18:06:27
> To: Syawaludin Syarief<syawaludin2000@yahoo.com >
> Subject: Joint 2 table
>
>
>
>
>
- 4b.
-
Joint 2 table
Posted by: "syawaludin2000@yahoo.com" syawaludin2000@yahoo.com syawaludin2000
Thu Mar 29, 2012 5:31 pm (PDT)
Dear XL-Mania,
Saya memiliki 2 table seperti contoh terlampir. Saya ingin menggabungkan 2 table tersebut menjadi 1 table dengan menggunakan xlsql yg ada di excel. Saya sudah coba tapi hasilnya selalu menjadi doble. Mohon pencerahannya agar table hasil gabungannya menjadi:
Name. BAmount. AAmount
A. 1. 4
B. 1. 2
Regards,
Syawal
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: Syawaludin Syarief <syawals@gmail.com >
Date: Sun, 25 Mar 2012 18:06:27
To: Syawaludin Syarief<syawaludin2000@yahoo.com >
Subject: Joint 2 table
- 5.
-
Pengurangan jam lewat hari
Posted by: "fhay_technoship@yahoo.com" fhay_technoship@yahoo.com fhay_technoship
Thu Mar 29, 2012 5:32 pm (PDT)
Dear Rekan2,
Ada yg tau formula pengurangan jam untuk kasus sperti ini
Pukul 00:06 dikurangin 1 jam dan hasil yg diinginkan 23:06
Trims atas bantuanya
Powered by Telkomsel BlackBerry®
- 6a.
-
Re: Bls: ]] XL-mania [[ Membuat hyperlink antar sheet di excell 2003
Posted by: "jokovlo" koplo.sukoplo@gmail.com jokovlo
Thu Mar 29, 2012 5:33 pm (PDT)
Untuk Paruli mungkin nasehat pak Hatchi sudah sangat cocok, ditilik dari 'tidak adanya pertanyaan lanjutan'.
Tetapi untuk saya (yg punya kasus mirip) kurang cocok, atau cocok tapi menderita.. karena dlm satu Workbook saya ada 98 sheets.
Untuk menulis makronya menurut saran pak Hachi harus menyebut nama Tab Sheet secara harafiah (HARD-CODED?) seperti itu, satu persatu??
Mohon dengan sangat pencerahan pak Hatchi, apakah ada cara lain menyembunyikan N-2 dari N sheets yg ada secara bergantian, tanpa harus menuliskan nama-nama sheet secara 'harafiah'
Sheets("Nama01").visible = False
Sheets("Nama02").visible = False
Sheets("Nama03").visible = False
dst s/d 96 baris ?
Yg saya maksud "secara bergantian": 98 sheets itu telah dibuat daftar namanya di suatu range di sheet1, jika salah satu cell (berisi nama sheet) di-klik, maka sheet yg namanya diklik itu ( + Sheet1) akan VISIBLE, dan 96 sheet lain akan HIDDEN
Nama-nama Sheets, kecuali sheet1, akan sering berubah, cacah sheets dlm workbook saya, akan sering berkurang maupun bertambah.
(Mengenai daftar nama sheets tidak saya tanyakan karena saya sudah punya cara sendiri untuk mendinamiskannya)
best regards,
Jokovlo
--- In XL-mania@yahoogroups.com , Hachi Rizki <hachiuz_ld27@...> wrote:
>
> Dear Paruli,..
>
> untuk hide sheet gunakan
> Â Â Â Sheets("Nama").visible = False
>
> untuk memunculkan lagi
> Â Â Â Sheets("Nama").visible = True
>
> untuk memunculkan lagi sheets awal
> Â Â Â Sheets("Awal").select
>
> tinggal masukkan saja kode tersebut ke tombol2 yang diinginkan
>
> semoga membantu,
>
> Hachi
>
>
> _____________________ _________ __
> Dari: pharianj <pharianj@...>
> Dikirim: Senin, 19 Maret 2012 18:35
> Â
> Dear XL-mania,
> Mohon bantuannya cara membuat rumusan link antar sheet (hiden sheet)
> dalam satu file di excell 2003, dimana jika diklik linknya maka
> sheet yang terhide akan terbuka, kemudian bila diklik tombol "home"
> (atau sejenisnya) maka sheet tersebut akan terhide kembali dan
> tampilan kembali ke sheet awal.
>
> Mohon bantuannya sangat ya ..
> Thx,
> Paruli@n'H
- 6b.
-
Bls: ]] XL-mania [[ Membuat hyperlink antar sheet di excell 2003
Posted by: "Parulian Harianja" pharianj@yahoo.co.id pharianj
Thu Mar 29, 2012 5:35 pm (PDT)
Dear Mas Reno,
Â
Sorry Mas, contoh workbooknya kelupaan dikirim . Berikut saya kirimkan contoh workbook yang saya maksudkan mas. Tolong pengajarannya untuk rumusan hyperlinknya ya mas.
Â
Terima kasih,
Paruli@n'H
Dari: o' Seno <ontoseno84@gmail.com >
Kepada: XL-mania@yahoogroups.com
Dikirim: Selasa, 20 Maret 2012 10:49
Judul: Re: ]] XL-mania [[ Membuat hyperlink antar sheet di excell 2003
Â
Workbook CONTOH nya mana ? 'Gak bawa ?
Kalau begitu, anda datang sebagai pendekar bertangan-kosong, hehe he
Para penjawab diSURUH Â "kerja-bhakti" dulu membuatkan workbooknya ..
baru kemudian membuat solusinya... Â kacian deh pananggap....
Misal kita punya book dengan 724 sheets bernama Sheet1, Sheet2 dst;
nama-nama sheet itu kita tulis di semua Sheet di Kolom H mulai H2 ke bawah.
Cell-cell berisi data nama sheets itulah yg akan dijadikan "HYERLINK"
Klik Cellnya (atau aktifkan cell nya dengan cara apapun, dengan mouse mapunÂ
tanpa mouse mengarahkan cell-pointer ke salah satu Cell "HYPERLINK") makaÂ
Nama sheet yg ada di cell tsb walaupun semula dlm kondisi HIDDEN akan di-Â
UNHIDE sambil  di-AKTIFKAN
Sheet tempat anda mengKlik HYPERLINK tadi akan dibuat HIDDEN (kecuali Sheet1,
karena Sheet1 yg kita anggap KEPALA ROMBONGAN para-Sheets nya).Â
Lagi pula suatu workbook tidak dapat di HIDE SEMUA Sheetsnya, paling tidakÂ
harus ada 1 sheet yg statusnya visible.
Hyperlink ASLI sepertinya tidak dapat diatur-atur agar berperilaku seperti itu,Â
maka  sebagai gantinya kita rekayasa dengan pemrograman VBA
Prosedur ini ditulis di Module ThisWorkbook, memanfaatkan EVENT Sheet_Selection_Change
Private Sub Workbook_SheetSelectionChange( _
  ByVal Sh As Object, ByVal Target As Range)
  ' Ontoseno / for XL-mania Case #20103
  '-------------------- --------- -------
  If Target.Cells.Count = 1 Then
   If Target.Column = 8 Then
     If Target.Row > 1 Then
     If Target.Row < 11 Then
      If Sheets(Target.Value).Name <> "" Then
        If ActiveSheet.Name <> "Sheet1" Then
         ActiveSheet.Visible = False
        End If
        Sheets(Target.Value).Visible = True
        Sheets(Target.Value).Activate
      End If
     End If
     End If
   ElseIf Target.Address = "$D$2" Then
     Dim sht As Worksheet
     For Each sht In Me.Worksheets
      sht.Visible = True
     Next
   End If
  End If
End Sub
' ===================== ========= =====
' kalau ingin lebih keren coba file mbak siti
' Sheets Manager.xls /Â yg dapat diunduh di sini:
' http://www.box.com/shared/ 1u16ctdvlj
'-------------------- --------- --------- --------
o'Seno
2012/3/19 pharianj <pharianj@yahoo.co.id >
>
> Dear XL-mania,
> Mohon bantuannya cara membuat rumusan link antar sheet (hiden sheet) dalam satu file di excell 2003, dimana jika diklik linknya maka sheet yang terhide akan terbuka, kemudian bila diklik tombol "home"(atau sejenisnya) maka sheet tersebut akan terhide kembali dan tampilan kembali ke sheet awal.
> Mohon bantuannya sangat ya ..
>
> Thx,
> Paruli@n'H
- 7a.
-
Bls: ]] XL-mania [[ PivotTabel Coloumn Field to Row
Posted by: "You See" theroadstar@yahoo.com theroadstar
Thu Mar 29, 2012 5:33 pm (PDT)
Sdr. Syawaludin Syarief
Saya sarankan agar pakai SUMIFS apabila ingin menjumlahkan sesuatu yang biasa dilakukan oleh Pivot Table
ini adalah alternatif pengganti, apalagi sudah disiapkan cell tempat total itu,
=SUMIFS($D$4:$D$6,$B$4: $B$6,N$3)
Regards,
YouSee
_____________________ _________ __
Dari: Ki Semprul <semprul.ki@gmail.com >
Kepada: XL-mania@yahoogroups.com
Dikirim: Jumat, 23 Maret 2012 3:35
Judul: Re: ]] XL-mania [[ PivotTabel Coloumn Field to Row
mungkin begini
(gambar pengaturan field list)
Bisa juga pakai formula (kalau datanya sedikit)
=SUMPRODUCT(($B$4:$B$ 6=K$28)*( OFFSET($C$ 4:$C$6,0, MATCH($J29, $D$3:$E$3, 0),,)))
Semprul..Ki!
2012/3/21 <syawaludin2000@yahoo.com >
Dear XL-manias,
>Sebelumnya mohon maaf bila saya tidak mengirimkan contoh data dalam format excel karena jaringan sangat jelek.
>Saya memiliki data sbb:
>-------------------- --------- -------+
>Rig. | Driller | Core(m) | Depth |
>------|---------|--- ------|-- -------|
>A | Yatno. | 2.5 | 80. |
>A | Zubir. | 2 | 90. |
>A | Mail. | 1.5. | 85. |
>-------------------- --------- -------+
>Mohon petunjuk bagaimana cara pembuatan report menggunakan PivotTable sehinggal hasilnya:
>---------------+
> Rig A |
>---------------+
>Core(m) 6 |
>Depth 255 |
>---------------+
>
>Salam,
>Syawaludin Syarief
- 8a.
-
Bls: ]] XL-mania [[ input nilai
Posted by: "You See" theroadstar@yahoo.com theroadstar
Thu Mar 29, 2012 5:33 pm (PDT)
Untuk Sdr. Ahmad,Â
Terlampir rumus dengan metode lain, yaitu perhitungan tahun dan tabel tahun yang harus pas bulat, barang kali bermanfaat :
=IFERROR(IF($C14,VLOOKUP( $D14,$B$2: $G$11,$C14+ 1,1),0),0)
Regard
YouSee
_____________________ _________ __
Dari: Rara Wilis <ra2wilis@gmail.com >
Kepada: XL-mania@yahoogroups.com
Dikirim: Rabu, 21 Maret 2012 13:08
Judul: Re: ]] XL-mania [[ input nilai
=IF((C15<=2)*(D15>0)* (E15>=3), VLOOKUP(IF( E15>30,99, CEILING(E15, 3)),$A$3: $G$12,2+D15, 0),0)
On Mon, Mar 19, 2012 at 9:39 AM, Ahmad Only <ahmad_twofive@yahoo.com > wrote:
> Dear Master Excel Mania,
> Mohon pencerahannya, saya mau masukan angka nilai rupiah pada kolom F15 …
> agar bisa otomastis langsung kebawah dengan criteria sebagai berikut :
> -Â Â Â Â Â Â Â Â hanya untuk level 1 dan 2
> -Â Â Â Â Â Â Â Â berdasarkan masa kerja dan nilai
> contoh : bila level 2 masa kerja 16 thn dengan nilai 3 maka rupiah yg didapat 15.000.
> Â
> Sebelumnya saya ucapkan terimakasih atas perhatian dan bantuannya.
> Salam,
> Ahmad
- 9.
-
Menentukan Sales Best Performance
Posted by: "Santoso" asustek@rad.net.id
Thu Mar 29, 2012 5:34 pm (PDT)
Dear XL-mania,
Mohon bantuannya cara menentukan nama baris dan nama kolom untuk nilai maksimal dalam 1 array
(terlampir di attachment)
Terima kasih banyak ya ...
Best Regards,
Santoso
- 10.
-
mobilnya modar-mandir
Posted by: "Arralice Abia Lesmana" c_dodolmaniez@yahoo.co.id c_dodolmaniez
Thu Mar 29, 2012 5:34 pm (PDT)
mohon bantuannya untuk kasus seperti ini :
misal : pada tgl 1 terdapat data mobil keluar dengan kode a,b,c
saya ingin rekap di new sheet untuk kode a pada bulan maret dari tanggal 1-31 @tgl berapa kali keluar dst.
data terlampir,
mohon bantuannya, terimakasih :)
- 11a.
-
Re: membuat analisis
Posted by: "adrian piter" petcures2003@yahoo.com petcures2003
Thu Mar 29, 2012 5:34 pm (PDT)
Selamat sore
saya coba bantu permasalahan bung Husnul, tapi ada beberapa catatan nih..
1. Formula yang saya gunakan dalam lampiran ini adalah Array Formula (adopsi dari rumusnya Mr. Kid), sehingga
   tabel yang bung Husnul buat saya modifikasi pada kolom Nama Siswa di sheet "Bukti Fisik Perbaikan" dengan melakukan Unmerge Cells
   agar formula Array nya bisa berjalan/bekerja.
2. Karena data yang akan di Entry pada kolom Nama Siswa di Sheet "Bukti Fisik Pengayaan" akan bertambah (..sesuai pertanyaan yang ke-2)
   maka saya menggunakan Range Dinamis untuk Nama Siswa dan Keterangan..(dapat dilihat pada Name Manager..dengan nama "Nama_Siswa" dan
   "Status").
3. Pada sheet "Bukti Fisik Perbaikan" tulisformula array di sel B12 :
 Â
    =IFERROR(INDEX(Nama_Siswa, SMALL(IF( Status="Remidi" ,ROW(Nama_ Siswa)-10) ,ROW(1:1) )),"")
 Â
     kemudian copas ke sel dibawahnya..
mudah2an dapat membantu..
Salam XL
-Pit-
_____________________ _________ __
From: Husnul Faizin <husnulfaizin@yahoo.co. >id
To: "XL-mania@yahoogroups.com " <XL-mania@yahoogroups.com >
Sent: Monday, March 26, 2012 3:39 PM
Subject: ]] XL-mania [[ membuat analisis
Â
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
- 11b.
-
Re: membuat analisis
Posted by: "Agus Helarus" agus_helarus-luvin@hotmail.com helarus_17
Thu Mar 29, 2012 5:35 pm (PDT)
coba pake rumus ini...
=IF(ISERR(SMALL(IF('BUKTI FISIK
PENGAYAAN'!E11:E37=D9;ROW( 1:27));ROW( 1:27)
));"";INDEX('BUKTI FISIK
PENGAYAAN'!$B$11:$B$37; SMALL(IF( 'BUKTI FISIK
PENGAYAAN'!E11:E37=D9;ROW( 1:27));ROW( 1:27))))
blok cell yg diinginkan (misal cell B12:B23), tulis formula diatas kemudian tekan ctrl, shift dan enter bersamaan.
semoga membantu
salam,Helarus
To: XL-mania@yahoogroups.com
From: husnulfaizin@yahoo.co. id
Date: Mon, 26 Mar 2012 16:39:05 +0800
Subject: ]] XL-mania [[ membuat analisis
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
- 11c.
-
Re: membuat analisis
Posted by: "Onto Seno" ontoseno84@gmail.com o_s_e_n_o
Thu Mar 29, 2012 5:35 pm (PDT)
Barangkali seperti ini (terlampir) ...
( menggunakan formula filering yg sudah sering di jelaskan'dan ditayangkan
di milis ini...)
di workbook lampiran terpaksa ada perombakan, karena pak Husnul
memperlakukan sheet
untuk di isi data dengan menyakitinya ( membuat merged cells - horisontal)
demi
penampilan Bagian Judul . (di atas tabel inti laporan)
Mergel dibuat pula secara vertikal hanya untuk melebarkan Baris
(sebaiknya baris dilebarkan dengan melebarkan tiap 1 (satu) baris tetap
menjadi 1 baris
bukan dengan cara mengabung beberapa baris menjadi satu
Seperti halnya KOLOM (dapat diatur LEBARNYA) baris juga dapat diatur TINGGI
nya,
dengan menarik batas border di RowHeader-nya
Me-Merged Cells seperti yg dilakukan pak Husnul Faiz; mungkin menjadikan
INDAH dipandang
(terutama bagi yg membuat) tetapi penulisan rumus akan menjadi sulit
(dipersulit oleh diri sendiri)
atau bahkan tidak bisa ( contohnya Array Formula multi hasil tidak dapat
di tulis di Range
yg mengandung MergecdCell )
Akal-akalan untuk memenuhi keinginan pak Husnul agar tidak merombak sheet
terlalu total
Tabel HASIL Penyaringan, dikerjakan di kolom lalin dengan range yg sehat
(tanpa merged cell)
Tabel hasil itu kemudian dicopy dan PASTE AS Picture Link ke area Report
(yg mungkin
akan di print juga)
cmiiw,--
*o'Seno*
*
On Mon, Mar 26, 2012 at 3:39 PM, Husnul Faizin <husnulfaizin@yahoo.co. >id
wrote:
>
> 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*
- 12a.
-
Re: Perintah berulang dalam marco
Posted by: "Partroom 1" tpmpc1@chemi-con.co.id
Thu Mar 29, 2012 5:35 pm (PDT)
Saya bukan pakar, tapi saya coba modifikasi dari case sebelumnya.
Semoga bisa membantu.
Private Sub CommandButton1_Click()
Dim n As Integer
For n = Range("J2").Value To Range("L2"). Value
Range("L2").Value = n
'Me.PrintPreview
Me.PrintOut
Next n
End Sub
Salam
Dalis J.
----- Original Message -----
From: joel_bac@yahoo.co.id
To: XL-mania@yahoogroups.com
Sent: Friday, March 23, 2012 11:57 AM
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
- 13.
-
Stock exp Date
Posted by: "LISTIYANI SE" listiyani_se@yahoo.com listiyani_se
Thu Mar 29, 2012 5:36 pm (PDT)
Dear sesepuh XL Mania,
Attach : Data Mutasi Stock
Da banyak ilmu yg didapat dr milis ini.
Please minta pencerahan untuk mengklasifikasin exp. date.
Jika selama ini mutasi tidak pakai patokan exp. date akibatnya
exp date jadi ga update
Regards
LISTI
- 14a.
-
Re: Macro Looping
Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi
Thu Mar 29, 2012 5:37 pm (PDT)
*Peringkasan Code:*
Masih meneruskan threads :
http://tech.groups.yahoo. & 20140com/group/ XL-mania/ message/20136
Di dalam Loop For - Next, terdapat strukur If bersarang.
Struktur If dalam (= If yg kedua) sbb:
*If r <= N Then*
* Y = (i - 1) * 10*
*Else*
* Y = (i) * 10*
*End If*
masih dapat di-ringkas manjadi 1 baris saja, yaitu:
*Y = (i + (r <= N)) * 10*
Kita perhatikan expressi *(r <= N)* menghasilkan type data Boolean (salah
satu
dari True / False).
Satu hal kecil boleh dicatat di sini adalah, adanya *perbedaan *di
Worksheet -vs- di VBA
mengenai *Nilai **sebuah BOOLEAN* (logical value) jika dikonversi menjadi
Bilangan Integer.
Cara mengkonversi sama dengan cara yg kita kenal di worksheet
- diaritmatikkan dengan bilangan lain, misal dikalikan 1 / dibagi 1,
ditambah 0 dst.
dimasukkan ke fungsi *Int*(*r <= N)*, asal *jangan* dimasukkan ke fungsi *
Val*
Jika di Worksheet : TRUE adalah = *1*, FALSE = 0
di VBA agak lain: *True = -1, False = 0*
SMS-nya: Janganlah hal kecil ini membuat program kita jadi kacauw... Cuy..
*Prosedur yg telah diringkas/ disederhanakan:*
Sub Loop_Yang_Tidak_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(N, 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*
* Y = (i + (r <= N)) * 10*
* 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
'-------------------- --------- --------
Sebenarnya *Struktur IF* (yg sekarang tidak lagi bersarang itu) masih dapat
diringkas lagi, yaitu
dikonversi menjadi bentuk penulisan *FUNGSI Iif*
If i = (N + p) Then
Y = 0
Else
*Y = (i + (r <= N)) * 10*
End If
dapat diubah menjadi hanya spt ini
*Y = Iif(i = (N + p), 0, (i + (r <= N)) * 10)*
Bentuknya seperti fungsi IF di Worksheet ya ?!
Tetapi, konon, kecepatannya kalah dibanding dengan *struktur IF* di atasnya
Catatan:
Tulisan tambahan ini bukan ditujukan kepada Pak Puthut (yg tentunya sudah
sangat hafal dengan hal2 spt itu);
tetapi tulisan ini ditujukan kepada temans lain yg sedang* mulai &
bersemangat* belajar-VBA-Excel (kalau mau baca..)
Temans2 yg tidak sempat menerima email berlampiran dari milis
masih dapat mengunduh file lampirannya di sini:
http://www.box.com/s/0d852bbae1 e664799edd
*Bonus Eksperimen:*
Prosedur untuk men-TEST nilai Boolean di VBA
'-------------------- ----
Sub BooleanToInteger()
Dim x As Boolean, y As Integer
x = *2 > 10*
y = CInt(x)
MsgBox x & " = " & y
x = *2 < 10*
y = CInt(x)
MsgBox x & " = " & y
End Sub
'-------------------- ------
Wassalam & kind regards,
Rr_Wilis
On Mon, Mar 26, 2012 at 7:05 PM, Rara Wilis <ra2wilis@gmail.com > wrote:
>
> Sub Loop_Yang_Tak_Terlalu_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
> '-------------------- ---
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: 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 |
+-------------------------------------------------------------------+
| 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
Tidak ada komentar:
Posting Komentar