ComboBox (ActiveX Control)

  1. 4 bulan yang lalu

    Para master excel
    saya ingin bertanya
    Ko saya memasukkan ComboBox (ActiveX Control) sering hilang mulu yaaaa
    cumang kadang2 saja muncul

    itu kenapa ya ?

  2. 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.

  3. 3 bulan yang lalu

    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

  4. manweljs_

    Jan 31 Terverifikasi + 8.006 Poin

    @Badawa

    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

  5. Di sunting 3 bulan yang lalu oleh Badawa

    @manweljs_ terima kasih untuk penjelasannya
    untuk lengkapnya coba saya kirim filenya ya

  6. manweljs_

    Jan 31 Terverifikasi + 8.006 Poin

    @Badawa untuk lengkapnya coba saya kirim filenya ya

    oh

    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
    ...

  7. manweljs_

    Jan 31 Terverifikasi + 8.006 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.

  8. 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?

  9. manweljs_

    Jan 31 Terverifikasi + 8.006 Poin

    @Badawa ...jadi apakah kesimpulannya
    jika kita menggunakan multipage untuk pemilihan option dengan IF, turuan nya digabungkan dengan IF untuk option tersebut?...

    ± seperti itu :)

  10. 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.

  11. manweljs_

    Jan 31 Terverifikasi + 8.006 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
    ...

  12. @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

  13. manweljs_

    Jan 31 Terverifikasi + 8.006 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"

  14. Di sunting 3 bulan yang 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?

  15. manweljs_

    Peb 1 Terverifikasi + 8.006 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

  16. @manweljs_
    terima kasih master atas pejelasannya

 

atau Mendaftar untuk ikut berdiskusi!