[belajar-excel] Digest Number 4321

Milis Belajar Microsoft Excel Group

6 Messages

Digest #4321

1a

Re: fungsi Vlookup dalam VBA by "Pak Cik Lukman"

2a

Re: Mengaktifkan Ontime tanpa terputus by "Heru Safrudin" heru.safrudin

3

deskripsi rumus rapot k13 by "Susilo Pratama" pratama_susilo

4

Perintah Print multiple range dalam satu sheet by "paopao daeng"

5a

Re: Help : List box by multiple table name by "Odhy" odhyz83_assasaky

5b

Re: Help : List box by multiple table name by "Odhy" odhyz83_assasaky

Messages

1a

Re: fungsi Vlookup dalam VBA

Tue Oct 10, 2017 7:19 pm (PDT) . Posted by:

"Pak Cik Lukman"

Yth Masta Mr Kid,

Terima kasih atas arahan perbaikannya,
saya sdh coba cara ke.3, dan hasilnya it works!!

untuk pembelajaran saya ttg vba, sesuai saran bpk untuk saya, next saya
belajar menggunakan formula manual diworksheet
dan menrecordnya dgn macro

salam,

@pakciklukman

Pada 11 Oktober 2017 04.34, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Hai Lukman,
>
> Ada baiknya mempelajari ulang cara memasang formula secara manual (bukan
> dengan VBA) di dalam cells pada banyak cells sekaligus. Kalau sudah lancar,
> barulah di-record macro.
>
>
> Dari kode vba :
> ------------------
> Dim Data As Range, Rng As Range
>
> Set Data = Range("C5", Range("C5").End(xlDown))
>
> For Each Rng In Data
> Rng.Offset(, 2) = Evaluate("vlookup(" & Rng & ",HargaBOK,2,0)")
>
> ------------------
>
> > Bunyi formula vlookup kalau diketik manual di dalam range E5 berbunyi :
> =vLookUp( C5 , HargaBOK , 2 , 0 )
>
> > Tujuan baris kode di atas adalah mendapatkan hasil formula vlookup
> tersebut (bukan memasang formula).
>
> > Cara 1 :
> - pasang formula di seluruh baris yang butuh formula (asumsi : excel
> calculation option adalah automatic)
> - copy paste values di range yang diberi formula
>
> with sheets("nama sheetnya").range( "c5" , sheets("nama
> sheetnya").range("c5").end(xldown) )*.offset( 0 , 2 )*
> application.calculation=xlcalculationautomatic
> .formula="=vLookUp( C5 , HargaBOK , 2 , 0 )"
> .value=.value
> end with
>
> > Cara 2 :
> - memanfaatkan worksheetfunction untuk mendapatkan hasil komputasi
> formula
> - hasil worksheetfunction ditulis langsung ke area cells hasil
>
> with sheets("nama sheetnya").range( "c5" , sheets("nama
> sheetnya").range("c5").end(xldown) )
> *.offset( 0 , 2 )*.value= application.worksheetfunction.vlookup(
> .resize(0,1) , range("hargabok") , 2 , 0 )
> end with
>
> > Cara 3 :
> - loop setiap baris dan tulis hasil evaluate formula pada cells hasil
>
> dim rng as range
> for each rng in sheets("nama sheetnya").range( "c5" , sheets("nama
> sheetnya").range("c5").end(xldown) )
> with rng
> *.offset( 0 , 2 )*.value=*evaluate(* "vlookup(" &
> rng.address & ",hargabok,2,0)" *)*
> end with
> next rng
>
> Regards,
> Kid
>
>
>
>
>
> 2017-10-10 15:54 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Selamat sore Om2.. Master excel
>>
>> Mohon informasi dan koreksi, saya coba menggunakan coding dari file2 yg
>> pernah dibuat rekan2 di gruoup ini untuk fungsi Vlookup dalam VBA,
>> namun ketika saya menggunakan huruf (string) pada lookup-valuenya...
>> fungsi tsb tidak berjalan (tidak terbaca dng hasil #NAME?)
>>
>> saya msh newbie, dan masih banyak belajar tentang VBA
>>
>> ------------------
>> Dim Data As Range, Rng As Range
>>
>> Set Data = Range("C5", Range("C5").End(xlDown))
>>
>> For Each Rng In Data
>> Rng.Offset(, 2) = Evaluate("vlookup(" & Rng & ",HargaBOK,2,0)")
>>
>> ------------------
>> saya sdh mengganti As Range menjadi As Variant dan As String... dan masih
>> salah.
>> Apakah yg saya hrs perbaiki dari statement diatas, terima kasih
>>
>> @pakciklukman
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2a

Re: Mengaktifkan Ontime tanpa terputus

Tue Oct 10, 2017 8:21 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Ok Mr. Saya coba

Terima kasih

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 06 Oktober 2017 16:42
To: BeExcel

Subject: Re: [belajar-excel] Mengaktifkan Ontime tanpa terputus

Hai Heru,

sudah dicoba untuk dibalik posisinya ? On time dulu baru baris perintah lainnya.

Regards

Kid

2017-10-06 16:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Be-Exceller,

Mohon bantuannya bagaimana caranya supaya fungsi ontime seperti contoh dibawah bisa berjalan sesuai printah yaitu setiap 15 detik terus menerus mengecek apakah ada perintah yang harus dijalankan. Dan tidak berhenti meskipun komputer sibuk dan juga menjalankan macro/prosedur lain.

Sub LookOut

Jika perintah sesuai JALANKAN_PROSEDUR_LAIN

Application.OnTime Now + TimeValue("00:00:15"), "LookOut"

End Sub

Sedangkan yang saya alami sekarang prosedur diatas sering terputus meskipun excel tidak ditutup.

Mohon bantuannya

Terima kasih

Hormat kami

Heru Safrudin

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

3

deskripsi rumus rapot k13

Wed Oct 11, 2017 5:37 am (PDT) . Posted by:

"Susilo Pratama" pratama_susilo

Salam, saya ingin minta bantuan kepda para master, disini saya kesulitan dalam membuat rumus untuk deskripsi nilai rapot kurikulum 13 dapaun untuk contoh saya lampirkan dlam file.
1.Pada rapot k13 ini penilaia ada sikap dan spiritual untuk nilai sediri di ambil dari 4 aspel untuk spiritual dan dalam deskripsi nantinya sapek yg paling tinggi akan berada pada kalimat paling depan dngan rentang nilai  SB, B, C, PB, ( SANGAT BAIK, BAIK, CUKUP, PERLU BIMBINGAN) CONTOH JIKA DALAM ASPEK 1 B, ASPEK 2, C, ASPEK 3, C , ASPEK 4 SB, MAKA DESKRIPSINYA sangat baik pada asepk empat, biaik dalam aspek 2, aspek 1, cukup dalam aspek tiga. itu asil deskripi yg kira kira muncul.2. untuk yg nilai rapot nanti mape deskripsi diambil yg muncul hanya nilai tertinggi dan terendh saja , contoh ohon bantuanya tks

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

4

Perintah Print multiple range dalam satu sheet

Wed Oct 11, 2017 5:38 am (PDT) . Posted by:

"paopao daeng"

assalamualaikum.wr.wbdear para suhu "be excel"
Mohon Bantuannya...rumus untuk perintah macro untuk print otomatis beberapa range yang ada dalam satu sheet.saya udah puyeng utak atik rumusnya g pernah jadi2...jadi streess saya...maklum baru belajar dari group ini jg...file terlampirterima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

5a

Re: Help : List box by multiple table name

Wed Oct 11, 2017 11:07 am (PDT) . Posted by:

"Odhy" odhyz83_assasaky

Dear Mr. Kid & Mr. Agus,Untuk problem listboxnya sudah clear.Sekarang saya ingin menambahkan message box untuk mencegah user salah input :1. Message box untuk mencegah user salah input Jam.2. Message box untuk hasil jam loading tidak sesuai dengan kriteria.(penjelasan lebih rinci pada lampiran.

atas bantuannya saya ucapkan banyak terima kasih.Odhy.

On ‎Monday‎, ‎September‎ ‎18‎, ‎2017‎ ‎10‎:‎35‎:‎25‎ ‎PM‎ ‎+07, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Hai Odhy,

1. Tentang combobox berjenjang dengan sumber data yang sudah dibuatkan nama range.
> Coba disempatkan melihat coretan tentang combobox yang dimulai dari sini.
> Pada name manager, ada 3 nama range yang akan dijadikan isi combobox1, berdasar isian di combobox2.> Nama range tersebut diawali teks 'Area_' diikuti teks pilihan di combobox2> User memilih combobox2 lebih dulu, lalu daftar dalam combobox1 menyesuaikan sesuai pilihan user di combobox2.
A. Nama range yang diawali 'Area_' hanya berisi 1 kolom    > ini satu kerugian karena combobox maupun listbox mampu menerima banyak kolom.
    > jadi, ubah formula refers to dari setiap nama range dengan awalan 'Area_' agar melingkupi 4 kolom dan baris yang tepat.    > contoh untuk nama range Area_DPS memiliki isi formula refers to :            =OFFSET(dbase!$F$2,1,0,COUNTA(dbase!$F:$F)-2,4)

B. jika combobox2 diganti pilihannya, maka combobox1 berubah daftar pilihannya     > artinya, combobox2 event change (combobox2 berubah nilai nya) diisi dengan baris perintah untuk mengisi daftar pilihan di combobox1.    > begini bunyinya :             combobox1.listindex= -1       'kosongkan nilai di combobox1  
             if combobox2.listindex<>-1 then   'combobox2 ada item yang dipilih                         combobox1.rowsource= "Area_" & combobox2.text            'sumber data untuk daftar pilihan ditentukan baru
             else                         combobox1.rowsource=vbnullstring                                     'daftar pilihan dikosongkan (tanpa sumber data apapun)
             endif

C. jika combobox1 diganti pilihannya oleh user, maka textbox9,10,11 berurutan sama dengan urutan kolom sumber data pilihan combobox1           dim lidx as long        'variabel indeks yang dipilih user di combobox1
           lidx=combobox1.listindex         'simpan nilai indeks yang dipilih user di combobox1
           if lidx<>-1 then              'user memilih salah satu item di combobox1, maka isi textbox9,10,11 berdasar nomor kolom, yaitu kolom 2,3,4 dari sumber data                  with range( combobox.rowsource ).resize(1).offset( lidx )      'pada area range sumber data pilihan combobox1, 1 baris saja, lompat lidx baris
                          textbox9.text=.cells(1,2).text       'ambil kolom ke-2 range sumber data
                          textbox10.text=.cells(1,3).text       'ambil kolom ke-2 range sumber data
                          textbox11.text=.cells(1,4).text       'ambil kolom ke-2 range sumber data
                  end with
           else    'user tidak memilih apapun, maka kosongkan textbox9,10,11
                  textbox9.text=vbnullstring
                  textbox10.text=vbnullstring
                  textbox11.text=vbnullstring
           endif

Untuk urusan menulis ke tabel penyimpanannya, silakan disusun sendiri ya...

2. set nilai awal calendar control (properti bernama value)> calendar control ada di userform2 dengan nama control MonthView1
> calendar control dipanggil ketika userform1 control bernama CommandButton4 di klik.> artinya, event click dari control bernama CommandButton4 diisi proses mengaktifkan userform2.             userform2.show         'begini bukan ?> ketika userform2 sudah di-load (sebelum ditampilkan kepada user, alias masih di-memory komputer -> disebut event initialize),
   dilakukan pengaturan nilai calendar control.> buat event initialize di userform2 lalu isi dengan :           monthview1.value=now
kalau monthview1 diklik (pilih salah satu tanggal), maka nilai tanggal akan ditulis ke userform1 control textbox13     > berarti, kalau userform1 control textbox13 sudah berisi tanggal hasil pilihan sebelumnya, maka nilai dasar monthview bukan hari ini,
        tetapi di tanggal yang ada di textbox13 userform1    > artinya, baris perintah
                monthview1.value=now       di event initialize userform2 di atas harus diubah menjadi :       if len( userform1.textbox13.text ) <> 0 then      'textbox13 di userform1 gak kosong              if isdate( userform1.textbox13.text ) then       'textbox13 di userform1 berisi suatu nilai yang dapat diubah jadi bertipe date                    monthview1.value=cdate( userform1.textbox13.text )        'monthview1 diisi nilai bertipe date dari textbox13 di userform1
              else    'textbox13 di userform1 berisi nilai, tetapi gak bisa diubah jadi bertipe date
                    monthview1.value=now       'jadikan nilai waktu saat ini sebagai nilai awal monthview1
              endif
       else    'textbox13 di userform1 kosong               monthview1.value=now    'jadikan nilai waktu saat ini sebagai nilai awal monthview1       endif

Regards,Kid

2017-09-18 13:50 GMT+07:00 Odhy odhyz83_assasaky@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Dear Master,Mohon bantuannya...1. bagaimana caranya agar saya bisa menggambil data di table nama berdasarkan listbox.2. bagimana merubah setting form kalender agar update bulan saat ini.untuk lebih jelas penjelasaanya saya lampirkan filenya....
atas bantuannya saya ucapkan banyak terima kasih.
Odhy. 

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

5b

Re: Help : List box by multiple table name

Wed Oct 11, 2017 11:08 am (PDT) . Posted by:

"Odhy" odhyz83_assasaky

Dear Mr. Kid & Mr. Agus,
Untuk problem listboxnya sudah clear.
Sekarang saya ingin menambahkan message box untuk mencegah user salah input :
1. Message box untuk mencegah user salah input Jam.
2. Message box untuk hasil jam loading tidak sesuai dengan kriteria.
(penjelasan lebih rinci pada lampiran.

atas bantuannya saya ucapkan banyak terima kasih.
Odhy.

On ‎Wednesday‎, ‎October‎ ‎11‎, ‎2017‎ ‎09‎:‎44‎:‎54‎ ‎PM, Odhy <odhyz83_assasaky@yahoo.com> wrote:

Dear Mr. Kid & Mr. Agus,Untuk problem listboxnya sudah clear.Sekarang saya ingin menambahkan message box untuk mencegah user salah input :1. Message box untuk mencegah user salah input Jam.2. Message box untuk hasil jam loading tidak sesuai dengan kriteria.(penjelasan lebih rinci pada lampiran.

atas bantuannya saya ucapkan banyak terima kasih.Odhy.

On ‎Monday‎, ‎September‎ ‎18‎, ‎2017‎ ‎10‎:‎35‎:‎25‎ ‎PM‎ ‎+07, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Hai Odhy,

1. Tentang combobox berjenjang dengan sumber data yang sudah dibuatkan nama range.
> Coba disempatkan melihat coretan tentang combobox yang dimulai dari sini.
> Pada name manager, ada 3 nama range yang akan dijadikan isi combobox1, berdasar isian di combobox2.> Nama range tersebut diawali teks 'Area_' diikuti teks pilihan di combobox2> User memilih combobox2 lebih dulu, lalu daftar dalam combobox1 menyesuaikan sesuai pilihan user di combobox2.
A. Nama range yang diawali 'Area_' hanya berisi 1 kolom    > ini satu kerugian karena combobox maupun listbox mampu menerima banyak kolom.
    > jadi, ubah formula refers to dari setiap nama range dengan awalan 'Area_' agar melingkupi 4 kolom dan baris yang tepat.    > contoh untuk nama range Area_DPS memiliki isi formula refers to :            =OFFSET(dbase!$F$2,1,0,COUNTA(dbase!$F:$F)-2,4)

B. jika combobox2 diganti pilihannya, maka combobox1 berubah daftar pilihannya     > artinya, combobox2 event change (combobox2 berubah nilai nya) diisi dengan baris perintah untuk mengisi daftar pilihan di combobox1.    > begini bunyinya :             combobox1.listindex= -1       'kosongkan nilai di combobox1  
             if combobox2.listindex<>-1 then   'combobox2 ada item yang dipilih                         combobox1.rowsource= "Area_" & combobox2.text            'sumber data untuk daftar pilihan ditentukan baru
             else                         combobox1.rowsource=vbnullstring                                     'daftar pilihan dikosongkan (tanpa sumber data apapun)
             endif

C. jika combobox1 diganti pilihannya oleh user, maka textbox9,10,11 berurutan sama dengan urutan kolom sumber data pilihan combobox1           dim lidx as long        'variabel indeks yang dipilih user di combobox1
           lidx=combobox1.listindex         'simpan nilai indeks yang dipilih user di combobox1
           if lidx<>-1 then              'user memilih salah satu item di combobox1, maka isi textbox9,10,11 berdasar nomor kolom, yaitu kolom 2,3,4 dari sumber data                  with range( combobox.rowsource ).resize(1).offset( lidx )      'pada area range sumber data pilihan combobox1, 1 baris saja, lompat lidx baris
                          textbox9.text=.cells(1,2).text       'ambil kolom ke-2 range sumber data
                          textbox10.text=.cells(1,3).text       'ambil kolom ke-2 range sumber data
                          textbox11.text=.cells(1,4).text       'ambil kolom ke-2 range sumber data
                  end with
           else    'user tidak memilih apapun, maka kosongkan textbox9,10,11
                  textbox9.text=vbnullstring
                  textbox10.text=vbnullstring
                  textbox11.text=vbnullstring
           endif

Untuk urusan menulis ke tabel penyimpanannya, silakan disusun sendiri ya...

2. set nilai awal calendar control (properti bernama value)> calendar control ada di userform2 dengan nama control MonthView1
> calendar control dipanggil ketika userform1 control bernama CommandButton4 di klik.> artinya, event click dari control bernama CommandButton4 diisi proses mengaktifkan userform2.             userform2.show         'begini bukan ?> ketika userform2 sudah di-load (sebelum ditampilkan kepada user, alias masih di-memory komputer -> disebut event initialize),
   dilakukan pengaturan nilai calendar control.> buat event initialize di userform2 lalu isi dengan :           monthview1.value=now
kalau monthview1 diklik (pilih salah satu tanggal), maka nilai tanggal akan ditulis ke userform1 control textbox13     > berarti, kalau userform1 control textbox13 sudah berisi tanggal hasil pilihan sebelumnya, maka nilai dasar monthview bukan hari ini,
        tetapi di tanggal yang ada di textbox13 userform1    > artinya, baris perintah
                monthview1.value=now       di event initialize userform2 di atas harus diubah menjadi :       if len( userform1.textbox13.text ) <> 0 then      'textbox13 di userform1 gak kosong              if isdate( userform1.textbox13.text ) then       'textbox13 di userform1 berisi suatu nilai yang dapat diubah jadi bertipe date                    monthview1.value=cdate( userform1.textbox13.text )        'monthview1 diisi nilai bertipe date dari textbox13 di userform1
              else    'textbox13 di userform1 berisi nilai, tetapi gak bisa diubah jadi bertipe date
                    monthview1.value=now       'jadikan nilai waktu saat ini sebagai nilai awal monthview1
              endif
       else    'textbox13 di userform1 kosong               monthview1.value=now    'jadikan nilai waktu saat ini sebagai nilai awal monthview1       endif

Regards,Kid

2017-09-18 13:50 GMT+07:00 Odhy odhyz83_assasaky@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Dear Master,Mohon bantuannya...1. bagaimana caranya agar saya bisa menggambil data di table nama berdasarkan listbox.2. bagimana merubah setting form kalender agar update bulan saat ini.untuk lebih jelas penjelasaanya saya lampirkan filenya....
atas bantuannya saya ucapkan banyak terima kasih.
Odhy. 

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 4

• Privacy • Unsubscribe • Terms of Use