3 New Messages
Digest #2010
Messages
Mon Jan 7, 2013 9:16 am (PST) . Posted by:
"Bledhuk" th3_r3d_lab3l
Kapan kira" pakai lookup dan vlookup?
Format lookup
LOOKUP(lookup_value,lookup_vektor,result_vektor)
Kalo target di kiri dan hasil ada dikanan kalo saya suka pake vlookup
Kalo lookup belom pernah pakai,keuntungan memakai lookup kira" apa ya?
Br
Widi
Powered by BlackBerry®
-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 7 Jan 2013 16:23:48
To: belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] rumus if
Hai Tuti,
File berisi contoh data akan membantu BeExceller dalam belajar memahami
kasus ataupun belajar menyusun formula.
1. coba formula :
=LookUp( Abs( nilai_pencapaian ) , *{0,0.5,1,2,3,3.0001}* , *{0,5,4,3,2,1}*
)
2. coba formula :
=LookUp( x ,* {-999%,-4.99999%,-2.5%,2.500001%,5.00001%} *, *{5,4,3,2,1}* )
Yang *biru *adalah batas bawah interval. Atur dan sesuaikan nilai batas
bawahnya.
Yang *merah *adalah nilai yang diambil. Atur dan sesuaikan sesuai daftar
nilai batas bawahnya.
Yang *biru *dan *merah *bisa dibuat sebuah tabel. Pada cell hasil bisa
memanfaatkan fungsi vLookUp dengan match type approximate (TRUE)
Wassalam,
Kid.
2013/1/7 tuti andrayani andrayani_lee@yahoo.co.id >
> **
>
>
> Dear Exceller ,
>
> Mohon bantuannya jika kita ingin membuat rumus sbb :
>
> 1.target 10, jika pencapaian +>3 atau ->3 nilainya 1, +3 atau minus 3
> nilainya 2, jika +2 atau -2 nilainya 3, jika +1 atau -1 nilainya 4, jika
> +0,5 atau -0,5 nilainya 5
>
> 2. target x, jika pencapaian x nilai 3, jika -5% < x ≤ - 2,5% nilai 4,
> jika pencapaian x <- 5% nilai 5, jika pencapaian *2,5% ≤* x < 2,5% nilai
> 2, jika pencapaian x> 5% nilai 1
>
> Terimakasih
> Tuti
>
>
>
Format lookup
LOOKUP(lookup_
Kalo target di kiri dan hasil ada dikanan kalo saya suka pake vlookup
Kalo lookup belom pernah pakai,keuntungan memakai lookup kira" apa ya?
Br
Widi
Powered by BlackBerry®
-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.
Sender: belajar-excel@
Date: Mon, 7 Jan 2013 16:23:48
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] rumus if
Hai Tuti,
File berisi contoh data akan membantu BeExceller dalam belajar memahami
kasus ataupun belajar menyusun formula.
1. coba formula :
=LookUp( Abs( nilai_pencapaian ) , *{0,0.5,1,2,
)
2. coba formula :
=LookUp( x ,* {-999%,-4.99999%
Yang *biru *adalah batas bawah interval. Atur dan sesuaikan nilai batas
bawahnya.
Yang *merah *adalah nilai yang diambil. Atur dan sesuaikan sesuai daftar
nilai batas bawahnya.
Yang *biru *dan *merah *bisa dibuat sebuah tabel. Pada cell hasil bisa
memanfaatkan fungsi vLookUp dengan match type approximate (TRUE)
Wassalam,
Kid.
2013/1/7 tuti andrayani andrayani_lee@
> **
>
>
> Dear Exceller ,
>
> Mohon bantuannya jika kita ingin membuat rumus sbb :
>
> 1.target 10, jika pencapaian +>3 atau ->3 nilainya 1, +3 atau minus 3
> nilainya 2, jika +2 atau -2 nilainya 3, jika +1 atau -1 nilainya 4, jika
> +0,5 atau -0,5 nilainya 5
>
> 2. target x, jika pencapaian x nilai 3, jika -5% < x ≤ - 2,5% nilai 4,
> jika pencapaian x <- 5% nilai 5, jika pencapaian *2,5% ≤* x < 2,5% nilai
> 2, jika pencapaian x> 5% nilai 1
>
> Terimakasih
> Tuti
>
>
>
Mon Jan 7, 2013 10:12 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Widi,
Biasanya pakai lookup karena setidaknya 2 hal berikut :
1. suka dengan LookUp
2. tidak bisa diproses dengan vLookUp
Fungsi LookUp selalu mencari dengan approximate match. Jika akan me-lookup
data yang exact match, maka dibutuhkan proses untuk mengubah kolom key
lookup agar hanya berisi 1 record yang dicari atau membuat kolom key lookup
pasti terurut ascending.
Contoh untuk referensi lookup di kolom A dan B sebagai berikut : (header
mulai A1)
Valuta Kurs_USD
USD 1
EUR 1.2
ZAR 0.129
Pada cell G7 berisi teks EUR
H7 ingin dicari nilai kurs_usd dari tabel lookup tersebut.
Dengan vLookUp, bunyi formula H7 adalah :
=vLookUp( G7 , $a$1:$b$4 , 2 , 0 )
dan menghasilkan 1.2
Bagi yang suka dengan lookup, maka : (hasilnya 1.2)
1. jika kolom key yang bernama Valuta selalu bisa dipastikan terurut
ascending, maka H7 bisa diisi formula :
=LookUp( G7 , $a$2:$a$4 , $b$2:$b$4 )
2. jika kolom key yang bernama Valuta tidak bisa dipastikan terurut
ascending, maka H7 bisa diisi formula :
=LookUp( 2 , 1/($a$2:$a$4=G7) , $b$2:$b$4 )
Misalkan data referensi bertambah dengan seiring waktu tanpa ada proses
sorting ulang data dan nilai yang diambil akan selalu nilai terakhir yang
ada
hingga data di atas menjadi :
Valuta Kurs_USD
USD 1
EUR 1.2
ZAR 0.129
AUD 0.9
EUR 1.5
dan rujukan tabel dalam formula berubah mengikuti bertambahnya area data
referensi.
Formula vLookUp menjadi :
=vLookUp( G7 , $a$1:$b$6 , 2 , 0 )
Hasil vLookUp akan tetap menghasilkan 1.2 karena 1.2 adalah pada item
valuta yang ditemukan pertama kali.
Lookup berubah menjadi :
=LookUp( 2 , 1/($a$2:$a$6=G7) , $b$2:$b$6 )
Hasilnya akan 1.5
Jika menggunakan vLookUp dengan match type approximate (TRUE), maka vLookUp
akan berbentuk :
=vLookUp( G7 , $a$1:$b$6 , 2 )
dan kalau gak salah duga, dengan susunan tabel referensi di atas, akan
menghasilkan error value #N/A karena kehadiran item valuta ZAR yang lebih
dari EUR (yang dicari)
Selain LookUp, masih ada Index Match yang bisa digunakan.
Wassalam,
Kid.
2013/1/7 Bledhuk bledhuk@yahoo.com >
> **
>
>
> ** Kapan kira" pakai lookup dan vlookup?
> Format lookup
> LOOKUP(lookup_value,lookup_vektor,result_vektor)
>
> Kalo target di kiri dan hasil ada dikanan kalo saya suka pake vlookup
> Kalo lookup belom pernah pakai,keuntungan memakai lookup kira" apa ya?
>
> Br
> Widi
> Powered by BlackBerry®
> ------------------------------
> *From: * "Mr. Kid" mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 7 Jan 2013 16:23:48 +0700
> *To: *belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] rumus if
>
>
>
> Hai Tuti,
>
>
> File berisi contoh data akan membantu BeExceller dalam belajar memahami
> kasus ataupun belajar menyusun formula.
>
> 1. coba formula :
> =LookUp( Abs( nilai_pencapaian ) , *{0,0.5,1,2,3,3.0001}* , *
> {0,5,4,3,2,1}* )
>
> 2. coba formula :
> =LookUp( x ,* {-999%,-4.99999%,-2.5%,2.500001%,5.00001%} *, *{5,4,3,2,1}*)
>
> Yang *biru *adalah batas bawah interval. Atur dan sesuaikan nilai batas
> bawahnya.
> Yang *merah *adalah nilai yang diambil. Atur dan sesuaikan sesuai daftar
> nilai batas bawahnya.
> Yang *biru *dan *merah *bisa dibuat sebuah tabel. Pada cell hasil bisa
> memanfaatkan fungsi vLookUp dengan match type approximate (TRUE)
>
> Wassalam,
> Kid.
>
> 2013/1/7 tuti andrayani andrayani_lee@yahoo.co.id >
>
>> **
>>
>>
>> Dear Exceller ,
>>
>> Mohon bantuannya jika kita ingin membuat rumus sbb :
>>
>> 1.target 10, jika pencapaian +>3 atau ->3 nilainya 1, +3 atau minus 3
>> nilainya 2, jika +2 atau -2 nilainya 3, jika +1 atau -1 nilainya 4, jika
>> +0,5 atau -0,5 nilainya 5
>>
>> 2. target x, jika pencapaian x nilai 3, jika -5% < x ≤ - 2,5% nilai 4,
>> jika pencapaian x <- 5% nilai 5, jika pencapaian *2,5% ≤* x < 2,5% nilai
>> 2, jika pencapaian x> 5% nilai 1
>>
>> Terimakasih
>> Tuti
>>
>>
>>
>
>
Biasanya pakai lookup karena setidaknya 2 hal berikut :
1. suka dengan LookUp
2. tidak bisa diproses dengan vLookUp
Fungsi LookUp selalu mencari dengan approximate match. Jika akan me-lookup
data yang exact match, maka dibutuhkan proses untuk mengubah kolom key
lookup agar hanya berisi 1 record yang dicari atau membuat kolom key lookup
pasti terurut ascending.
Contoh untuk referensi lookup di kolom A dan B sebagai berikut : (header
mulai A1)
Valuta Kurs_USD
USD 1
EUR 1.2
ZAR 0.129
Pada cell G7 berisi teks EUR
H7 ingin dicari nilai kurs_usd dari tabel lookup tersebut.
Dengan vLookUp, bunyi formula H7 adalah :
=vLookUp( G7 , $a$1:$b$4 , 2 , 0 )
dan menghasilkan 1.2
Bagi yang suka dengan lookup, maka : (hasilnya 1.2)
1. jika kolom key yang bernama Valuta selalu bisa dipastikan terurut
ascending, maka H7 bisa diisi formula :
=LookUp( G7 , $a$2:$a$4 , $b$2:$b$4 )
2. jika kolom key yang bernama Valuta tidak bisa dipastikan terurut
ascending, maka H7 bisa diisi formula :
=LookUp( 2 , 1/($a$2:$a$4=
Misalkan data referensi bertambah dengan seiring waktu tanpa ada proses
sorting ulang data dan nilai yang diambil akan selalu nilai terakhir yang
ada
hingga data di atas menjadi :
Valuta Kurs_USD
USD 1
EUR 1.2
ZAR 0.129
AUD 0.9
EUR 1.5
dan rujukan tabel dalam formula berubah mengikuti bertambahnya area data
referensi.
Formula vLookUp menjadi :
=vLookUp( G7 , $a$1:$b$6 , 2 , 0 )
Hasil vLookUp akan tetap menghasilkan 1.2 karena 1.2 adalah pada item
valuta yang ditemukan pertama kali.
Lookup berubah menjadi :
=LookUp( 2 , 1/($a$2:$a$6=
Hasilnya akan 1.5
Jika menggunakan vLookUp dengan match type approximate (TRUE), maka vLookUp
akan berbentuk :
=vLookUp( G7 , $a$1:$b$6 , 2 )
dan kalau gak salah duga, dengan susunan tabel referensi di atas, akan
menghasilkan error value #N/A karena kehadiran item valuta ZAR yang lebih
dari EUR (yang dicari)
Selain LookUp, masih ada Index Match yang bisa digunakan.
Wassalam,
Kid.
2013/1/7 Bledhuk bledhuk@yahoo.
> **
>
>
> ** Kapan kira" pakai lookup dan vlookup?
> Format lookup
> LOOKUP(lookup_
>
> Kalo target di kiri dan hasil ada dikanan kalo saya suka pake vlookup
> Kalo lookup belom pernah pakai,keuntungan memakai lookup kira" apa ya?
>
> Br
> Widi
> Powered by BlackBerry®
> ------------
> *From: * "Mr. Kid" mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 7 Jan 2013 16:23:48 +0700
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] rumus if
>
>
>
> Hai Tuti,
>
>
> File berisi contoh data akan membantu BeExceller dalam belajar memahami
> kasus ataupun belajar menyusun formula.
>
> 1. coba formula :
> =LookUp( Abs( nilai_pencapaian ) , *{0,0.5,1,2,
> {0,5,4,3,2,1}
>
> 2. coba formula :
> =LookUp( x ,* {-999%,-4.99999%
>
> Yang *biru *adalah batas bawah interval. Atur dan sesuaikan nilai batas
> bawahnya.
> Yang *merah *adalah nilai yang diambil. Atur dan sesuaikan sesuai daftar
> nilai batas bawahnya.
> Yang *biru *dan *merah *bisa dibuat sebuah tabel. Pada cell hasil bisa
> memanfaatkan fungsi vLookUp dengan match type approximate (TRUE)
>
> Wassalam,
> Kid.
>
> 2013/1/7 tuti andrayani andrayani_lee@
>
>> **
>>
>>
>> Dear Exceller ,
>>
>> Mohon bantuannya jika kita ingin membuat rumus sbb :
>>
>> 1.target 10, jika pencapaian +>3 atau ->3 nilainya 1, +3 atau minus 3
>> nilainya 2, jika +2 atau -2 nilainya 3, jika +1 atau -1 nilainya 4, jika
>> +0,5 atau -0,5 nilainya 5
>>
>> 2. target x, jika pencapaian x nilai 3, jika -5% < x ≤ - 2,5% nilai 4,
>> jika pencapaian x <- 5% nilai 5, jika pencapaian *2,5% ≤* x < 2,5% nilai
>> 2, jika pencapaian x> 5% nilai 1
>>
>> Terimakasih
>> Tuti
>>
>>
>>
>
>
Mon Jan 7, 2013 9:25 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mohon tidak cc ke akun selain milis.
Pak Harry,
Bagaimana kalau cboNama yang menggunakan combobox diganti saja dengan
textbox.
Hapus seluruh proses inisialisasi untuk mengisi item dalam cbonama yang ada
userform_init kalau ada.
Ganti seluruh proses yang mengambil properti listindex dengan proses
mencari dalam tabel (Find) milik range (range.find) atau menggunakan fungsi
Match.
Wassalam,
Kid.
2013/1/7 Harry hariansyahptk@yahoo.com >
> Dear BeExceller,
> Mr.Kid
>
> Mencoba apa yg telah Mr.Kid sampaikan dan sudah saya aplikasikan dengan
> Workbook yang saya buat, sudah sesuai dengan yang saya inginkan.
> Tapi setelah kolom "NAMA" saya isi dengan "ERNAWATI";,maka muncul kolom
> dibawahnya sesuai dengan database yang tersedia. Tapi jika kursor tetap
> pada kolom "NAMA" dan jika kita menakan tombol Page Up atau Page Down
> (tombol panah atas dan bawah), maka otomatis kita bisa mengakses data
> sebagaimana database yang telah kita siapkan.
>
> Pertanyaan saya adalah: Bagaimana caranya supaya jika tombol Page Up &
> Down (tombol panah atas dan bawah) kita lock tidak berfungsi sehingga user
> hanya dapat mengakses data yang mereka tau atau dengan kata lain, user
> tidak dapat mencari data yang mereka inginkan dengan menggunakan tombol
> Page Up & Down (panah atas dan bawah).
>
> Mohon berkenan solusinya.
>
> Terima kasih & Wassalam,
>
> Harry
>
>
> Sent from Yahoo! Mail on Android
>
> ------------------------------
> * From: * Mr. Kid mr.nmkid@gmail.com >;
> * To: * belajar-excel@yahoogroups.com >;
> * Subject: * Re: [belajar-excel] ComboBox harus di isi lengkap
> * Sent: * Sun, Dec 30, 2012 11:18:58 PM
>
>
>
> Jika properti combobox bernama ShowDropDown blabla menjadi blabla never,
> maka sebenarnya combobox akan tampak seperti textbox. Kok gak pakai textbox
> saja ya. Textbox kan juga punya event bernama change juga seperti event
> combobox change.
>
> Wassalam,
> Kid.
>
> 2012/12/31 Mr. Kid mr.nmkid@gmail.com >
>
>> Ubah properti bernama ShowDropDown blabla menjadi blabla never.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/12/31 Harry hariansyahptk@yahoo.com >
>>
>>> **
>>>
>>>
>>> Dear BeExceller,
>>> Mr. Kid.
>>>
>>> Hasilnya sudah sesuai dengan yang saya inginkan.
>>> Seandainya tanda panah kebawah (dropdown pilihan) dibuang, bisa gak...???
>>>
>>> Terima kasih - Wassalam,
>>>
>>>
>>> Harry
>>>
>>> ------------------------------
>>> *Dari:* Mr. Kid mr.nmkid@gmail.com >
>>> *Kepada:* belajar-excel@yahoogroups.com
>>> *Dikirim:* Minggu, 30 Desember 2012 2:10
>>>
>>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>>
>>>
>>> Ada yang lupa.
>>> Berikut ini lengkapnya :
>>> 1. Ubah isi properti cbonama bernama MatchEntry menjadi 2 -
>>> fmMatchentrynone atau sebangsanya
>>> 2. Ganti isi event change cbonama dengan :
>>> Dim r As Long
>>>
>>> If Cbonama.Text <> UCase$(Cbonama.Text) Then
>>> Cbonama.Text = UCase$(Cbonama.Text)
>>> Exit Sub
>>> End If
>>>
>>> Err.Clear
>>> On Error Resume Next
>>> r = Application.WorksheetFunction.Match(Cbonama.Text,
>>> MemMaster.Resize(, 1).Offset(0, 1), 0)
>>> If Err.Number <> 0 Then
>>> Err.Clear
>>> On Error GoTo 0
>>> Exit Sub
>>> End If
>>> On Error GoTo 0
>>>
>>> lNoRec = r
>>> txtALAMAT.Value = MemMaster(r, 3)
>>> txtJURUSAN.Value = MemMaster(r, 4)
>>> txtTGLDAFTAR.Value = MemMaster(r, 5)
>>> txtTGLTES.Value = MemMaster(r, 6)
>>> txtPETUGASINPUT.Value = MemMaster(r, 7)
>>> txtTANGGALINPUT.Value = MemMaster(r, 8)
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/12/30 Mr. Kid mr.nmkid@gmail.com >
>>>
>>> Coba ubah isi event change cbonama dengan :
>>> Dim r As Long
>>>
>>> If Cbonama.Text <> UCase$(Cbonama.Text) Then
>>> Cbonama.Text = UCase$(Cbonama.Text)
>>> Exit Sub
>>> End If
>>>
>>> Err.Clear
>>> On Error Resume Next
>>> r = Application.WorksheetFunction.Match(Cbonama.Text,
>>> MemMaster.Resize(, 1).Offset(0, 1), 0)
>>> If Err.Number <> 0 Then
>>> Err.Clear
>>> On Error GoTo 0
>>> Exit Sub
>>> End If
>>> On Error GoTo 0
>>>
>>> lNoRec = r
>>> txtALAMAT.Value = MemMaster(r, 3)
>>> txtJURUSAN.Value = MemMaster(r, 4)
>>> txtTGLDAFTAR.Value = MemMaster(r, 5)
>>> txtTGLTES.Value = MemMaster(r, 6)
>>> txtPETUGASINPUT.Value = MemMaster(r, 7)
>>> txtTANGGALINPUT.Value = MemMaster(r, 8)
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2012/12/29 Harry hariansyahptk@yahoo.com >
>>>
>>> **
>>>
>>> Dear BeExceller,
>>> Pak Slamat,
>>>
>>> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
>>> Mohon dapat ditanggapi.
>>>
>>> Terima kasih & Wassalam,
>>>
>>>
>>> Harry
>>>
>>> ------------------------------
>>> *Dari:* Slamet slametharto@gmail.com >
>>> *Kepada:* belajar-excel@yahoogroups.com
>>> *Dikirim:* Jumat, 28 Desember 2012 21:34
>>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>>
>>>
>>> Dear Pak Harry
>>>
>>> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan
>>> contoh tersebut be-exceller lain bisa membantu menjawab dgn melihat
>>> struktur datanya.
>>>
>>>
>>> Wassalam
>>>
>>>
>>> On 12/28/2012 3:01 PM, Harry wrote:
>>>
>>>
>>> Dear BeExceller,
>>>
>>> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya
>>> pengisian ComboBox dengan format isian lengkap baru kolom di bawahnya bisa
>>> muncul. Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom
>>> dibawahnya tidak muncul.
>>>
>>> Rumus yang saya gunakan selama ini adalah sbb:
>>>
>>> Private Sub UserForm_Initialize()
>>> Dim I As Long, TbHeigh As Long, TbWidth
>>> Application.EnableEvents = False
>>> With Cbonama
>>> .ColumnCount = 2
>>> .BoundColumn = 1
>>> For I = 1 To TbHeigh
>>> .AddItem
>>> .List(I - 1, 0) = MemMaster(I, 2)
>>> Next I
>>> End With
>>> Application.EnableEvents = True
>>> End Sub
>>>
>>> Private Sub Cbonama_Change()
>>> Dim r As Integer
>>> If Cbonama.ListIndex > -1 Then
>>> r = Cbonama.ListIndex + 1
>>> If r > 0 Then
>>> txtalamat.Value = MemMaster(r, 2)
>>> txtkota.Value = MemMaster(r, 3)
>>> End If
>>> End If
>>> End Sub
>>>
>>>
>>> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
>>> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
>>> otomatis muncul isian "ALAMAT" & "KOTA".
>>>
>>> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
>>> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian
>>> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>>>
>>> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>>>
>>> Terima kasih & Wassalam,
>>>
>>>
>>> Harry
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Pak Harry,
Bagaimana kalau cboNama yang menggunakan combobox diganti saja dengan
textbox.
Hapus seluruh proses inisialisasi untuk mengisi item dalam cbonama yang ada
userform_init kalau ada.
Ganti seluruh proses yang mengambil properti listindex dengan proses
mencari dalam tabel (Find) milik range (range.find) atau menggunakan fungsi
Match.
Wassalam,
Kid.
2013/1/7 Harry hariansyahptk@
> Dear BeExceller,
> Mr.Kid
>
> Mencoba apa yg telah Mr.Kid sampaikan dan sudah saya aplikasikan dengan
> Workbook yang saya buat, sudah sesuai dengan yang saya inginkan.
> Tapi setelah kolom "NAMA" saya isi dengan "ERNAWATI"
> dibawahnya sesuai dengan database yang tersedia. Tapi jika kursor tetap
> pada kolom "NAMA" dan jika kita menakan tombol Page Up atau Page Down
> (tombol panah atas dan bawah), maka otomatis kita bisa mengakses data
> sebagaimana database yang telah kita siapkan.
>
> Pertanyaan saya adalah: Bagaimana caranya supaya jika tombol Page Up &
> Down (tombol panah atas dan bawah) kita lock tidak berfungsi sehingga user
> hanya dapat mengakses data yang mereka tau atau dengan kata lain, user
> tidak dapat mencari data yang mereka inginkan dengan menggunakan tombol
> Page Up & Down (panah atas dan bawah).
>
> Mohon berkenan solusinya.
>
> Terima kasih & Wassalam,
>
> Harry
>
>
> Sent from Yahoo! Mail on Android
>
> ------------
> * From: * Mr. Kid mr.nmkid@gmail.
> * To: * belajar-excel@
> * Subject: * Re: [belajar-excel] ComboBox harus di isi lengkap
> * Sent: * Sun, Dec 30, 2012 11:18:58 PM
>
>
>
> Jika properti combobox bernama ShowDropDown blabla menjadi blabla never,
> maka sebenarnya combobox akan tampak seperti textbox. Kok gak pakai textbox
> saja ya. Textbox kan juga punya event bernama change juga seperti event
> combobox change.
>
> Wassalam,
> Kid.
>
> 2012/12/31 Mr. Kid mr.nmkid@gmail.
>
>> Ubah properti bernama ShowDropDown blabla menjadi blabla never.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/12/31 Harry hariansyahptk@
>>
>>> **
>>>
>>>
>>> Dear BeExceller,
>>> Mr. Kid.
>>>
>>> Hasilnya sudah sesuai dengan yang saya inginkan.
>>> Seandainya tanda panah kebawah (dropdown pilihan) dibuang, bisa gak...???
>>>
>>> Terima kasih - Wassalam,
>>>
>>>
>>> Harry
>>>
>>> ------------
>>> *Dari:* Mr. Kid mr.nmkid@gmail.
>>> *Kepada:* belajar-excel@
>>> *Dikirim:* Minggu, 30 Desember 2012 2:10
>>>
>>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>>
>>>
>>> Ada yang lupa.
>>> Berikut ini lengkapnya :
>>> 1. Ubah isi properti cbonama bernama MatchEntry menjadi 2 -
>>> fmMatchentrynone atau sebangsanya
>>> 2. Ganti isi event change cbonama dengan :
>>> Dim r As Long
>>>
>>> If Cbonama.Text <> UCase$(Cbonama.
>>> Cbonama.Text = UCase$(Cbonama.
>>> Exit Sub
>>> End If
>>>
>>> Err.Clear
>>> On Error Resume Next
>>> r = Application.
>>> MemMaster.Resize(
>>> If Err.Number <> 0 Then
>>> Err.Clear
>>> On Error GoTo 0
>>> Exit Sub
>>> End If
>>> On Error GoTo 0
>>>
>>> lNoRec = r
>>> txtALAMAT.Value = MemMaster(r, 3)
>>> txtJURUSAN.Value = MemMaster(r, 4)
>>> txtTGLDAFTAR.
>>> txtTGLTES.Value = MemMaster(r, 6)
>>> txtPETUGASINPUT.
>>> txtTANGGALINPUT.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/12/30 Mr. Kid mr.nmkid@gmail.
>>>
>>> Coba ubah isi event change cbonama dengan :
>>> Dim r As Long
>>>
>>> If Cbonama.Text <> UCase$(Cbonama.
>>> Cbonama.Text = UCase$(Cbonama.
>>> Exit Sub
>>> End If
>>>
>>> Err.Clear
>>> On Error Resume Next
>>> r = Application.
>>> MemMaster.Resize(
>>> If Err.Number <> 0 Then
>>> Err.Clear
>>> On Error GoTo 0
>>> Exit Sub
>>> End If
>>> On Error GoTo 0
>>>
>>> lNoRec = r
>>> txtALAMAT.Value = MemMaster(r, 3)
>>> txtJURUSAN.Value = MemMaster(r, 4)
>>> txtTGLDAFTAR.
>>> txtTGLTES.Value = MemMaster(r, 6)
>>> txtPETUGASINPUT.
>>> txtTANGGALINPUT.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2012/12/29 Harry hariansyahptk@
>>>
>>> **
>>>
>>> Dear BeExceller,
>>> Pak Slamat,
>>>
>>> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
>>> Mohon dapat ditanggapi.
>>>
>>> Terima kasih & Wassalam,
>>>
>>>
>>> Harry
>>>
>>> ------------
>>> *Dari:* Slamet slametharto@
>>> *Kepada:* belajar-excel@
>>> *Dikirim:* Jumat, 28 Desember 2012 21:34
>>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>>
>>>
>>> Dear Pak Harry
>>>
>>> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan
>>> contoh tersebut be-exceller lain bisa membantu menjawab dgn melihat
>>> struktur datanya.
>>>
>>>
>>> Wassalam
>>>
>>>
>>> On 12/28/2012 3:01 PM, Harry wrote:
>>>
>>>
>>> Dear BeExceller,
>>>
>>> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya
>>> pengisian ComboBox dengan format isian lengkap baru kolom di bawahnya bisa
>>> muncul. Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom
>>> dibawahnya tidak muncul.
>>>
>>> Rumus yang saya gunakan selama ini adalah sbb:
>>>
>>> Private Sub UserForm_Initialize
>>> Dim I As Long, TbHeigh As Long, TbWidth
>>> Application.
>>> With Cbonama
>>> .ColumnCount = 2
>>> .BoundColumn = 1
>>> For I = 1 To TbHeigh
>>> .AddItem
>>> .List(I - 1, 0) = MemMaster(I, 2)
>>> Next I
>>> End With
>>> Application.
>>> End Sub
>>>
>>> Private Sub Cbonama_Change(
>>> Dim r As Integer
>>> If Cbonama.ListIndex > -1 Then
>>> r = Cbonama.ListIndex + 1
>>> If r > 0 Then
>>> txtalamat.Value = MemMaster(r, 2)
>>> txtkota.Value = MemMaster(r, 3)
>>> End If
>>> End If
>>> End Sub
>>>
>>>
>>> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
>>> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
>>> otomatis muncul isian "ALAMAT" & "KOTA"
>>>
>>> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
>>> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA"
>>> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>>>
>>> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>>>
>>> Terima kasih & Wassalam,
>>>
>>>
>>> Harry
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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