Sabtu, 16 Desember 2017

[belajar-excel] Digest Number 4379

4 Messages

Digest #4379
1a
Re: VBA Conditional Formatting Warna Gradasi by "Mr. Kid" nmkid.family@ymail.com
2a
Re: mengganti shortcut by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Mengetahui nomor record by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Deskripsi lagi by "Mr. Kid" nmkid.family@ymail.com

Messages

Fri Dec 15, 2017 6:33 pm (PST) . Posted by:

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

Beberapa warna ada di file terlampir.
Hati-hati dengan file lampiran, karena berisi cukup banyak cells yang
diberi format (untuk menampilkan warna), maka bisa jadi batas maskimum
jumlah format dalam sebuah workbook akan tercapai dan kemungkinan akan
menyebabkan error.

Download dan Extract zip file dengan 7z.

Regards,
Kid

2017-12-15 10:58 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

> Hai Tommy,
>
> Di internet ada banyak chart rgb color. Sila di search. Salah satunya
> disini <http://www.perbang.dk/rgbgradient/>.
>
> Regards,
> Kid
>
>
>
>
> 2017-12-15 9:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Kalau membuat CF tersebut saya paham yg manualnya, tetapi untuk range nya
>> kan berbeda karena datanya berbeda juga jumlahnya. Kalau misalnya seperti
>> itu bagaimana cara mengetahui RGB warna masing-masing CF ?
>>
>> On Thursday, December 14, 2017, 3:05:02 PM GMT+7, 'Mr. Kid'
>> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
>> wrote:
>>
>>
>>
>>
>> Hai Tommy,
>>
>> Anda sudah jelas menyatakan bahwa data yang akan diberi format adalah
>> bertipe text. Untuk data bertipe text, bisa langsung dengan CF Use formula
>> (seperti kolom Produk di contoh lampiran lalu), lalu CF bisa di-copy ke
>> area range lain (data atau tabel lain yang membutuhkan gradasi).
>> CF Use formula bisa memberi *format berdasar isi cells lain*.
>>
>> Jika Anda menggunakan CF color scales (seperti kolom Data di contoh
>> lampiran lalu), maka tipe data yang akan diberi warna harus bertipe
>> numerik, karena CF color scales memformat berdasar isi cells dirinya
>> sendiri. CF ini bisa di-copy ke range lain yang berisi nilai bertipe
>> numerik (tabel lain atau data lain yang membutuhkan gradasi).
>>
>> CF yang pas untuk kasus Anda sebenarnya yang CF Use Formula, tetapi
>> memang ribet membuat CF yang banyak mengikuti keinginan Anda untuk tampak
>> membuat gradasi. Tapi ya seperti itulah batasannya.
>> CF yang Anda buat dalam file lampiran Anda adalah CF color scales yang
>> TIDAK AKAN bisa dipakai oleh cells bertipe text (seperti data di kolom B
>> pada file lampiran Anda).
>> Demikianlah batasan CF pada .xlsx file
>>
>>
>> Jika dengan VBA, format hasil CF color scales bisa di-copy ke range lain.
>> Untuk kasus Anda, yang digunakan adalah event Change milik Worksheet yang
>> diisi dengan baris kode berikut :
>> 'CF di letakkan di kolom A, object sheet bernama Sheet1 (bukan nama sheet
>> di tab sheet, tetapi nama object sheet di VBE), lokasi range yang akan
>> diwarnai adalah 1 kolom dikanan kolom A (kolom B)
>> 'jika isi kolom A di area range dalam sheet1 yang terpakai mengalami
>> perubahan isi, maka dilakukan penyalinan warna cells
>> dim rng as range
>> if not intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) is
>> nothing then
>> for each rng in intersect( target, range("a:a") ,
>> sheet1.usedrange.resize(,1) )
>> rng.offset(0,1).interior.color=rng.displayformat.interior.
>> color
>> next rng
>> endif
>>
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> 2017-12-14 7:59 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> kalau datanya seperti ini om, apa bisa di copy paste formatting di kolom
>> sebelahnya ? Saya sudah mencoba tapi tidak bisa
>>
>> On Tuesday, December 12, 2017, 3:06:04 PM GMT+7, 'Mr. Kid'
>> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
>> wrote:
>>
>>
>>
>>
>> Hai Tommy,
>>
>> Tentang :
>>
>> Untuk kasus saya ini bukan numerik isinya tetapi text.
>>
>> > Pada file lampiran lalu, kolom Produk juga bertipe text. So what ?
>>
>> Tentang :
>>
>> Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan
>> nilai min dan max yg sudah ditentukan.
>>
>> > Pada file lampiran lalu, warna juga ditentukan berdasar nilai min dan
>> max nya
>> > Dari nilai min dan max yang menjadi kriteria, maka di dapatkan angka di
>> kolom Kode yang menunjukkan kode warna. Pada contoh, ada 5 kode setiap
>> warna, berarti setiap warna akan tergradasi dalam 5 varian gradasi.
>> > Jadi, kriteria min dan max diterjemahkan dulu menjadi kode-kode bertipe
>> numerik pada sebuah kolom. Setiap kode akan dibuatkan sebuah CF dengan
>> format warna yang sesuai untuk kode tersebut.
>> > Toh andai ada nilai rgb dari 0 sampai 1000 lalu mau dipasang ke 4 cells
>> saja, Anda perlu memilih cells pertama mau rgb berapa, cells kedua berapa,
>> dst
>> > Nah, kolom kode itu adalah mewakili nilai rgb yang dapat digunakan.
>> Kode itu bisa Anda dapatkan dengan formula dan sebagainya.
>> > Jadi, kalau warna gradasi hijau sampai hijau muda ingin ada 50 warna
>> gradasi untuk 50 cells, maka buat 50 CF. Kalau ada warna gradasi biru
>> sebanyak 30 gradasi, buat 30 CF
>>
>> Tentang :
>>
>> Kalau misalnya di copy paste formattingnya saja apa bisa ?
>>
>> > CF yang sudah terbuat bisa di-copy ke range lain dan merujuk ke kolom
>> kode yang ada di range lain. Copy saja range yang punya CF, lalu Paste
>> Special Format.
>> > Tinggal bagaimana mengatur formula dalam CF agar bisa mengikuti lokasi
>> paste special format bukan ?
>>
>>
>> Ribet kan....
>> walau bikin CF yang banyak itu bisa jadi hanya butuh sekali bikin lalu
>> copy paste format ke tempat lain.
>>
>> Trus kalau pakai VBA gak ribet gitu ?
>> 1. Kalau pakai VBA UDF (prosedur function yang dipakai seperti pakai
>> formula di sebuah cells) untuk set interior color sebuah cells, maka
>> langsung ditolak oleh VBA, karena UDF TIDAK BOLEH mengubah object. Interior
>> Color itu properti punyanya si Range
>> 2. Kalau pakai VBA prosedur sub, berarti harus merespon perubahan saat
>> terjadi kalkulasi Excel, mungkin event SheetCalculate milik thisworkbook
>> atau event Calculate milik si sheet masing-masing bisa dipakai
>> 3. Lalu harus menentukan range mana saja yang se-grup (misal yang awalnya
>> S2 seperti milik Anda itu), kalau pakai loop, bakalan dibaca berulang-ulang
>> tuh area range di setiap warna. Lalu, dengan enaknya bilang Excel kerjanya
>> lamban... (langkah ini mungkin jadi tidak erlu, kalau user sendiri yang
>> memilih setiap blok yang akan diberi gradasi sama. Kalau emang begono,
>> warnain sendiri manual atau pakai VBA akan sama lamanya kok).
>>
>> btw,
>> kalau mau dicoba pakai VBA, maka langkah 2 dan 3 di atas yang perlu
>> dilakukan.
>> yang dibutuhkan :
>> 1. bisa membuat prosedur event
>> 2. bisa proses nested loop
>>
>> Contoh baris kode untuk mewarnai range A1 di sheet aktif dengan nilai rgb
>> tertentu
>> range("a1").interior.color= rgb( 200 , 100 , 150 ) '200 : red; 100
>> : green; 150 : blue -> ini harus Anda ganti dengan variabel tertentu yang
>> nilainya berubah setiap range agar terbentuk gradasi
>>
>> Selamat mencoba...
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> On Tue, Dec 12, 2017 at 2:10 PM, Tommy Kurniawan master_tommy25@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>> Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya
>> tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria
>> berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy
>> paste formattingnya saja apa bisa ? Terima kasih
>>
>> On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid'
>> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
>> wrote:
>>
>>
>>
>>
>> Hai Tommy,
>>
>> Conditional Formatting (CF) memiliki batasan.
>> CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
>> CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu
>> dibuat untuk pembuatan gradasi warna.
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>>
>>
>> 2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>>
>> Mohon bantuannya milis excel, saya ingin membuat warna gradasi
>> berdasarkan kriteria tertentu. Misal dalam contoh gambar ada kriteria S2,
>> itu saya ingin jadikan warna gradasi dari kuning cerah ke kuning agak
>> gelap. Saya sudah punya panduannya nilai min dan max dari RGB nya. Begitu
>> pula kriteria S3 dan N ingin saya ganti menjadi warna gradasi.
>> Terima kasih
>>
>>
>>
>>
>>
>>
>
>

Sat Dec 16, 2017 4:35 am (PST) . Posted by:

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

Hai Odong,

hehehe... ternyata pertanyaan iseng diimil lalu itu dijawab to...
maaf ya... baru hari ini sempet screening imil milis yang belum tuntas
kasusnya atau yang perlu tambahan catatan..

Begini, tentang :

> masalah nya saya tidak dapat membayangkan
>
> tidak usah dibayangkan
> lebih baik ditulis saja secara detil setiap langkahnya
> biasanya, akan tampak alur pokok prosesnya (biasanya loh ya, jadi kalo
kasus om odong itu luar biasa, ee...)

saya ambil, copy
>
> hmmm... dihari hujan kaya hari ini, emang top banget kalo sambil ngopy

karakter yang saya perlu pada suatu baris di sheet A, setelah itu saya
> masuk sheet B, saya cari karakter yang saya butuhkan dengan CTRL+F,
>
setelah dapat baris yang terdapat karakter yang saya cari tadi
>
> oh, maksudnya 'copy' isi sebuah cells di sheet A...
> ini, garis besarnya adalah :
"mendapatkan records di sheet B, yang sesuai dengan kriteria di kolom
tertentu di sheet A"
> proses ini bisa dengan formula (yaitu : CountIFs) atau dengan Advanced
Filter (syarat : nama kolom kriteria di sheet A harus sama atau sudah
dibuat sama dengan kolom tertentu di sheet B)

setelah dapat baris yang terdapat karakter yang saya cari tadi ( *bila
> lebih dari 1 baris maka dilihat nilai yang paling mendekati* )
>
> nilai paling mendekati perlu dijabarkan kriterianya, seperti absolut
selisih antara nilai sheet B kolom Nilai dengan sheet A kolom Nilai adalah
yang terendah atau ada kondisi lainnya.
> jika ada kriteria ini, maka sheet B sebaiknya menggunakan formula vLookUp
agar bisa menghitung nilai kriteria selisih tadi
> lalu, di kolom lainnya di sheet B, berdasar kolom formula selisih, dibuat
formula pemilih atau penanda record pertama dengan selisih terendah per
kriteria pencocokan
> Excel Table object akan sangat bermanfaat untuk hal ini, apalagi jika
diotomasi dengan VBA

maka 1 baris tersebut saya cut saya pindah ke sheet C saya pastekan pada
> baris yang kosong
>
> tuh kan, ternyata cuma (no offense) mau nyari records sheet B yang sesuai
dengan sheet A
> karena ada kriteria 'nilai paling mendekati' tadi, maka daripada pakai
Advanced Filter, pakai AutoFilter saja.
> Filter sheet B berdasar kolom penanda record (pemilih record)
> Hasil filter di-copy (visible only) dan di paste values (atau values n
format) ke sheet C baris kosong

saya kembali ke sheet A, baris yang saya ambil karakternya tadi saya cut
> lagi untuk di masukan lagi di sheet C tepat berada di baris yang berisi
> baris yang berasal dari sheet B.
>
> yang ini, berarti akan disertakan record acuan dari sheet A menempel
(disandingkan, Join atau lookup) pada sheet B
> kalau begitu, di sheet B, sekalian dibuat formula pengambil record sheet
A di record terpilih
> jadi, AutoFilter sudah akan berisi data sheet B yang telah disandingi
data sheet A yang saling bersesuaian dan sesuai kriteria untuk sheet C
> akhirnya, untuk dapat sheet C, tidak perlu loop. Cukup sekali proses
saja. Capek kalau pakai loop-loop-an dengan Find.

begitu seterusnya sampai baris pada sheet A habis, bila sheet A menyisakan
> baris data, itu akan saya konfirmasi lagi ke bagian terkait karena yang
> seharusnya punya saldo hanya sheet B.
>
> ini berarti di sheet A butuh kolom formula untuk cek ada tau tidak record
sheet A (berdasar kolom tertentu) di sheet C (kolom tertentu).
> di sheet C sudah ada kolom-kolom dari sheet A bukan ? Berarti formula
dengan CountIFs bisa dimanfaatkan
> Nah... proses mendapatkan sisa record di sheet A adalah dengan AutoFilter
> Filter tabel di sheet A berdasar kolom berformula CountIFs tadi. Filter
yang isi kolom tersebut mencerminkan adanya record A di sheet C
> hasil autofilter di buang (visible only, di-delete entire row atau delete
record table sesuai keadaan tabel)
> selesai deh...

so,
jadi tidak ribet ngatur shortcut yang butuh VBA, karena VBA-nya dipakai
langsung untuk mengotomasi proses

oh iya,
Sebaiknya tidak pakai record macro untuk menjalankan SOP (copy, find, cut,
paste, dst itu kan seperti SOP) yang sudah rutin dijalankan, karena record
macro akan terasa manfaatnya untuk yang sudah paham VBA. Kalau belum paham
VBA, maka belajar VBA dengan record macro akan membuatnya fokus untuk
memperbaiki hasil record macro, bukan untuk memahami kemampuan si VBA.
Bukankah lebih baik memahami kemampuan calon karyawan yang akan di-hire
daripada sibuk memperbaiki hasil kerja karyawan yang tidak dipahami tapi
telah telanjur dipekerjakan dan diberi task.

Sekadar catatan : (moga-moga bermanfaat bagi yang mau belajar)
1. Langkah pertama dalam menyusun otomasi adalah mendefinisikan ulang hal
yang akan diotomasi
> jadi, bukan SOP yang ada yang langsung dibuatkan baris kode bejibunnya
> mulailah dengan mendefinisikan bunyi tugas dari atasan, sumber-sumber
data, data akhir yang dibutuhkan, berbagai opsi cara mengerjakannya secara
manual, dsb
2. Lalu, coba berbagai opsi cara mengerjakannya (bila sempat), atau
bertanya tentang opsi-opsi yang memungkinkan untuk digunakan.
3. Kemudian, pilih opsi cara mengerjakan yang dinilai cukup efisien dari
sekian banyak opsi yang ada
4. Barulah memulai proses otomasi, diawali dengan menyusun perangkat data,
seperti :
- workbook dan sheet yang dibutuhkan,
- tabel yang dibutuhkan,
- kolom-kolom yang dibutuhkan,
- kolom bantu atau baris bantu atau cells bantu yang dapat mempermudah
proses
5. dilanjutkan dengan menyusun baris kode otomasi

Contoh untuk kasus ini :
Diketahui :
Atasan berkata, "tolong dicarikan data yang tidak semestinya, lalu
konfirmasikan ke pihak terkait ya..."
Ditanyakan :
Manakah data yang perlu dikonfirmasi ?
Penyelesaian :
> Langkah 1
Tema kasus : membandingkan 2 data, diambil yang tidak sesuai (bila
perlu, simpan yang sesuai)
Data : sheet A, sheet B, sheet C (berisi record yang sesuai)
Daya yang dibandingkan : Sheet A vs Sheet B
Kriteria perbandingan :
1. kolom X di sheet A terhadap kolom Y di sheet B
2. nilai terendah dari selisih (absolute) antara kolom NilaiA di
sheet A dengan NilaiB di sheet B dalam formula selisih = Absolutenya (
nilaiB - nilai A )

> Langkah 2
Opsi yang terpikirkan :
1. pakai Find :
setiap isi sheet A di-Find pada sheet B, bandingkan nilaiA
dengan nilaiB, cut record yang selisih terendah, paste ke sheet C baris
baru.
cut record sheet A yang sedang diproses ke sheet C di lokasi
paste terakhir dari sheet B tadi
ulangi sampai seluruh record sheet A selesai diperiksa, maka
didapatlah records sheet A yang perlu dikonfirmasi + record yang sesuai di
sheet C
2. pakai formula untuk memilih record yang yang sesuai
di sheet A :
- dibuat kolom formula berisi cek ada atau tidaknya
record tersebut di sheet B. Kalau ada, hasilnya > 0. Kalau tidak ada,
hasilnya 0. Dugaan : bisa pakai CountIFs
di sheet B :
- dibuat kolom formula hitung selisih (absolute)
terhadap nilaiA di sheet A. Karena absolute, nilai selisih minimal adalah
0. Dugaan : bisa pakai vLookUp
- dibuat kolom formula pemilih record dengan selisih
terendah per kolom kunci. Record dengan selisih terendah akan bernilai 0.
Dugaan : bisa pakai CountIFs kriteria "<" selisih baris tersebut.
- dibuat kolom formula pengambil kolom-kolom sheet A
untuk hasil di sheet C
di sheet C :
- disiapkan kolom-kolom hasil tanpa record
3. pakai excel data connection (fitur get external data)
di sheet C :
- koneksi ke dirinya sendiri, query join sheet B dengan
sheet A (left join), hitung selisih, group by ambil min. Ambil kolom sheet
B dan sheet A dengan selisih terendah, filter record sheet A tidak NULL
buat sheet D (record yang perlu konfirmasi) :
- koneksi ke dirinya sendiri, query join sheet A dengan
sheet B (left join). Ambil sheet A. Filter record sheet B adalah NULL

> Langkah 3
Dari 3 opsi di atas, urutan yang dinilai optimum adalah (dari optimum
tertinggi ke optimum terendah) : cara 2, cara 1, cara 3
> cara 2 : perlu belajar menyusun formula, tetapi sekali kerja
> cara 1 : kerja berulang-ulang
> cara 3 : perlu belajar Get External Data dan query
Jadi, pilih cara 2 dulu saja deh... (walaupun cara 3 tidak perlu VBA
dan formula, tetapi saat ini lebih optimum pakai cara 2 lalu nanti
diotomasi dengan VBA. Kalau sudah selesai belajar query, baru coba cara 3)

> Langkah 4
mulai deh buat sheet A beserta kolom berformulanya, bila perlu Excel
Table object-nya. Begitu juga di sheet B. Sheet C disipakan header-nya.

> Langkah 5
scripting deh
1. set kalkulasi jadi automatic
2. urutan proses salin record dengan selisih terendah dari sheet B ke
sheet C baris baru
- di sheet B, turn off autofilter, autofilter kolom pemilih
record bernilai 0, pilih record yang visible only, copy, ke baris kosong di
sheet C, paste values, turnoff autofilter di sheet B
3. urutan proses buang record sheet A yang ada di sheet B
- di sheet A, turn off autofilter, autofilter kolom penanda
record ada di sheet B bernilai ">0", pilih record yang visible only, delete
row atau delete table row, turnoff autofilter sheet A
4. pesan selesai ke user

Selesai deh scripting-nya, tinggal buat ornamen untuk interface user,
seperti tombol atau malah sheet interface khusus.

Moga-moga bisa menjadi awal berkembangnya manfaat.

Regards,
Kid

2017-11-29 14:17 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> hai boz kid,
>
> terimaksih solusinya, saya coba dulu klo mentok ga berhasil saya tanya
> lagi.. :)
>
> oiya,"kenapa CTRL+F nya yang berulang kali itu tidak diotomasi dengan VBA
> ?".
>
> masalah nya saya tidak dapat membayangkan, saya ambil, copy, karakter yang
> saya perlu pada suatu baris di sheet A, setelah itu saya masuk sheet B,
> saya cari karakter yang saya butuhkan dengan CTRL+F, setelah dapat baris
> yang terdapat karakter yang saya cari tadi ( bila lebih dari 1 baris maka
> dilihat nilai yang paling mendekati ), maka 1 baris tersebut saya cut saya
> pindah ke sheet C saya pastekan pada baris yang kosong, saya kembali ke
> sheet A, baris yang saya ambil karakternya tadi saya cut lagi untuk di
> masukan lagi di sheet C tepat berada di baris yang berisi baris yang
> berasal dari sheet B.
>
> begitu seterusnya sampai baris pada sheet A habis, bila sheet A menyisakan
> baris data, itu akan saya konfirmasi lagi ke bagian terkait karena yang
> seharusnya punya saldo hanya sheet B.
>
> br,
>
> odong nando
>
>
> ------------------------------
> *Dari:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Selasa, 28 November 2017 19:15
>
> *Judul:* Re: [belajar-excel] mengganti shortcut
>
>
> Hai Odong,
>
> Tidak ada pengaturan shortcut di Excel Options (MS Word malah ada).
>
> Di Excel, mengubah isi shortcut perlu menggunakan VBA. Berarti security
> macro harus di-Enable.
> Misal, file kerja sehari-hari bernama Kerja.xlsx dan akan diatur
> penggunaan shortcutnya. Sebaiknya buat file baru (kosong), misal bernama
> mySetting.xlsm
> Jadi, file mySetting.xlsm dijalankan lebih dulu. Setelah itu baru file
> open si Kerja.xlsx.
> Kalau selesai pakai setting-nya dan ingin normal, tutup si mySetting.xlsm
> dan lanjutkan kerja dengan Kerja.xlsx dalam keadaan setting normal lagi.
>
> Isi mySetting.xlsm begini :
> 1. Buat event Workbook Open
> > waktu buka workbook, si CTRL+D dibuat supaya menjalankan prosedur
> pemanggil CTRL+F.
> > Prosedur pemanggil CTRL+F itu nanti dinamakan CariNGanti
> > bunyi baris kode supaya kalau ada yang pencet CTRL+D maka si Excel
> akan jalankan prosedur CariNGanti :
> Application.OnKey "^d" , "CariNGanti"
>
> 2. Buat event workbook before close
> > waktu workbook ditutup, si CTRL+D dikembalikan jadi default lagi
> Application.OnKey "^d"
>
> 3. disebuah general module, buat prosedur CariNGanti
> > prosedur ini isinya adalah memanggil dialog window Find atau Find n
> Replace.
> > Bisa salah satu dari yang ini :
> 1. dialog Find (agak beda dengan dialog Find n Replace hasil
> menekan CTRL+F)
> Application.Dialogs(xldalogformulafind).Show
>
> 2. seperti menekan tombol-tombol menu Excel ALT+H+FD+F (ribbon
> [ALT] + Home [H] + grup Editing -> find n select [FD] + Find... [F])
> Application.SendKeys "%HFDF"
> 'kalau mau diapit application.screenupdating =false diawal lalu
> =true diakhir juga boleh (kayanya gak perlu sih)
>
> 3. (direkomendasikan) command bar, seperti nomor 2, tapi langsung
> ke pokok menu berbunyi Find...
> Application.CommandBars("Edit").Controls("Find...").Execute
> 'perhatikan, di ribbon Home -> grup Editing -> Find n Select -> tulisannya
> Find... (diakhiri 3 bijik titik)
>
> 4. save workbook
> > save as dengan type .xlsm
>
> 5. tutup workbook, lalu buka lagi, n coba deh
> > buka juga file lainnya, seperti si kerja.xlsx
>
> Met mencoba ya...
>
> btw,
> kenapa CTRL+F nya yang berulang kali itu tidak diotomasi dengan VBA ?
> (jawabannya optional kok, bila perlu ndak usah dijawab)
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Tue, Nov 28, 2017 at 5:35 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> hai pak HK,
>
> justru karena hanya saya yang memakai komputer ini. jadi bagi saya tidak
> masalah mau di ganti shortcutnya seperti apa.
> mohon utk pak HK memberitahukan dimana saya bisa merubah shortcut excel
> ini. karena bagi saya cukup mengganggu.
>
> memang apa yang pak HK bilang ada benarnya juga, " Kalau salah pencet
> kenapa default shortcutnya yang musti diganti ??". kalau saya menanggapinya
> seperti ini pak, biasaya ada ratusan baris dalam 1 sheet excel yang harus
> saya hapus berdasarkan kriteria dari sheet lain, saya sudah coba
> menyocok2kannya menggunakan formula tp hasinya nihil, mungkin karena
> pengetahuan saya yang kurang. dari sebab itulah saya mencoba membiasakan
> diri utk mengambil bagian dari data cell sheet A, saya cari yang sama pada
> sheet B saya cut data yang saya anggap sesuai, saya taruh pada sheet C, dan
> saya kembali ke sheet A utk ambil data yang saya cari tari ke sheet C.
>
> kira2 kejadiannya seperti itu, dan saya sudah terbiasa melakukannya,
> semuanya dilakukan tanpa bantuan mouse, dan lagi klo saya lagi melakukan
> itu saya merasa senang aja pak, hehehe...
>
> jadi saya tidak mencaritahu lagi bagaimana formula yang harusnya saya
> terapkan, saya malah menginginkan shortcut ctrl+D itu hilang saja, atau ya
> sudah disamakan saja fungsinya dengan ctrl+F....
>
> br,
>
> odong nando
>
>
> ------------------------------
> *Dari:* "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> *Kepada:* "odong nando odongnando@yahoo.com [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> *Dikirim:* Selasa, 28 November 2017 15:07
> *Judul:* Re: [belajar-excel] mengganti shortcut
>
>
> Hai Odong,
> Kalau salah pencet kenapa default shortcutnya yang musti diganti ??
> Bukankah akan lebih repot kalau shortcut computer kita sudah dibuat custom
> kemudian dipakai orang lain yang masih menggunakan default shorcut ?
>
> Salam,
> HK
>
> On Tuesday, 28 November 2017, 2:37:56 PM GMT+7, odong nando
> odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >
> wrote:
>
>
>
> hai BeExceler
>
> saya terbiasa bekerja dengan shortcut excel, tp kadang-kadang salah
> pencet. lagi enak enaknya pake shortcut ctrl+F eh kepencet ctrl+D,
> gaketauan tuh setelah nya saya pake lagi tu ctrl+F, memang jarang tp klo lg
> asik ga ketahuan hasilnya sangat merepotkan, dan yang paling fatal saya
> pernah mengulang pekerjaan saya yang seharusnya hampir kelar, karena
> ternyata bukan hanya 1x saya tekan ctrl+D tp beberapa kali, jadi sudah
> tidak ketahuan lagi mana angka yang tidak ada...
>
> dari kasus saya tersebut, mohon informasi di mana saya bisa menemuakan
> pengaturan untuk mengganti format shortcut excel 2010...
>
> terimakasih
>
> br,
>
> odong nando
>
>
>
>
>
>
>

Sat Dec 16, 2017 7:52 am (PST) . Posted by:

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

Hai Heru,

Mungkin seperti file terlampir.

Regards,
Kid

2017-11-01 9:43 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Yth. Mr.Kid,
>
>
>
> Apa yang diulas Mr. diatas memang benar adanya, maaf jika pertanyaan saya
> mungkin tidak pentingnya bagi yang lain
>
> Tapi saya hanya mencontoh di beberapa aplikasi biasanya dibawah ada
> tampilan scroll record seperti screenshot berikut :
>
>
>
>
>
> Namun tampilan tidak secara columnar tapi detail per record secara portrait
>
> Sedangkan saat ini textbox record saya buat dengan kode sbb:
>
>
>
> rs.Open "SELECT ID, NAMA, TEMPAT_LAHIR, TGL_LAHIR, FROM `DATA
> GENERUS.MDB`.GENERUS,con, adOpenKeyset, adLockOptimistic
>
> If (Textbox1.Text) > rs.RecordCount Then Exit Sub
>
> rs.MoveFirst
>
> rs.Move Val(Textbox1.Text) - 1
>
>
>
> Demikian mohon maaf
>
>
>
> Wassalam
>
> Heru Safrudin
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 01 Nopember 2017 0:57
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mengetahui nomor record
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Heru,
>
>
>
> imho,
>
> Pertanyaannya adalah apa pentingnya nomor record ?
>
> Nomor record itu tidak penting sama sekali.
>
> Setiap data memiliki kolom-kolom (bisa lebih dari 1) kunci. Dengan
> kolom-kolom kunci tersebut, maka record dapat diketahui.
>
> Sampai sekarang, saya tidak pernah menemukan pentingnya nomor record.
> Kalau ada 100juta records, maka nomor records hanya akan membuang ruang
> saja.
>
> Posisi record di dalam database tidak diketahui. Andai (andai nih ya),
> dibuatkan sebuah kolom bernama 'Nomor Record' di dalam tabel database, bagi
> si database, kolom tersebut seperti kolom lain. Tidak dengan serta merta
> menunjukkan nomor record.
>
> Ok,
>
> dari hal di atas, maka bisa disebut bahwa nomor record yang biasa dimaksud
> adalah urutan natural yang ditampilkan oleh query select from sederhana
> (tanpa klausa lain).
>
> Hasil query itu pun sekadar image (salinan, snapshot, atau apalah
> menyebutnya).
>
> Jadi, hasil query select from sederhana dengan hasil query yang sudah
> disertai sort (order by) ataupun filter (where), apalagi join (penyandingan
> dataset) maupun union (penggabungan dataset) dapat menghasilkan image
> tampilan yang memiliki urutan berbeda. Artinya, nomor record akan relatif
> terhadap bunyi query-nya.
>
> Itu sebabnya, tidak ada query meng-update data berdasar nomor record real,
> karena nomor record real tidak diketahui.
>
>
>
> Sampai disini, setidaknya ada kesepakatan bahwa :
>
> 1. nomor record itu tidaklah penting
>
> 2. nomor record yang dimaksud dalam kasus Anda ini adalah urutan hasil
> query dan tidak mewakili nomor record asli si data di dalam tabel.
>
>
>
> Kembali kepada kasus...
>
> Saya menghubungkan data XL saya dengan MS-Access dengan koneksi Recordset
>
> > Artinya, Anda menggunakan data object seperti ADO melalui Excel VBA.
>
> > Hasilnya adalah image dataset hasil query yang disebut recordset.
>
> > Hasil query yang dipegang oleh si object recordset ADO tersebut disalin
> ke Excel Worksheet
>
> > Hasil salinannya adalah values (BUKAN connected data), jadi tidak bisa
> di-refresh seperti menggunakan Refresh All yang disediakan Excel.
>
> > Refresh data hanya bisa dilakukan jika si prosedur yang berisi proses
> penyalinan dari ADO recordset ke Excel worksheet tersebut dijalankan ulang.
>
>
>
> Pertanyaan saya bisakah kita melihat nomor record pada data kita di Access?
>
> > Jika yang dimaksud adalah nomor record yang ditampilkan diakses ketika
> membuka tabel dengan nomor record hasil query, maka nomor record yang Anda
> maksud tersebut tidak ada hubungannya.
>
> > Hal ini berpotensi terjadinya kesalahan baca. Karena hasil query
> menunjukkan record ke-1 berisi data x, tapi di Access, ketika membuka tabel
> tersebut, record ke-1 adalah data y.
>
>
>
> > Jika yang dimaksud adalah meniru seperti tampilan si Access, yang ada
> row selector-nya (pemilih baris loh ya, bukan nomor record), maka jawabnya
> bisa.
>
> > Konsepnya sama saja, yaitu dari header, di-offset sebanyak N baris. N
> baris adalah posisi baris dataset yang ingin dijadikan pusat perhatian
> (fokus).
>
> > di Excel VBA, kira-kira bunyinya :
> sheets("nama sheetnya").range("a1").offset( 5 ).activate
>
> atau
>
> application.goto sheets("nama sheetnya").range("a1").offset(
> 5 ) , scroll:=true 'sebaiknya, baris header di freeze pane
> dulu
>
> > Dan hal ini bisa digunakan untuk segala bentuk dataset (TIDAK hanya
> dataset hasil ambil data dari tempat lain), di workbook baru pada worksheet
> kosong pun bisa.
>
>
>
> Demikian pula jika kita ketikkan nomor maka akan nenunjuk ke data record
> nomor tersebut.
>
> Atau kita tombol panah kiri atau kanan, data akan menunjuk ke nomor record
> dalam textbox
>
> > Apapun object yang Anda gunakan sebagai media berinteraksi dengan user,
> event-nya diisi dengan proses seperti di atas tadi, bisa pilih, mau pakai
> application.goto atau range activate
>
> > Jika diinginkan bahwa kalau user menggerakkan active cells di worksheet
> dan posisi baris dalam dataset ditampilkan pada object yang Anda gunakan :
>
> objectAnda.text = activecells.row - 1 'karena header
> di baris 1, bila perlu dilengkapi dengan pemeriksaan apakah activecells itu
> bagian dari dataset
>
> > Baris tersebut bisa diletakkan di dalam event milik worksheet yang
> bernama Selection Change.
>
> > Sila pelajari lagi properti dan event yang dimiliki oleh object yang
> Anda gunakan.
>
> > Dan hal ini bisa digunakan untuk segala bentuk dataset (TIDAK hanya
> dataset hasil ambil data dari tempat lain), di workbook baru pada worksheet
> kosong pun bisa.
>
>
>
>
>
>
>
>
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2017-10-31 15:48 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.
> co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Be-Exceller,
>
>
>
> Saya menghubungkan data XL saya dengan MS-Access dengan koneksi Recordset
>
> Pertanyaan saya bisakah kita melihat nomor record pada data kita di
> Access?
>
> Demikian pula jika kita ketikkan nomor maka akan nenunjuk ke data record
> nomor tersebut.
>
> Contoh kita isi textbox dibawah ini
>
>
>
>
>
> Atau kita tombol panah kiri atau kanan, data akan menunjuk ke nomor record
> dalam textbox
>
>
>
> Mohon pencerahannya
>
>
>
> Wassalam,
>
> Heru Safrudin
>
>
>
>
>
>
>

Sat Dec 16, 2017 8:26 am (PST) . Posted by:

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

wow... trit ini sampai 1 bulan lebih belum ada yang nyenggol...
ada apa dengan trit ini ya ?
hmmm....

Dear Susilo Pratama,

Mohon maaf karena kasus Anda cukup lama tidak mendapat respon.
Semoga file terlampir bisa menjadi wacana tambahan bagi Anda dan seluruh
BeExceller yang menghadapi kasus yang memiliki kemiripan dengan kasus Anda
ini.

Jika ada pertanyaan atau saran terkait file terlampir, feel free untuk
mem-posting-nya ke milis.

Warm Regards,
Kid

2017-11-07 9:08 GMT+07:00 Susilo Pratama pratama_susilo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> salam master , semoga tidak bosen dengan saya yang sedang belajar macro
> mhon di bantu , setelah saya coba, ternya ada yang lupa jadi ketika di
> prediakt nilai maka deskripsi muncul baik seharunya , jadi kurang sangat
> baik dan cukup sesuai dengan predikat , tapi nanti yang tampil di deskripsi
> masih sama yaitu hanya nilai tertinggi dan terendah,baik itu nilai a, b,c
> atu d
>
>
>
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar