浼︾悊澶х墖鍏嶈垂-xn--ros7x99alz8ajhe82b.susantmelone.com

google seo -> telegram: @ehseo6

">Newsnet 2022-10-08 06:34
  • home  >   /  >   浼︾悊澶х墖鍏嶈垂
  • 皇冠体育客服『0886.tv』b3c1v2I-  U 铮?C



    Membuat kocokan arisan dengan macro excel

    Akibat Pandemi Covid19 atau Corona, Pemerintah Indonesia sangat menyarankan pekerja - pekerja untuk bekerja dari rumah atau biasa disebut WFH (work from home) tak terkecuali gue, yang saat itu mulai kerja dari rumah kira kira pertengahan bulan Februari 2020 sampai tulisan ini dimuat gue pun masih bekerja di rumah, mudah mudahan pandemi ini segera berakhir dan kita bisa menjalankan kehidupan normal kembali. Aamiin.



    Jarak dan tidak diperbolehkannya kita bertemu satu sama lain, membuat semua pekerjaan harus fleksibel mengikuti aturan tersebut. Di kantor gue ada arisan yang baru jalan, dan ketentuan arisan tersebut adalah setiap yang menang arisan harus ngocok untuk pemenang arisan selanjutnya, maka tercetus ide gue buat bikin kocokan arisan dengan macro excel. 

    Daripada ilmu ini gue simpen sendiri, maka gue akan share ke temen temen yang baca blog ini. kuy!

    1. Pertama buat dulu kolom - kolom berikut ini ya

    Agar mempermudah, coba samakan dulu saja ya antar kolomnya supaya sama dengan yang gue buat. Jika sudah jadi nanti tinggal disesuaikan.

    2. Saatnya koding Macro, jangan pusing dulu ya. Nanti gue jabarin :)

    Shortcutnya Alt+F11, atau bisa ke menu View>Macro>View Macro dan Edit

    Setelah di tampilan Macro, di pojok kiri tulisan "VBAProject (Book1)" klik kanan dan pilih insert>Module


    setelah itu, copy pastekan coding dibawah ini

    Sub random_num()
        'Initialize the random number generator
        '=> Randomize: add this before you call the Rnd function to obtain completely random values
        Randomize
     
        'Random whole number between 1 and 50:
        random_number = Int(13 * Rnd) + 1
        SAL = Application.WorksheetFunction.VLookup(random_number, Sheet1.Range("A1:B19"), 2, False)

        MsgBox "Kira kira siapa ya", vbInformation, "Menang Arisan"
     
        If Application.WorksheetFunction.VLookup(random_number, Sheet1.Range("A1:J19"), 10, False) = "Sudah Dapat" Then
     
         MsgBox "Ternyata!! Oh Ternyata!!" & vbNewLine & vbNewLine & SAL & vbNewLine & vbNewLine & "Sudah dapet, Kocok lagi kuy", vbInformation, "Menang Arisan"
        Else
     
        MsgBox "Selamat kepada!!!" & vbNewLine & vbNewLine & SAL & vbNewLine & vbNewLine & "Jangan lupa makan makannya :p", vbInformation, "Menang Arisan"
    Range("J" & random_number + 6).Select
     ActiveCell.FormulaR1C1 = "Sudah Dapat"
        End If
    End Sub



    Sebetulnya tahap ini udah selesai, tinggal mempercantik tampilan dan sesuaikan dengan excel (point 1). Untuk menyesuaikan point 1, ada beberapa yang mesti diubah pada coding diatas, mari kita jabarkan :

    a) Berhubung gue ada 13 partisipan, maka pada coding ini gue tulis 
    random_number = Int(13 * Rnd) + 1
    Mohon disesuikan dengan partisipannya ya, btw fungsi ini sudah ada di excel jadi gue hanya manggil fungsi ini saja. Jangan lupa untuk mengubah ini juga ya, karena partisipan gue ada 13 dan berakhir di baris 19



    Maka ubah 2 coding dibawah

    SAL = Application.WorksheetFunction.VLookup(random_number, Sheet1.Range("A1:B19"), 2, False)

    Dan juga coding dibawah ini

    If Application.WorksheetFunction.VLookup(random_number, Sheet1.Range("A1:J19"), 10, False) = "Sudah Dapat" Then
    Jika sudah disesuaikan mari kita lanjut untuk mempercantik tampilan excel dengan membuat tombol "Kocok Arisan", dengan klik Insert>Shapes>Rectangle

    Setelah jadi klik kanan Shapes tersebut dan klik "Edit Text" dan silakan disesuaikan.

    Setelah itu klik kanan pada Shapes yang telah disesuaikan, klik "Assign Macro.." lalu pilih random_num dan klik "ok".

    Biar tambah kece lagi, klik kolom A7 dan ke menu Home lalu klik Conditional Formating>New Rules>Use a formula to determine which cell to format, isi dengan ini "=$J7="Sudah dapat"" dan klik format>fill>pilih warna sesuai selera kamu dan klik ok.

    Setelah itu klik kolom A7 dan klik Format Painter di menu home lalu copy ke B7 sampai J7

    Jangan lupa untuk copy kebawah juga ya, dengan cara klik kolom A7 sampai J7 klik Format Painter di menu home lalu copy ke A8 sampai J19.

    Jadi fungsi Conditional Formating tersebut adalah ketika partisipan sudah dapet akan keluar warna yang kita pilih tadi .

    Setelah selesai jangan lupa di save dengan format Excel Macro


    Sekiranya tutorialnya sampe sini dulu ya, jika ada pertanyaan silakan tinggalkan pesan dibawah.
    Semoga tutorialnya bermanfaat :)



    0 komentar:

    Posting Komentar

    LPL投注官方网站 中超买球官方网站 真的亚博网站网址是多少 赌足球软件哪个好 欧宝体育主网
    MG在线游戏网址是多少 麻将糊了怎么玩 哪可以玩百家乐的网站网址 英雄联盟S12夏季赛外围 正规买彩票平台有哪些
    世界杯赌球 英雄联盟S12哪里押注网址是多少 亚博体育足球 S12英雄联盟官网投注有什么 LOL比赛外围投注网址
    yabo亚博最新登录 正规足球外围网买球 lolS12在哪投注 LPL英雄联盟在哪投注 正规的app买球平台