Home » Microsoft Office » Excel » Ganti Rumus IF Macro Excel Dengan Select Case

Ganti Rumus IF Macro Excel Dengan Select Case

Posted by on 3 May 2011Leave a comment

Seperti sudah saya singgung sedikit dalam membuat rumus IF macro Excel, penggunaanya lebih mudah menggunakan fungsi macro Select Case. Macro IF hanya terbatas untuk mengolah data berupa pilihan yang tidak banyak. Jika pilihan ada banyak maka sebaiknya diganti menggunakan macro select case. Berikut cara membuat dan contoh logika Select Case macro Excel.

Pemakaian IF makro untuk pilihan yang banyak sangat sulit pembuatannya, dan menguras tenaga untuk mencermati detail syntaknya agar tidak error. Dengan mengganti menggunakan select case lebih mudah dalam membaca atau membuatnya dan lebih sederhana bentuk susunannya. Sebelum belajar membuat select case, saya tampilkan dulu contoh untuk IF, agar ada perbandingan letak kemudahan dan kesulitannya. Bagi yang belum mengenal macro IF Excel, baca dulu dasar-dasar rumus IF macro Excel.

Contoh untuk rumus IF macro

Sub coba_if() If Range(“C1″) = 1 Then Range(“A1″).FormulaR1C1 = 1 Else If Range(“C1″) = 2 Then Range(“A1″).FormulaR1C1 = 2 Else If Range(“C1″) = 3 Then Range(“A1″).FormulaR1C1 = 3 Else If Range(“C1″) = 4 Then Range(“A1″).FormulaR1C1 = “stop” Else End If End If End If End If Range(“C1″).Select End Sub

Untuk menjalankan macronya, bisa dengan menekan F5 dan posisi kursor didalam rumus if diatas (Microsoft Visual Basic). Kalau dalam contoh sheet ini saya buatkan tombol dengan AutoShapes. Bisa juga dengan menu Macro Run.
Rumus IF macro di atas merupakan bentuk susunan yang lebih mudah dibaca dan dipahami. Akan pusing kalau melihat yang seperti di bawah ini, walaupun syntaknya sama

Sub coba_if()
If Range(“C1″) = 1 Then
Range(“A1″).FormulaR1C1 = 1
Else
If Range(“C1″) = 2 Then
Range(“A1″).FormulaR1C1 = 2
Else
If Range(“C1″) = 3 Then
Range(“A1″).FormulaR1C1 = 3
Else
If Range(“C1″) = 4 Then
Range(“A1″).FormulaR1C1 = “stop”
Else
End If
End If
End If
End If
Range(“C1″).Select
End Sub

Bentuk macro IF di atas sama, cuma beda tata cara penulisannya. Sekarang bandingkan dengan select case

Contoh macro Select Case Excel

Sub coba_case() Rng = Range(“C1″) Sub coba_case() Rng = Range(“C1″) Select Case Rng Case Is = 1 Range(“A1″).FormulaR1C1 = 100 Case Is = 2 Range(“A1″).FormulaR1C1 = 200 Case Is = 3 Range(“A1″).FormulaR1C1 = 300 Case Is = 4 Range(“A1″).FormulaR1C1 = “brenti” End Select Range(“C1″).Select End Sub

Rng adalah sel yang dibaca. Tulisan bisa diganti, ditulis Rng semata-mata biar kelihatan keren :) dan sebenarnya untuk memudahkan penulisan karena Rng bisa diartikan Range. Kalau mau di ganti seperti di bawah ini juga bisa, biarpun tidak nyambung ma Office Excel

Sub case_komputer() Komputer = Range(“C1″) Select Case Komputer Case Is = 1 Range(“A1″).FormulaR1C1 = 1000 Case Is = 2 Range(“A1″).FormulaR1C1 = 2000 Case Is = 3 Range(“A1″).FormulaR1C1 = 3000 Case Is = 4 Range(“A1″).FormulaR1C1 = “laptop” End Select Range(“C1″).Select End Sub

Contoh penggunaan select case macro Excel yang lainnya, dengan menggunakan input box misalnya

Sub coba_hasil() Dim Rng As Integer Dim Hasil As String Rng = InputBox(“Isi Angka Buebas”) Select Case Rng Case Is < 10 Hasil = “kurang dari cepuluh” Case Is < 20 Hasil = “nulis kurang dua puluh kan?” Case Is <= 50 Hasil = “tidak lebih lema puluh” Case Is = 80 Hasil = “< 80 tho” Case Else Hasil = “wow suka angka besar ya” End Select MsgBox (“Kata mbah dukun : ” & Hasil) End Sub

Dengan dua contoh penggunaan rumus select case macro Excel semoga dapat membantu pekerjaan kita. Prinsipnya mulai dasarnya dulu. Jika ada kesulitan dalam mengetik rumus-rumus tersebut, silahkan download contoh macro select case Excel pengganti IF, klik di sini(ZIP 16 KB – 4shared). Dalam contoh yang bersifat free download tersebut, juga sekaligus ada macro yang memanggil macro lain, jadinya sekalian tahu. Saya mau menjelaskan kok belum sempat deh. Lagi sibuk belajar ngutek-ngutek Ubuntu, dimana beberapa hari lalu bikin harddisk tidak terdeteksi Windows.

Demikian dulu tutorial menggunakan macro select case Excel. Selamat mencoba, dan jangan ragu mencoba, karena sekali mencoba, akan terus mencoba, sehingga hasil uji coba bukan hanya coba-coba :lol: Makaciiiih, kepareng……….

Share post to : Facebook | Twitter | Digg | Google | Technorati | Stumbleupon | Delicious | Reddit |

Artikel terkait :

Random Posts :

Tags : , , , , , , , ,

2 Comments.

  1. Pendy  18 July 2011 at 05:35

    Gan,..

    Saya mau tanya, kenapa ya rumus excel di komputer saya selalu berubah dan ga berfungsi ?

    misal :

    ada kolom A1 A2 A3

    dan A3 = A1*A2 – 6 = 3*2
    dan misal A1 saja ganti menjadi 5, kenapa nilai A3 tidak mau berubah ya ?

    mohon bantuannya :)
    terimakasih

    Reply
    • Yusuf Fahrurrozi  18 July 2011 at 14:32

      dan A3 = A1*A2 – 6 = 3*2

      Jika A1*A2-6 masih bisa jalan kok….
      yang saya agak melihat rumus diatas, setelah itu ada = 3*2 maksudnya gimana ya? Maaf saya kurang paham.

      Reply

Leave a Comment

CAPTCHA Image

*