• Menggunakan Paremeter GoTo Untuk Melompat ke Kode Marco Lainnya

    statement GoTo Konsep sederhana dari apa yang akan kita pelajari bersama untuk edisi Macro VBA kali ini adalah, menjalankan baris kode dengan cara melewati serangkaian baris kode yang "tidak terpakai" dan mengakhiri atau menghentikannya setelah kode macro yang dimaksud dieksekusi. Hal ini cukup efektif dilakukan jika terdapat beberapa kode yang ingin dijalankan dalam satu module atau prosedur.

    Umumnya, parameter GoTo selalu disandingkan dengan parameter Logika IF yang berfungsi dalam mendeteksi suatu kondisi tertentu.

    Contoh skenario sederhana yang akan kita coba ujikan dalam memahami konsep GoTo adalah sebagai berikut:
    Jika Angka 10 dibagi angka yang berada di sel A1 menghasilkan nilai lebih kecil dari 5 maka Kode Macro yang akan dijalankan adalah perintah Satu, sementara jika hasil pembagian tersebut lebih besar dari 5 maka akan menjalankan Kode Macro Dua. Akan tetapi jika ternyata sel A1 tidak memuat nilai apapun atau kosong, dan atau hasil pembagian Error - maka perintah dengan nama variabel Tiga yang akan dijalankan

    Oke, dalam skenario di atas terdapat 3 (tiga) buah Statement yang akan dijalankan ketika kondisi terpenuhi, antara lain:
    Satu : Dijalankan ketika hasil pembagian lebih kecil dari 5
    Dua : Dijalankan ketika hasilnya adalah lebih besar dari 5
    Tiga : Dijalankan jika terjadi error atau sel A1 kosong
    dan, satu lagi statement yang harus ditulis yakni :
    Akhir : Bertugas untuk mengakhiri rangkaian parameter GoTo

    Dari ke-empat statement tersebut, maka ketika kita merangkainya dalam sebuah module VBA akan tampak kurang lebih seperti ini
    Sub CekGoTo()
    On Error GoTo Tiga
    isi = [a1]
    If 5 / isi < 5 Then
        GoTo Satu
        Else
        GoTo Dua
    End If
    
    Satu:
    MsgBox "nilai lebih kecil dari 5"
    GoTo Akhir
    
    Dua:
    MsgBox "nilai lebih besar dari 5 " 
    GoTo Akhir
    
    Tiga:
    MsgBox "error atau kosong"
    GoTo Akhir
    
    Akhir:
    End Sub
    Selanjutnya tutup jendela Microsoft Visual Basic Editor atau bisa dilakukan dengan menekan tombol pintas Alt+Q untuk langsung menuju ke lembar kerja Microsoft Excel. Di dalam lembar kerja yang sedang aktif, tambahkan sebuah Form Control berupa Button yang bisa anda akses dari Tab Menu Developer di bagian Insert - kemudian pilih kode yang akan dijalankan, untuk contoh kasus ini kode Macro adalah CekGoTo
    Insert Button on Sheet

    Tujuan dari dibuatnya Button adalah sekedar untuk memudahkan dalam mengecek hasil yang didapatkan, sehingga tidak harus bolak-balik membuka antar jendela aplikasi Excel dangan jendela aplikasi Visual Basic Editor. Dan hasil akhir dari apa yang kita kerjakan sesuai dengan panduan di atas akan tampak dalam ilustrasi berikut ini:
    Menggunakan parameter GoTo

    Selesai...
    Semoga panduan dalam menggunakan parameter GoTo ini cukup mudah untuk dipahami. Untuk hasil lain dari pengaplikasian parameter GoTo dibahas di dalam tutorial ini, silahkan anda cek dan pahami.
    Akhir kata, semoga kehadiran excelive bisa memberikan wawasan baru dalam mengolah angka serta dalam mengoperasikan Microsoft Excel khususnya dalam merancang kode Macro VBA. Gracias por visitar

    Tutorial ini memuat Macro VBA, jadi pastikan hasil akhir dari tutorial ini disimpan menggunakan format Excel Macro-Enable Workbook
    .xlsm
    atau Excel Binary Workbook
    .xlsb

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