ComboBox (ActiveX Control) - BE-ORG | Forum Komunitas Excel Indonesia

5 tahun lalu

M.Ash Siddiq S.T.
9 Des 2018 Depok + 276 Poin

Para master excel
saya ingin bertanya
Ko saya memasukkan ComboBox (ActiveX Control) sering hilang mulu yaaaa
cumang kadang2 saja muncul
itu kenapa ya ?
Azumi
23 Des 2018 + 3.230 Poin

Setahu saya untuk penggunaan ComboBox (ActiveX Control) anda harus menyimpan atau Save file anda sebagai "Excel Macro-Enabled Workbook" dan otomatis ekstensi file anda berubah menjadi xlsxm, jika anda tidak merubahnya ke format makro maka akan menjadi xlsx, dan ComboBox tidak akan tersimpan.
B
Badawa
31 Jan 2019 Cilodong + 890 Poin
om-om master mo nanya terkait multipage (2 page) neh
ceritanya
terdapat 2 option button untuk pemilihan page 1 dan page 2
dengan isi page 1 dan 2 sama
- Jabatan (dibuat combo box)
- Lama bekerja (dibuat spin tahun dan bulan)
- status (dibuat combo box)
dengan koding dibawah
Cells(baris_kosong, 8).Value = ComboJabatan.Value
Cells(baris_kosong, 9).Value = TextTahunKerja.Value & " " & "Tahun" & " " & TextBulanKerja.Value & " " & "Bulan"
Cells(baris_kosong, 10).Value = ComboStatus.Value
Cells(baris_kosong, 8).Value = ComboJabatan2.Value
Cells(baris_kosong, 9).Value = TextTahunKerja2.Value & " " & "Tahun" & " " & TextBulanKerja2.Value & " " & "Bulan"
Cells(baris_kosong, 10).Value = ComboStatus2.Value
saat koding diatas dijalankan hanya ada hanya page 2 saja yang bisa keluar value-nya (ComboJabatan2, textTahunKerja2, TextBulanKerja2 dan ComboStatus2) sedangkan yang page 1 saat diisi tidak keluar hasilnya. tetapi saat combo dan text pada page 2 dijadikan komen (diberi ') bisa keluar isi value-nya
mohon bantuannya, saya newbie di VBA
Terima kasih

manweljs_

31 Jan 2019 Terverifikasi + 11.321 Poin

skrip tersebut hanya akan bekerja pada sheet yang aktif saja karena tidak ditentukan pada sheet mana nilai dari ComboBox dkk tersebut akan di letakan. coba edit menjadi :

...
With Sheet1
   .Cells(baris_kosong, 8).Value = ComboJabatan.Value
   .Cells(baris_kosong, 9).Value = TextTahunKerja.Value & " " & "Tahun" & " " & TextBulanKerja.Value & " " & "Bulan"
   .Cells(baris_kosong, 10).Value = ComboStatus.Value
End With
With Sheet2
   .Cells(baris_kosong, 8).Value = ComboJabatan2.Value
   .Cells(baris_kosong, 9).Value = TextTahunKerja2.Value & " " & "Tahun" & " " & TextBulanKerja2.Value & " " & "Bulan"
   .Cells(baris_kosong, 10).Value = ComboStatus2.Value
End With
...

note : sesuaikan Sheet1 & Sheet2 dengan nama Sheet yang actual atau sebaiknya dilampirkan aja contoh filenya

B
Badawa
31 Jan 2019 Cilodong + 890 Poin

Di sunting 5 tahun lalu oleh Badawa
@manweljs_ terima kasih untuk penjelasannya
untuk lengkapnya coba saya kirim filenya ya
Latihan User Form.xlsm

manweljs_

31 Jan 2019 Terverifikasi + 11.321 Poin

@Badawa untuk lengkapnya coba saya kirim filenya ya

di edit pada pemilihan optionnya :

...
If OptIN.Value = True Then
        Cells(baris_kosong, 6).Value = "INBOUND"
        Cells(baris_kosong, 8).Value = ComboJabatan.Value
        Cells(baris_kosong, 9).Value = TextTahunKerja.Value & " " & "Tahun" & " " & TextBulanKerja.Value & " " & "Bulan"
        Cells(baris_kosong, 10).Value = ComboStatus.Value
    Else
        Cells(baris_kosong, 6).Value = "OUTBOUND"
        Cells(baris_kosong, 8).Value = ComboJabatan2.Value
        Cells(baris_kosong, 9).Value = TextTahunKerja2.Value & " " & "Tahun" & " " & TextBulanKerja2.Value & " " & "Bulan"
        Cells(baris_kosong, 10).Value = ComboStatus2.Value
End If
...

M

manweljs_
31 Jan 2019 Terverifikasi + 11.321 Poin

@Badawa saat koding diatas dijalankan hanya ada hanya page 2 saja yang bisa keluar value-nya (ComboJabatan2, textTahunKerja2, TextBulanKerja2 dan ComboStatus2) sedangkan yang page 1 saat diisi tidak keluar hasilnya. tetapi saat combo dan text pada page 2 dijadikan komen (diberi ') bisa keluar isi value-nya
untuk pertanyaan ini
pada saat Option 1 dipilih dan data disimpan sebenarnya sudah terisi sesuai data yang dimaksudkan, NAMUN tertimpa lagi oleh text kosong (pada ComboBox2 dkk) yang harusnya milik Option 2.
B

Badawa
31 Jan 2019 Cilodong + 890 Poin

terima kasih master @manweljs_ atas penjelasanya
karena saat melihat dari tutorialnya para combo tersebut tidak di gabungkan ke IF optionnya, sehingga saya hanya melanjutkan untuk menuliskannya kebawah untuk isian option ke-2.
jadi apakah kesimpulannya
jika kita menggunakan multipage untuk pemilihan option dengan IF, turuan nya digabungkan dengan IF untuk option tersebut?
M

manweljs_
31 Jan 2019 Terverifikasi + 11.321 Poin

@Badawa ...jadi apakah kesimpulannya
jika kita menggunakan multipage untuk pemilihan option dengan IF, turuan nya digabungkan dengan IF untuk option tersebut?...
± seperti itu :)
B

Badawa
31 Jan 2019 Cilodong + 890 Poin

satu lagi master
jika kita ingin menambahkan border setiap penambahan data baru gimana caranya ya (dengan file sama)
jika dengan kondisi awal hanya ada header/kepala kolom saja
karena di file diatas saya sudah membuat border manual.
M
manweljs_
31 Jan 2019 Terverifikasi + 11.321 Poin
@Badawa jika kita ingin menambahkan border setiap penambahan data baru gimana caranya ya
tambahkan aja (misalnya diatas Clear_data) :
```
...
    Range("A" & baris_kosong & ":J" & baris_kosong).Borders.LineStyle = xlContinuous
...
```
B

Badawa
31 Jan 2019 Cilodong + 890 Poin

@manweljs_
master, untuk cell dalam sheet database tsb cara untuk protect nya seperti apa ya?
agar tidak bisa di isi manual.
kemudian jika sudah di protek untuk menonaktifkannnya kembali bagaimana?
contoh nya jika masih ingin meng-edit kembali untuk template-nya atau delete data hasil input data (tes input data)
dan cara protek untuk koding nya bagaimana
terima kasih

manweljs_

31 Jan 2019 Terverifikasi + 11.321 Poin

@Badawa

gunakan aja :

Sheet1.Unprotect 'untuk unprotek
Sheet1.Protect 'untuk memprotek

kalau mau pakai password :

Sheet1.Unprotect "123" '123 adalah paswordnya
Sheet1.Protect "123"

B

Badawa
1 Peb 2019 Cilodong + 890 Poin

Di sunting 5 tahun lalu oleh Badawa

@manweljs_
terima kasih buat penjelasannya master
next boleh tanya - tanya lagi kan
btw
untuk
Sheet1.Protect "123"
ini di ketik di sub mana?
atau buat sub baru?
M
manweljs_
1 Peb 2019 Terverifikasi + 11.321 Poin
@Badawa ...ini di ketik di sub mana?...
di sub yang berinteraksi langsung dengan worksheet nya.
misalnya :
```
Private Sub CmdButton_AddNew_Click()
Sheet1.unprotect "123"

'... baris kode ...

Sheet1.protect "123"
End Sub
```
jadi ketika tombol simpan tersebut di klik maka excel akan otomatis melakukan unprotek terlebih dahulu
setelah semua baris kode dijalankan kemudian excel memproteknya kembali
B

Badawa
1 Peb 2019 Cilodong + 890 Poin

@manweljs_
terima kasih master atas pejelasannya

· manweljs_ menyukai ini.