Tampilkan postingan dengan label Beginner. Tampilkan semua postingan
Tampilkan postingan dengan label Beginner. Tampilkan semua postingan

Mencari dan Memberikan Warna Interior Pada Kata yang Terpilih

warna interior sel

Tutorial ini merupakan gabungan dari tutorial-tutorial sebelumnya dan salah satunya adalah yang membahas tentang cara menggunakan paremeter .FIND dalam kode Macro VBA dan menambahkan baris kode baru yang berfungsi untuk memberikan warna interior pada hasil pencarian yang ditemukan. Jadi, ada baiknya anda memahami isi materi dari tutorial sebelumnya.



Loading...

Setidaknya ada 2 (dua) macam warna interior yang akan kita gunakan dalam tutorial kali ini, yakni warna background sel (interior) dan warna font. Kedua warna inilah yang nantinya akan kita kombinasikan dengan hasil pencarian. Dan sebelum memulai tutorialnya, saya akan berikan dulu kode penulisan beberapa warna standar (baca:konstan) yang digunakan dalam Macro VBA yang sangat mudah untuk diingat, yakni
vbWhite vbYellow vbCyan vbRed vbMagenta vbGreen vbBlue vbBlack

Kembali ke topik pembahasan.
Seperti biasa kita buat terlebih dahulu beberapa data di dalam lembar kerja Microsoft Excel yang diletakkan di sepanjang kolom A, yang mana nantinya akan kita berikan warna background sel maupun fontnya ketika berhasil ditemukan dengan bantuan kotak input.
Isi Lembar Kerja

Sekarang, saatnya kita mulai bekerja.
  1. Langkah pertama yang bisa anda lakukan setelah membuat data sederhana adalah dengan membuat sebuah objek Macro VBA berupa CommandButton yang diletakkan dalam lembar kerja yang digunakan untuk menampilkan jendela InputBox.
    CommandButton dalam lembar kerja
  2. Langkah selanjutnya adalah, klik 2x objek objek CommandButton yang telah dibuat pada langkah sebelumnya untuk langsung menuju jendela Microsoft Visual BAsic Editor. Namun sebelumnya, pastikan dulu bahwa objek Design Mode masih dalam posisi aktif
  3. Di dalam jendela kode yang berhasil dibuka, anda akan dihadapkan dengan beberapa baris perintah yang dimiliki oleh objek CommandButton yang didalamnya masih kosong
    empty code
  4. Sekarang isikan dalam baris kosong tadi dengan kode Macro VBA berikut
    On Error GoTo x
    Range("A1", Range("A" & Rows.Count).End(xlUp)).Font.Color = None
    Range("A1", Range("A" & Rows.Count).End(xlUp)).Interior.Color = xlNone
    Cari = Application.InputBox("Silahkan masukkan kata kunci yang ingin cari", ".find")
    
    If Cari <> False Then
      Set a = Range("A:A").Find(Cari, LookAt:=xlValue)
      Range(a.Address).Font.Color = vbWhite
      Range(a.Address).Interior.Color = vbRed
      MsgBox "Kata yang anda cari ada di sel " & vbCr & a.Address(False, False)
    End If
    
    Exit Sub
    x:MsgBox "Maaf. tidak ada hasil pencarian yang bisa ditampilkan"
    
    Penjelasan sederhana dari kode di atas adalah
    • Kode diawali dengan sebuah pernyataan error, yang mana ketika terjadi error (data tidak ditemukan) maka kode akan langsung lompat ke perintah x
    • Dua baris kode berikutnya adalah untuk mengembalikan warna font dan warna background sel ke warna asal.
      yang perlu diperhatikan adalah, ada perbedaan kode untuk warna default antara keduanya, yakni untuk font menggunakan perintah None, sementara untuk background sel menggunakan xlNone. Dan perintah untuk mengembalikan warna default tersebut hanya diberlakukan di sepanjang kolom A
    • Setelah warna dikembalikan ke bentuk asalnya, perintah selanjutnya yang akan dijalankan ada pada baris kode yang ditentukan oleh nilai Cari, yakni sebuah kode yang berfungsi untuk menampilkan jendela InputBox
    • Baris inti untuk memberikan warna pada sel terpilih diawali dengan statemen IF, yakni jika nilai Cari benar atau ketika pengguna menekan tombol OK, maka kode berikutnya akan dijalankan
    • Di dalam statemen IF, isi baris kode dimulai dengan menentukan terlebih dahulu nilai a yang berfungsi mencari nilai yang dimasukkan dari jendela InputBox di sepanjang kolom A. Kemudian di lanjutkan dengan mewarnai :
      - Font dengan warna putih
      - Background Sel dengan warna merah
      Selanjutnya memberikan infomasi kepada pengguna berupa kotak pesan yang berisi bahwa kata yang dicari terdapat pada sebuah sel
  5. Langkah terakhir yang harus dilakukan tentunya adalah langsung mengujinya dengan cara klik tombol CommandButton yang ada di dalam lembar kerja

Sekarang anda sudah berhasil mengetahui bagaimana caranya memberi warna interior pada sebuah sel atau sebuah teks yang berhasil ditemukan dari jendela InputBox. Semoga tutorial ini bisa memberikan manfaat kepada anda.
Terimakasih sudah berkunjung dan jangan lupa silahkan bookmark situs ini untuk mengetahui tutorial dan kehebatan Microsoft Excel lainnya. We'll be right back soon

Loading...



Dua Cara Menampilkan Isi Dari Listbox Ke Dalam Kotak Pesan

dua cara

Salah satu objek Macro VBA yang sering digunakan para pengembang aplikasi berbasis Microsoft Excel adalah ListBox, bahkan boleh dikatakan bahwa objek yang satu ini pasti ada dalam setiap aplikasi. Ya, objek ini memiliki fungsi utama untuk menampilkan serangkaian nilai yang disajikan dalam sebuah daftar berbentuk kotak (List: daftar, Box: Kotak), yang mana pengguna dapat memilih isi dalam daftar tersebut dengan mudah.

Beberapa metode atau cara dalam mengisi daftar ListBox pun bervariatif, tergantung dengan kebutuhan si pengembang aplikasi. Silahkan anda cek beberapa link berikut untuk mempelajari beberapa cara dalam mengisinya :
  Berbagai cara dalam mengisi daftar di ListBox
  Mengisi ListBox dengan data-data yang sesuai dengan kriteria
  Mengisi ListBox hanya dengan nilai unik saja
atau bisa juga anda lihat daftar postingan yang berhubungan dengan ListBox berikut ini
  Label ListBox



Loading...

Dari beberapa link (posting) yang saya paparkan di atas dapat diambil kesimpulan bahwasanya Excel memberi kita keleluasaan dalam mengolah data untuk menampilkan informasi yang kita inginkan yang tentunya dapat disesuaikan dengan kebutuhan.

Beda cara mengisi daftar di dalam kotak ListBox, beda pula cara atau penulisan kode dalam menampilkan isinya. Dan dalam postingan kali ini, saya akan memberikan kepada anda 2 (dua) buah kode Macro VBA yang dapat anda gunakan untuk menampilkan isi sebuah nilai dalam ListBox ketika ia di klik (dipilih).

Ya, even yang akan kita gunakan untuk menampilkan isi dari salah satu daftar ListBox adalah dengan menggunakan even klik (Click), yakni sebuah even yang akan dijadikan sebagi pemicu untuk menjalankan kode Macro VBA ketika pengguna melakukan klik terhadap ListBox. Dan berikut ini adalah hasil akhir dari tutorial kita kali ini :
ListBox Excelive

Ok. sekarang mari kita mulai tutorial kali ini dengan mengawalinya dengan berdoa, mudah-mudahan apa yang akan kita lakukan ada guna dan manfaatnya.:). Untuk langkah selanjutnya, silahkan ikuti tahap demi tahap berikut ini :
  1. Buatlah sebuah data sederhana mulai dari sel A1 hingga A7 (untuk memudahkan dalam belajar tutorial ini, bisa juga anda isikan data-data di sel tersebut seperti tampilan hasil akhir di atas).
  2. Tekan tombol pintas (Shortcut) ALT + F11 untuk menuju jendela Microsoft Visual Basic Editor (VBE), dan mulailah menambahkan sebuah UserForm dan dilanjutkan dengan meletakkan objek ListBox ke dalamnya.
    Design ListBox
  3. Masih di jendela VBE, klik kanan objek UserForm yang ada di jendela VBAProject dan pilih menu View Code dari menu pop-up yang muncul. Hal ini bertujuan untuk mengganti tampilan objek (design) VBA dengan jendela kode VBA.
    Klik kanan objek VBA
  4. Anda akan dihadapkan dengan sebuah lembar kerja warna putih dan masih bersih karena belum di isi kode-kode atau baris perintah apapun. Di dalam jendela ini, mulailah memilih objek UserForm dan Prosedur Activate dari kotak DropDown masing-masing.
    Prosedur userform aktif
  5. Ok. sekarang kita akan menuliskan baris kode yang sangat sederhana untuk menampilkan data-data yang sebelumnya kita tuliskan dalam kerja untuk ditampilkan dalam kotak ListBox yang terdapat dalam UserForm. Kode-kode ini akan langsung di eksekusi secara otomatis ketika UserForm dibuka atau diaktifkan. Hal ini terjadi karena even atau prosedur yang kita pilih adalah even atau prosedur UserForm_Activate.
    Private Sub UserForm_Activate()
       ListBox1.RowSource = "A1:A7"
    End Sub
  6. Sekarang kita akan tambahkan baris kode yang berfungsi untuk memerintahkan Excel agar mengeksekusi kode ketika isi atau daftar dalam objek ListBox kita klik (pilih). Hal ini dapat dilakukan dengan cara memilih dulu objek serta prosedur yang akan kita gunakan, yakni objek ListBox dan prosedur Click.
    Prosedur Listbox klik
  7. Akhirnya kita sampai pada bagian inti dari tutorial ini, yakni memberikan baris perintah yang bertujuan untuk menampilkan salah satu daftar dalam ListBox ke dalam jendela Kotak pesan.
    Sesuai dengan judul posting, maka silahkan anda pilih salah satu dari dua buah kode berikut yang ingin anda gunakan dan dituliskan ke dalam even ListBox_Click:

    Cara 1
    Private Sub ListBox1_Click()
       a = ListBox1.List(ListBox1.ListIndex, 0) 
       msgbox a  
    End Sub
    Kode ini akan diawali dengan menentukan nilai a dengan perintah membaca seluruh daftar yang terdapat di ListBox, kemudian memilih daftar berdasarkan Index dan mengambil kolom pertama (kolom 0 dibaca sebagai kolom pertama). Kemudian hasil pencarian tersebut akan ditampilkan dalam kotak pesan yang berisi sesuai dengan nilai a

    Cara 2
    Private Sub ListBox1_Click()
       b = ListBox1.ListIndex + 1 
       MsgBox Cells(b, 1) 
    End Sub
    Cara yang ini diawali dengan menentukan nilai b yang berfungsi untuk membaca nilai yang dipilih dalam daftar ListBox berdasarkan index, kemudian ditambah dengan angka +1. Hal ini dikarenakan index 0 dibaca sebagi baris yang pertama dan seterusnya.
    Kemudian hasil pencariannya diambil dari lembar kerja dengan menggunakan paremeter Cells. Penulisan paremeter Cells yakni diawali dengan baris kemudian kolom, sehingga hasil akhir penulisan parameter ini adalah MsgBox Cells(b, 1), di mana nilai b digunakan untuk menentukan barisnya, sementara angka 1 dari parameter ini berfungsi untuk membaca kolom pertama yakni kolom A.

    Kekurangan dari baris kode ini adalah, anda harus mengganti nilai + 1 pada baris kode ListBox1.ListIndex + 1 sesuai dengan letak dimana baris pertama anda dituliskan dalam lembar kerja. Kelemahan lain dari kode ini adalah ai tidak bisa menampilkan isi sel dengan benar ketika daftar yang terisi di dalam ListBox disusun secara terbalik (Descending Order). Untuk tutorial pengisian ListBox dari urutan terbawah, silahkan anda pelajari materi ini Mau Mengisi ListBox dari Bawah ke Atas? Begini Caranya.
  8. Langkah terakhir yang harus dilakukan tentu adalah mengujinya, yakni bisa dilakukan dengan cara menekan tombol F5 di keyboard anda atau bisa juga menekan tombol di menubar.

Perbedaan yang paling mendasar dari dua cara di atas terletak pada metode mengambil nilai dari kotak ListBox, dimana Cara 1 mengambil nilai secara langsung dari kotak ListBox itu sendiri, sementara Cara 2 mengambil nilai dari lembar kerja dengan mengacu kepada hasil pilihan yang dilakukan pada ListBox.
Kesimpulan akhir dari tutorial ini ada pada pribadi masing-masing, mana dari kedua kode tersebut yang dirasa sesuai dengan kebutuhan. Adios.

Loading...


Menggunakan Parameter Intersect Dalam Macro VBA Excel

Belajar Intersect Excel

Dalam bahasa indonesia, kata intersect dapat diartikan sebagai titik temu yang mana ia dapat diartikan sebagai pertemuan antara dua buah range dan mengambil sel-sel atau range yang menjadi pertemuan antara keduanya.
Pemahaman Intersect dapat di ilustrasikan dalam gambar berikut :
mengenal parameter intersect excel
Gambar di atas dapat dijelaskan bahwa pertemuan antara Range B2:D5 dan range C5:E7 adalah range C5:D5, inilah yang dinamakan dengan intersect.



Loading...

Untuk menerjemahkan gambar di atas ke dalam bahasa Macro VBA excel, cara sederhananya adalah dengan menuliskan kode berikut ke dalam sebuah Module kemudian jalankan, maka hasilnya ia akan menampilkan alamat dari pertemuan antara sel-sel atau range tersebut
Sub Test1()
 MsgBox Intersect(Range("B2:D5"), Range("C5:E7")).Address
End Sub
Macro VBA intersect

Sekarang, mari coba kita rubah salah satu parameter yang digunakan dalam penulisan range diatas menjadi seperti berikut:
Sub Test2()
 MsgBox Intersect(ActiveCell, Range("C5:E7")).Address
End Sub
Jika anda menjalankan baris kode di atas dan jika alamat sel yang anda pilih saat ini tidak berada dalam lingkup Range C5:E7, maka pasti anda akan dihadapkan dengan pesan Run Time Error, hal ini terjadi karena parameter ini tidak mampu untuk membaca dan menemukan hasil pertemuan atau perpotongan sel. sebaliknya, jika sel yang saat ini aktif terpilih ada dalam rentang range tersebut, maka pesan yang berisi alamat sel akan ditampilkan.
intersect excel vba

Perbedaan mendasar antara module Test1 dan Test2 di atas terletak pada pemilihan alamat sel atau range yang dijadikan sebagai acuan untuk melihat perpotongan atau pertemuan sel. Anda tidak akan menemukan pesan error pada kode yang dituliskan pada module Test1, karena setiap alamat sel yang dituliskan memiliki perpotongan.
Sementara untuk module Test2, karena salah satu sel berisi parameter ActiveCell yang meminta pengguna untuk menentukan sendiri sel yang jadi perpotongan dengan acuan range C5:E7, maka akan sangat mungkin muncul pesan error jika alamat sel yang aktif terpilih berada diluar range tersebut.

Ok, untuk mencegah pesan error pada module Test2, bisa anda gunakan fungsi logika sederhana dengan menggunakan kata kunci (keyword) NOTHING. Kata kunci ini bertugas untuk menjelaskan kepada Excel bahwa tidak ada sel aktif yang sesuai dengan apa yang seharusnya dipilih.

Sekarang coba perhatikan penyempurnaan dari module Test2 berikut ini :
Sub Test2Lagi()
If Intersect(ActiveCell, Range("C5:E7")) Is Nothing Then
    MsgBox "Coba pilih alamat sel dalam rentang C5:E7"
    Else
    MsgBox Intersect(ActiveCell, Range("C5:E7")).Address
End If
End Sub
Penggunaan logika IF dengan disertai kata kunci Nothing seperti dalam kode di atas, mengganti pesan Run Time Error dengan kotak pesan (MsgBox) yang bisa kita isi sendiri.
intersect dan keyword nothing

Penggunaan yang paling umum dari metode Intersect ini biasanya digunakan dalam sebuah even ketika sebuah sel berubah, dalam bahasa Macro VBA even ini dikenal dengan even Worksheet_Change.
Penjelasan mengenai cara menggunakan Intersect dalam even ini akan diulas dalam tutorial berikutnya.
Jadi, jangan sampai ketinggalan. Dan silahkan anda subscribe atau bookmark situs ini untuk mengetahui kehebatan microsoft Excel lainnya bersama excelive.com. See you soon...

Loading...



Memahami Konsep Parameter .Find Untuk Mencari Informasi

menggunakan parameter FIND

Beberapa waktu yang lalu saya mendapat kiriman sebuah email yang berisi permintaan untuk mengulas tentang bagaimana menggunakan parameter FIND untuk mencari sebuah informasi atau sebuah nilai yang terdapat di dalam lembar kerja. Di dalam email tersebut si pengirim juga menyebutkan kalau ia belum mendapati pembahasan yang lengkap tentang penggunaan paremeter FIND di situs internet, bahkan beberapa diantaranya hanya sekedar copy-paste dari situs lainnya.

Oke, sebelum saya mengulas tentang parameter FIND (ala excelive), saya akan sedikit bercerita tentang kemampuan excel yang saya miliki hingga saat ini.
Awalnya saya adalah seorang praktisi di dunia audio-video sebagai seorang editor juga sebagai seorang animator Adobe After Effect, kemampuan yang saya miliki saat itu hampir semuanya berasal dari internet, atau dengan kata lain saya mempelajari secara autodidak. Pada saat itu, Microsoft Excel adalah salah satu aplikasi yang hampir tidak pernah tersentuh meskipun di dalam komputer sudah ada. Bahkan ketika Install ulang Microsoft Office, seringkali saya memilih custom instalation dan hanya memasang Microsoft Word dalam komputer, karena pada saat itu - aplikasi paket Office Word masih dibutuhkan meskipun tidak sesering aplikasi Adobe After Effect atau aplikasi video editor seperti Pinnacle Studio, Adobe Premiere, dan sejenisnya.

Hingga suatu ketika, saya menemui sebuah aplikasi sederhana buatan anak negeri yang dibangun menggunakan Microsoft Excel. Disaat itu pula rasa cinta terhadap Microsoft Excel perlahan-lahan mulai tumbuh berkembang dan perlahan-lahan dunia audio-video ditinggalkan.
Bagi saya, belajar Microsoft Excel tidaklah secepat ketika saya pertama kali mengenal dan mempelajarai aplikasi video editing, butuh proses yang memakan banyak waktu dan tenaga, dan seringkali menemui kesulitan - dan disinilah saya merasakan sebuah keasyikan belajar coding, khususnya VBA Microsoft Excel.



Loading...

Mengoleksi buku-buku Microsoft Excel lambat laun menjadi sebuah hobi baru dan tanpa sadar menggeser buku-buku audio editing yang terdapat di rak buku. Namun, dari semua buku-buku Microsoft Excel yang pernah saya beli, ternyata belum bisa memuaskan rasa keingintahuan saya tentang kehebatan Microsoft Excel, dan saya menyadari bahwa saya harus memenuhi rasa penasaran ini dan belajar ke gudangnya ilmu, yakni internet.

Jadi kesimpulan dari cerita (curhat) di atas, saya adalah seorang yang hanya memiliki sedikit kemampuan tentang Microsoft Excel yang kebetulan sedikit memahami beberapa kode-kode dalam Microfost Excel dan berusaha semaksimal mungkin untuk menjelaskan dan mengulas secara lengkap tentang apa-apa yang saya ketahui. Dan mudah-mudahan bisa dengan mudah dipahami.

Kembali ke pokok pembahasan parameter .FIND yang ditanyakan oleh seorang pengunjung situs excelive.com
Pada dasarnya, parameter ini memiliki fungsi yang sama ketika anda menekan tombol pintas CTRL + F, akan tetapi anda harus menuliskan beberapa baris perintah agar parameter ini bisa dijalankan layaknya CTRL + F, serta harus dituliskan menggunakan bahasa kode. Dan berikut ini saya akan membahas langkah demi langkah mengaplikasi parameter FIND menggunakan Macro VBA Microsoft Excel.
  1. Oke, pastikan aplikasi Microsoft Excel sudah diinstall dikomputer dan anda sudah membukanya
  2. Tekan tombol pintas ALT + F11 untuk membuka jendela Microsoft Visual Basic Editor, yakni sebuah aplikasi untuk menuliskan bahasa program. Di jendela Microsoft Visual Basic Editor, anda akan dihadapkan dengan sebuah lembar kerja (Workspace) yang beda dengan Microsoft Excel - jadi perlakuannya juga jelas berbeda
  3. Arahkan mouse ke baris menu dan pilih Insert kemudian pilih Module untuk menyisipkan sebuah Module Baru dalam lembar kerja Microsoft Visual Basic Editor. Di sinilah tempat dimana anda harus menuliskan baris-baris kode
  4. Sekarang, anda tuliskan (atau lebih cepatnya) Copy Paste kode berikut ke dalam Module yang sudah anda buat dilangkah sebelumnya
    Sub Cari()
    Set a = Range("A:A").Find("apa", LookAt:=xlValue)
    MsgBox a.Address(False, False)
    End Sub
    
    Penjelasan singkat dari kode diatas
    • Cari
      Adalah sebuah nama yang sifatnya unik yang dijadikan sebagai identitas dari sekumpulan baris-baris perintah yang terdapat didalamnya
    • Set a
      Sebelum mulai membaca kode-kode, saya mengawalinya dengan mengatur dan menentukan sebuah nilai, untuk tutorial ini saya mengatur nilai a
    • Range("A:A").Find("apa", Lookat:=xlValues)
      Baris perintah ini merupakan isi dari nilai a yang memuat beberapa parameter penting antara lain:
      > alamat sebuah range = Range("A:A")
      > paramater pencarian = Find
      > kata atau teks yang akan dicari = "apa"
      > lokasi pencarian = LookAt:=xlValues
      > anda bisa juga menambahkan parameter MatchCase:=True untuk melakukan pencarian yang spesifik
      Bahasa sederhana dari baris perintah ini adalah; Mencari nilai atau teks "apa" berdasarkan model pencarian xlValues di sepanjang kolom A
    • MsgBox a.Address(False, False)
      > Msgbox digunakan untuk menampilkan kotak pesan kepada pengguna
      > a.Address berfungsi untuk membaca nilai yang berhasil di temukan dan ditampilkan sebagai alamat sel
      > (False, False) adalah sebuah parameter untuk membaca sebuah alamat sel dengan menonaktifkan kolom dan baris absolut (tanda $ sebelum kolom dan baris)
      Bahasa sederhana dari baris perintah ini adalah; Menampilkan hasil pencarian kedalam kotak pesan berupa alamat sel dengan format alamat sel relatif
  5. Sampai disini anda sudah berhasil menuliskan parameter FIND untuk mencari sebuah nilai. dan langkah terakhir adalah mengujinya dengan menekan tombol F5 dikeyboard, atau bisa juga dengan mengklik ikon yang terdapat di standard toolbar.

Saya yakin anda bertanya-tanya, bagimana jika dalam sekumpulan data yang ada di lembar kerja terdapat beberapa nilai yang sama dengan kata kunci pencarian, dan bagaimana agar hasil pencariannya menuju ke alamat sel berikutnya.??

Untuk menjawab pertanyaan ini, saya akan membahasnya di edisi berikutnya. Jadi, jangan lupa untuk bookmark situs ini agar anda tidak ketinggalan update terbaru artikel dan tutorial Microsoft Excel bersama excelive.com. See you soon

Loading...


Melihat dan Menemukan Posisi Sel Terakhir Berdasarkan Kolom Atau Baris

proteksi formula dan macro vba

Seperti yang sudah kita ketahui bersama bahwa lembar kerja Microsoft Excel merupakan sebuah tabel yang berukuran sangat besar yang memiliki 2 elemen utama yakni kolom dan baris. Kolom (Column) adalah kotak-kotak yang tersusun secara menurun yang diwakili dengan huruf. Sementara baris (Row) adalah sekumpulan kotak-kotak yang tersusun secara mendatar yang diwakili dengan angka. Dan jika kita menarik sebuah garis lurus antara kolom dan baris, maka kita akan mendapati sebuah titik pertemuan yang lebih dikenal dengan istilah sel atau dituliskan dengan nama Cell dalam bahasa inggris.

Jadi dengan kata lain, sel (Cell) adalah titik pertemuan antara kolom (diwakili dengan huruf) dengan baris (diwakili dengan angka), yang kemudian kita biasa menulisnya dengan cara mengkombinasikan antara keduanya sehingga menjadi sebuah alamat sel.



Loading...

Sengaja saya awali postingan kali ini dengan pengetahuan dasar tentang lembar kerja Microsoft Excel agar nantinya anda bisa lebih mudah dalam memahami dan menerapkan baris-baris kode yang akan saya paparkan, karena hal ini merupakan salah satu kunci penting untuk memahami tutorial ini.

Ok kita akan memasuki ke pembahasan inti, yakni bagaimana cara melihat posisi sel terakhir yang berisi sebuah nilai berdasarkan baris ataupun kolom, yang akan dibahas secara lengkap bukan asal copy-paste dan asal tempel kode saja - karena tujuan utama dari artikel ini adalah agar anda paham dan tidak asal copy paste.

Sebelum membahas kode-kodenya, terlebih dahulu silahkan lihat sekumpulan data yang saya miliki dalam lembar kerja Microsoft Excel berikut :

Jika anda ditanya posisi baris terakhir dari data yang ada digambar atas, maka saya yakin anda akan menjawab sel A5. Begitu pula jika ditanya posisi kolom terakhir yang berisi nilai, pun saya yakin 100% anda bisa menjawabnya.
Pertanyaan berikutnya adalah, bagaimana caranya membuat sebuah perintah agar bisa langsung secara otomatis menemukan lokasi baris atau kolom terakhir yang sebelumnya sudah disebutkan tadi?
Jawaban singkatnya adalah dengan menggunakan Macro VBA. Dan berikut ulasannya.

Baris Terakhir (ROW)
Dari data gambar diatas, jika kita lihat berdasarkan kolom A maka data tersebut mempunyai 5 buah baris yang berisi nilai, dan baris terakhir berisi kata 'Durian' yang mana posisinya berada di baris ke-5.
Sementara jika dilihat berdasarkan kolom B, maka ia hanya memiliki 1 buah baris yang berisi nilai, yakni kata 'januari'. Begitu pula dengan kolom C.

Bagaimana menerjemahkan statement diatas kedalam bahasa Macro VBA.?
  1. Pertama, tentukan terlebih dahulu posisi kolom yang akan dijadikan sebagai patokan untuk mengetahui jumlah banyaknya baris yang berisi nilai. Untuk statement diatas, maka kolomnya adalah kolom A.
  2. Langkah berikutnya adalah menentukan baris yang akan digunakan sebagai perwakilan dari baris yang berisi sebuah nilai, sebagai contoh baris ke-2.
  3. Kombinasikan langkah pertama (Kolom) dengan langkah kedua (Baris) sehingga menghasilkan baris kode Range("A2") atau bisa juga ditulis Cells(2, 1) atau [A2]
  4. Untuk mengetahui nilai yang terdapat di baris terakhir dan yang paling bawah, maka cara paling mudah untuk mengingat adalah dengan mengartikan kata terakhir dan terbawah ke dalam bahasa inggris, dimana kata terakhir adalah END, sementara kata bawah (saya gunakan istilah menurun) adalah DOWN. Dan hasil penulisan untuk kode ini adalah END(xlDOWN)
  5. Sampai disini anda sudah berhasil mengetahui isi dari baris terakhir, dan berdasarkan contoh data diatas maka hasilnya adalah DURIAN. Dan kombinasi penulisan kodenya adalah
    Range("A3").End(xlDown)
  6. Jika anda ingin mengetahui posisi baris terakhir (bukan isinya), maka kode diatas harus ditambah dengan sebuah perintah yang berfungsi untuk mengetahui indeks baris. Dan sekali lagi, untuk mempermudah dalam mengingatnya silahkan terjemahkan kata baris kedalam Bahasa Inggris.
    dan hasil kombinasi akhir untuk mengetahui posisi baris terakhir adalah
    Range("A3").End(xlDown).Row
    Dan berikut jika kode diatas diletakkan dalam jendela kotak pesan
    Msgbox Range("A3").End(xlDown).Row

Kolom Terakhir (COLUMN)
Untuk melihat isi atau posisi kolom terakhir berdasarkan contoh data yang sudah saya berikan diatas, cara penyelesaiannya sama dengan cara untuk mengetahui posisi baris terakhir hanya saja berbeda dalam hal pembacaannya, yakni dibaca bukan dari atas ke bawah, melainkan di baca dari kiri ke kanan (Bahasa Inggris 'kanan' tahu kan...?).
Dan cara mudah berikutnya untuk menyelesaikan ini adalah dengan menerjemahkan kata kolom kedalam Bahasa Inggris. Bagaimana, mudah bukan...!
Dan berikut adalah hasil akhir untuk melihat posisi kolom terakhir yang ditampilkan didalam kotak pesan
Msgbox Range("A1").End(xlToRight).Column

Sebenarnya ada banyak cara dan metode untuk melihat posisi kolom atau baris terakhir, hanya saja menurut pendapat pribadi saya - cara di atas boleh dibilang cara yang paling mudah dan gampang untuk diingat. Meskipun demikian, kode yang saya tuliskan dibawah ini bisa juga dengan mudah dipahami asalkan sudah memahami konsep tentang lembar kerja Microsoft Excel, seperti kolom, baris, sel, dll.
Silahkan anda bandingkan kode sebelumnya dengan kode-kode berikut yang memiliki fungsi yang sama.
Sub BarisTerakhir()
r = Cells(Rows.Count, 1).End(xlUp).Row 
MsgBox r
End Sub

Sub KolomTerakhir()
c = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox c
End Sub
Jika anda penasaran dan masih mau bereksperimen untuk mencari posisi baris dan kolom terakhir, salah satu parameter lainnya yang bisa anda gunakan adalah Current Region. Silahkan baca turorialnya disini .
Untuk mengisi sebuah nilai atau data setelah kolom atau baris terakhir, silahkan anda tambahkan nilai + 1 dibelakang kode-kode tersebut
Seperti biasa, untuk melengkapi tutorial yang cukup panjang ini, saya sudah menyiapkan tampilan hasil akhir yang sudah dimodifikasi seperti berikut :


Loading...


Selamat... anda sekarang sudah berhasil membuat sendiri sebuah kode Macro VBA untuk mencari lokasi sel terakhir baik berdasarkan baris maupun berdasarkan kolom. Semoga tutorial ini ada guna dan manfaatnya.
Silahkan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya bersama excelive.com. Au revoir


Our Services


design

all the design of each tutorial has passed the test for excel 2007 up

installation

every each codes on this site are provided "as is" and are easy to install

youtube

in order to facilitate you in learning excel, you can visit our channel here

download

to complete all excel lessons, we have provided a download link for you

Contact Us


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.
Singhasari Malang 65153
East Java

Interested for our works and services?
Get more of our update !

end of page