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 <[email protected]>
> 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 <[email protected]>
>
>> **
>>
>>
>> Dear BeExceller,
>> Pak Slamat,
>>
>> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
>> Mohon dapat ditanggapi.
>>
>> Terima kasih & Wassalam,
>>
>>
>> Harry
>>
>> ------------------------------
>> *Dari:* Slamet <[email protected]>
>> *Kepada:* [email protected]
>> *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
>>
>>
>>
>
