• Cara membuat tombol agar memiliki beberapa nama dan fungsi berbeda

    different button Bagian ini lebih cocok untuk pengguna pemula yang baru mempelajari Macro VBA excel, di mana anda akan mempelajari teknik dasar penggunaan statement IF yang sangat powerfull. Salah satunya adalah dapat digunakan untuk mengganti nama dari sebuah tombol (baca:CommandButton) dengan nama properti serta kemampuannya untuk menerima perintah yang berbeda. Dengan demikian maka anda tidak perlu buang-buang waktu untuk membuat tombol lain, karena trik ini bisa menjawabnya.

    Kode yang digunakan pun sangatlah sederhana namun cukup efektif untuk menghasilkan beberapa perintah yang berbeda. Silahkan lihat hasil tutorial yang akan kita kerjakan berikut ini
    membuat tombol memiliki beberapa fungsi


    Dari tampilan tersebut, saya hanya cukup membuat satu buah CommandButton untuk dapat menuliskan sebuah nilai di sel yang berbeda.

    Sebelum melanjutkan tutorial ini, saya sarankan anda untuk membaca tutorial terkait berikut
    Cara Mudah Mencari Lokasi Baris atau Kolom Dari Beberapa kumpulan Nilai
    Melihat Dan Menemukan Posisi Sel Terakhir Berdasarkan Kolom Atau Baris

    Jika anda sudah membaca tutorial terkait di atas, silahkan ikuti langkah berikut ini untuk memulai membuat tutorial seperti tampilan yang sudah saya buat sebelumnya.
    1. Sebagai langkah awal, silahkan buat sebuah tombol ActiveX yang bisa anda buat dari menu Developer (jika menu ini belum tersedia silahkan anda aktifkan dulu ya!)
    2. Kemudian silahkan anda pilih sub menu Control dan pilih icon Insert. Selanjutnya klik tombol CommandButton pada bagian ActiveX dan mulailah menggambarnya di lembar kerja
      Tombol ActiveX
    3. Klik ganda tombol yang sudah anda buat ini untuk langsung menuju jendela kode Microsoft Visual Basic Editor
    4. Lanjutkan dengan menuliskan baris perintah berikut
      If CommandButton1.Caption = "CommandButton1" Then
          CommandButton1.Caption = "Dua"
          a = Cells(Rows.Count, 1).End(xlUp).Row
          Cells(a + 1, 1) = a
          
          ElseIf CommandButton1.Caption = "Dua" Then
          CommandButton1.Caption = "Tiga"
          b = Cells(Rows.Count, 2).End(xlUp).Row
          Cells(b + 1, 2) = "B" & b
          
          Else
          CommandButton1.Caption = "CommandButton1"
          c = Cells(Rows.Count, 3).End(xlUp).Row
          Cells(c + 1, 3) = "C" & c
      End If
      Beberapa parameter penting dari kode di atas antara lain :
      • CommandButton1 adalah nama default dari tombol yang digunakan sebagai sumber awal pembacaan kode.
      • Parameter a, b, dan c berfungsi untuk melihat posisi baris terakhir
    5. Akhiri dengan menutup jendela Microsoft Visual Basic Editor dengan cara mentekan tombol X yang terdapat di pojok kanan atas layar, atau bisa juga menggunakan tombol pintas Alt+Q untuk kembali ke jendela Microsoft Excel.
      Pastikan juga icon Design Mode pada menu Developer sudah dalam posisi OFF
    Jika anda mengikuti tutorial ini secara seksama, maka hasil akan anda dapatkan seperti tampilan ini.

    Semoga tutorial yang cukup singkat tentang membuat tombol agar memiliki beberapa nama dan perintah yang berbeda-beda bermanfaat untuk anda. Dan jangan lupa bookmark situs ini untuk memudahkan anda mengunjungi kami lain waktu.
    Terimakasih sudah meluangkan waktu anda untuk membaca tutorial excel ini. Danke


    Terimakasih sudah membaca
    Tutorial: Cara membuat tombol agar memiliki beberapa nama dan fungsi berbeda
    Labels: - Author: excelive

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger