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: [email protected]
From: [email protected]
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
