Seperti saran saya terdahulu pemakain combobox dari Controls Form , sebaiknya
di ganti dengan Controls ActiveX. Karena tampilan yang mengganggu, walaupun
sudah berada di sel lain , list dari item combobox tak menghilang di posisi
lamanya. Ada hal lain adalah Event Change biasanya menguras sumber daya
sehingga kinerja menurun . Sebaiknya gunakan user Form , sehingga data dan user
interface ( kegiatan Add , Edit , Delete ) terpisah. Jadi hindari penggunaan
event2 di worksheet.
To: belajar-excel@yahoogroups.com
From: jkss...@hotmail.com
Date: Mon, 30 Jan 2012 04:57:11 +0000
Subject: RE: [belajar-excel] ComboBox_Change
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
If Target.Row > 1 Then
' pada saat posisi kursor di kolom D
' agar nilai combobox1 sesuai dengan sel di kolom D
' tambahkan :
ComboBox1.Value = ActiveCell
' ======
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
ComboBox1.Visible = True
ComboBox1.DropDown
End If
End If
End If
End Sub
To: belajar-excel@yahoogroups.com
From: hendrikkarn...@yahoo.com
Date: Sun, 29 Jan 2012 19:14:56 -0800
Subject: [belajar-excel] ComboBox_Change
Perintah huruf tebal dalam MacroPrivate Sub ComboBox1_Change() If
ActiveSheet.Name = "DATA" And ActiveCell.Column = 4 Then ActiveCell =
ComboBox1.Value ComboBox1.Visible = False End IfEnd
Subbertujuan untuk mengisi ActiveCell secara otomatis dengan No Rek yang
dipilih pada ComboBox (ComboBox1.Value)
Namun dalam contoh file terlampir, jika kita ingin mengganti sel D3 dengan No
Rek "1111" yang sudah kita pakai sebelumnya (ComboBox1.Value = "1111") maka isi
sel D3 tetap tidak berubah (Event ComboBox1_Change tidak terjadi).
Pertanyaan saya :Bagaimana agar isi sel D3 tetap dapat diganti
dengan No Rek "1111" atau dengan kata lain ComboBox1_Change harus diganti
dengan ComboBox1_????
Salam,Hendrik Karnadi
