Cara membuat button untuk show dataform standard excel

  1. 3 minggu lalu

    Selamat Siang Para Pakar Excel,

    Mohon bantuanya saya mau membuat button link untuk menampilkan standard form yang ada di excel tetapi tidak gagal, saya menggunakannya dengan record macro karena tidak bisa bahasa VBA excel..
    File terlampir, mohon pencerahannya dari para pakar excel disini.

    Terimakasih,

    intinya adalah range yang berisi data yang ingin ditampilkan di Form harus di buat nama range menjadi database, bisa manual di buat melalui Name Box atau lewat Define Name atau kalau mau pakai VBA ya pakai itu currentregion.name="database".

    Atau pilihan keduanya, Datanya di letakkan di sel A1 s.d B2 dst.

  2. saya menggunakan coding ini dari record macro tapi gak bisa ya :
    Sub Macro7()
    '
    ' Macro7 Macro
    '

    '
    ActiveSheet.ShowDataForm
    End Sub

    ada yang salah kah di kodingnya?
    Mohon pencerahannya ya..

  3. Masdad

    Jan 4 Terverifikasi Demak + 2.162 Poin

    Gak ada yang salah dengan kodingnya hanya gak berfungsi saja, untuk penggunaan Form bawaan ini ada ketentuan tersendiri jika panggil menggunakan VBA:

    1. Form akan mencari range data yg bernama "database".
    2. Memeriksa isi sel A1:B2

    Jika range bernama database tidak ditemukan atau sel A1:B2 isinya ternyata kosong, maka vba akan menampilkan pesan:

    Run-time error '1004'
    ShowDataForm method of Worksheet class failed

    solusinya kodingnya bisa di ubah jadi seperti ini:

    Sub BukaForm()
    Range("D5").CurrentRegion.Name = "database"
    ActiveSheet.ShowDataForm
    End Sub

  4. Terimakasih tambahan ilmunya mas @Masdad , berarti kalau mau pake form bawaan harus ditentukan range-nya dan menggunakan currentregion.name="database" ya mas..

  5. Masdad

    Jan 4 Terverifikasi Jawaban Terpilih Demak + 2.162 Poin

    intinya adalah range yang berisi data yang ingin ditampilkan di Form harus di buat nama range menjadi database, bisa manual di buat melalui Name Box atau lewat Define Name atau kalau mau pakai VBA ya pakai itu currentregion.name="database".

    Atau pilihan keduanya, Datanya di letakkan di sel A1 s.d B2 dst.

  6. Siappp... terimakasih banyak atas pencerahannya..

  7. Mas @Masdad mohon maaf bertanya lagi, kalau sheetnya saya protect tombolnya jadi gak berfungsi kenapa ya, saya merubah codingnya jadi ;

    Sub BukaForm()
    With Range("D5").CurrentRegion.Name = "database"
    EnableOutlining = True
    .Protect Password:="123", _
    UserInterfaceOnly:=True
    End With
    ActiveSheet.ShowDataForm
    End Sub

    errornya di bagian yang saya bold.
    apa salah di codingnyakah?

  8. Maaf sudah solved.. ternyata pake kaya gini bisa..
    Sub BukaForm()
    Sheet13.Unprotect "123"
    Range("D5").CurrentRegion.Name = "database"
    Sheet13.Protect "123"
    ActiveSheet.ShowDataForm
    End Sub

  9. 2 minggu lalu

    Masdad

    Jan 8 Terverifikasi Demak + 2.162 Poin
    Di sunting 2 minggu lalu oleh Masdad

    Saya jelaskan dulu, yang pertama ketika worksheet di protect, maka kita tidak bisa menggunakan Form bawaan Excel, memang bisa menampilkan Formnya tapi tidak akan bisa menambah atau menghapus isi datanya.

    kedua, untuk method Protect ini letaknya di bawah object Worksheet, jadi secara penempatan kodenya salah.

    Sub BukaForm()
    With Range("D5").CurrentRegion.Name = "database"
            EnableOutlining = True
            .Protect Password:="123", _
            UserInterfaceOnly:=True
        End With
    ActiveSheet.ShowDataForm
    End Sub

    Untuk bisa menggunakan Formnya maka Worksheetnya harus di unprotect dulu, penulisan kodenya harusnya seperti ini:

    Sub BukaForm()
    Sheet13.Unprotect "123" 'Membuka Kunci Worksheet
    Range("D5").CurrentRegion.Name = "database" 'Menamai Range
    ActiveSheet.ShowDataForm 'Membuka Form
    Sheet13.Protect "123" 'Mengunci Worksheet
    End Sub

  10. Di sunting 2 minggu lalu oleh Nugros

    siappp Mas, tambah diperjelas lagi pengunaannya..

    Terimakasih banyak..

 

atau Mendaftar untuk ikut berdiskusi!