satu Link Ribbon bisa untuk ke banyak sheet

  1. ‹ Older
  2. minggu lalu

    Khan gak ada masalah jika disisipkan script yang saya contohkan

    iya mas @Caton ternyata saya salah menempatkan yg di workbook,saya tempatkan di before close :)

    Sebaiknya, kelompokkan setiap prosedur pada modul standard yang digunakan sesuai kegunaannya

    Siap mas...
    ada pertanyaan tambahan mas

    1. bisa tidak link ribbon yg ke userform contohnya file terlampir dimana petunjuk saya ingin tempatkan di userform yg dilengkapi tombol kembali
    2. di file ini ketika setelah login saya ingin langsung ke sheet1 (sekolah) di workbook sudah saya tempatkan script VBA

      Private Sub Workbook_Open()

    Application.ScreenUpdating = False
    Application.Visible = False
    Percobaanku Sheet1.Name
    UserForm1.Show
    End Sub

    tapi tidak jalan ketika disisipkan script VBA

    If IsNumeric(Sheet1.[E20]) Then
    If Val(Sheet1.[E20]) < 4 Then
    Sheet8.Visible = xlSheetVisible
    Sheet8.Activate
    ElseIf Val(Sheet1.[E20]) < 7 Then
    Sheet18.Visible = xlSheetVisible
    Sheet18.Activate
    Else
    Sheet19.Visible = xlSheetVisible
    Sheet19.Activate
    End If
    Call AturIndeksKelas(Sheet1.[E20])
    End If

    yg dari mas @Caton tadi..
    mohon petunjuknya mas

  3. sekiranya pertanyaan no. 1 tidak bisa tidak apa2 mas biar nanti saya buat sheet baru saja cuma pertanyaan no. 2 klo bisa mohon solusinya mas

  4. Caton

    Sep 14 Terverifikasi Indonesia + 11.463 Poin

    @farud ... bisa tidak link ribbon yg ke userform contohnya file terlampir dimana petunjuk saya ingin tempatkan di userform yg dilengkapi tombol kembali ...

    Saya tidak paham dengan apa yang mas tanyakan. Maksudnya bagaimana ...?

    @farud ... di file ini ketika setelah login saya ingin langsung ke sheet1 (sekolah) di workbook sudah saya tempatkan script VBA ...

    Sebelumnya, pada file yang saya lampirkan, saya meletakkan script untuk menampilkan form login dibaris paling bawah, bukankah begitu?! Script yang saya susun tersebut sengaja saya letakkan disitu agar baris script berikut tereksekusi:

    ...
    Call AturIndeksKelas(Sheet1.[E20])
    ...

    Jika tidak, maka ketika menu Rapor Siswa diklik, tidak akan terjadi apa-apa dikarenakan nilai indeks kelasnya masih 0 (nol). Kemudian untuk mengaktifkan sheet SEKOLAH, khan bisa dilakukan pada form login sekalian saat login berhasil:

    ...
    '+-- Blok script jika NSM ditemukan!
    MsgBox "Anda berhasil login! NSM anda terdaftar di nomer #" & lIndex, vbInformation Or vbOKOnly
    '+-- Aktifkan sheet Sekolah!
    Sheet1.Select
    Sheet1.Visible = xlSheetVisible
    '+-- Simpan login NSM ke sel E6 sheet SEKOLAH!
    Sheet1.[A1] = Trim$(TextBox1)
    Application.Visible = True
    Unload Me
    ...

    atau bisa diletakkan dimana saja asal paham kapan akan dieksekusi. Script ini saja:

    ...
    Sheet1.Select
    ...

    yang digunakan. Asal properti Visible-nya sudah diatur agar sheet tersebut dapat terlihat.

    Demikian.

  5. untuk script ini

    MsgBox "Anda berhasil login! NSM anda terdaftar di nomer #" & lIndex, vbInformation Or vbOKOnly
    '+-- Aktifkan sheet Sekolah!
    Sheet1.Select
    Sheet1.Visible = xlSheetVisible
    '+-- Simpan login NSM ke sel E6 sheet SEKOLAH!
    Sheet1.[A1] = Trim$(TextBox1)
    Application.Visible = True
    Unload Me

    kok tetap tidak bisa jalan ya mas..padahal sudah saya tempatkan tepat sesuai dengan arahan mas @Caton apa saya salah menerapkannya.mohon solusinya mas

  6. Caton

    Sep 14 Terverifikasi Indonesia + 11.463 Poin
    Di sunting minggu lalu oleh Caton

    @farud ... apa saya salah menerapkannya ...

    Nah, kalau itu saya tidak tahu mas @Farud ... :) Atau saya remote saja sebentar, sms no id dan pass-nya, WA saya lagi macet ...

  7. siap mas

  8. terimakasih banyak mas @Caton dan maaf sudah merepotkan mas @Caton yang sebenarnya masih ada pekerjaan tapi masih disempatkan untuk membantu saya.sekali lagi terimakasih banyak mas

  9. Caton

    Sep 14 Terverifikasi Indonesia + 11.463 Poin

    @farud ... terimakasih banyak mas @Caton dan maaf sudah merepotkan mas @Caton yang sebenarnya masih ada pekerjaan tapi masih disempatkan untuk membantu saya ...

    Sama-sama mas. Santai saja, sesekali saya juga harus break bukan ... :)

  10. 4 hari yang lalu
    Di sunting 4 hari yang lalu oleh farud

    maaf mas @Caton..
    dengan rumus dan script yg diberikan mas @Caton link ribbon bisa jalan ke file ( coba ribbon A )
    namun ketika saya coba ke file yg sudah lengkap (coba) tidak berhasil..mohon solusinya mas

  11. Caton

    Sep 18 Terverifikasi Indonesia + 11.463 Poin

    @farud ... dengan rumus dan script yg diberikan mas @Caton link ribbon bisa jalan ke file ( coba ribbon A ) namun ketika saya coba ke file yg sudah lengkap (coba) tidak berhasil ...

    Indeks kelasnya harus ditetapkan dahulu, agar ketika tombol Rapor Siswa diklik, sheet rapor yang ditampilkan sesuai atau tepat. Coba bandingkan kedua file, pada prosedur Sub Worksheet_Change, dibagian baris terakhirnya, bukankah pada file COBA RIBBON A ada baris:

    ...
    If Not Intersect(Target, [E20]) Is Nothing Then
        '+-- Ini buat ngatur indeks kelas.
        Call AturIndeksKelas([E20])
    End If
    ...

    Teliti kembali perbedaan kedua file. Terlampir revisinya.

  12. aduucchh...lagi2 saya sampaikan terimakasih buat mas @Caton.. aplikasi saya ini benar2 citarasa mas @Caton banget...terimakasih mas tanpa bantuan mas aplikasi ini tidak mungkin bisa jadi. saya cuma bisa doakan mas @Caton semoga mas panjang umur dan diberikan kesehatan slalu..Aamiinn

  13. Caton

    Sep 18 Terverifikasi Indonesia + 11.463 Poin
    Di sunting 4 hari yang lalu oleh Caton

    @farud ... saya sampaikan terimakasih buat mas @Caton ...

    Sama-sama mas @Farud.

    @farud ... aplikasi saya ini benar2 citarasa mas @Caton banget ...

    Gak lah ... Itu tetap citarasa mas @Farud. Kalau citarasa saya, pasti beda tampilannya ... :)

    @farud ... semoga mas panjang umur dan diberikan kesehatan slalu ... Aamiinn ...

    Allahumma Aamiin. Semoga mas @Farud juga diberikan umur panjang dan selalu sehat. Aamiin.

  14. Gak lah ... Itu tetap citarasa mas @Farud

    tapi semua script2 VBA-nya semua dari mas @Caton

    Kalau citarasa saya, pasti beda tampilannya ... :)

    maksudnya tampilan yg dimananya mas.. klo boleh tau tampilan citarasanya mas @Caton gimana =) =)

  15. Caton

    Sep 18 Terverifikasi Indonesia + 11.463 Poin

    @farud ... maksudnya tampilan yg dimananya mas.. klo boleh tau tampilan citarasanya mas @Caton ...

    Saya belum bikin apa-apa mas @Farud ... Jadi gak ada yang bisa saya tampilkan ... :D

  16. Mas Caton merendah terus..takut dicontek ya mas hehehe

  17. Caton

    Sep 18 Terverifikasi Indonesia + 11.463 Poin

    @farud ... mas Caton merendah terus .... takut dicontek ya mas ...

    Ada-ada saja ... :D Kalau memang tidak ada yang saya buat, mau bagaimana lagi .... (^_^)/ Pengen juga mencoba membuat seperti yang mas @Farud bikin. Namun karena saya tidak paham dengan masalah sekolah dan hal-hal terkait, jadi saya urungkan saja.

    Saran saja, sebaiknya gunakan fasilitas Diskusi Pribadi agar apa yang dikerjakan tidak menjadi konsumsi publik. Apa saja yang dipublish secara umum di forum, secara tidak langsung sudah menjadi milik umum — Jadi, ya jangan heran kalau nanti ada aplikasi serupa dengan punya mas @Farud muncul di sini ... :D

  18. Saran saja, sebaiknya gunakan fasilitas Diskusi Pribadi agar apa yang dikerjakan tidak menjadi konsumsi publik

    iya mas sarannya jadi masukan buat saya selanjutnya

  19. 3 jam yang lalu
    Di sunting 2 jam yang lalu oleh farud

    mau tanya masalah ribbon mas @Caton... saya menggunakan kode berikut di customui

    <command enabled="false" idMso="FileSaveAs"/>
    <command enabled="false" idMso="FileSaveAsExcelXlsx"/>
    <command enabled="false" idMso="FileSaveAsExcelXlsxMacro"/>
    <command enabled="false" idMso="FileSaveAsExcelXlsb"/>

    ada tidak mas kode yg menyembunyikan seperti gambar berikut di bagian paling kiri yg dilingkari merah
    atas jawabannya saya sampaikan terimakasih

  20. 2 jam yang lalu

    Caton

    2 jam yang lalu Terverifikasi Indonesia + 11.463 Poin

    @farud ... ada tidak mas kode yg menyembunyikan seperti gambar ...

    Maaf, untuk Excel 2007, saya tidak tahu — sepertinya tidak ada. Kalau Excel 2010~, bisa menggunakan elemen <backstage>.

    Demikian.

  21. iya gak apa2 mas @Caton itu hanya buat pelengkap saja sebenarnya...

 

atau Mendaftar untuk ikut berdiskusi!