KODE MACRO MEMBERI GARIS DAN WARNA BEGROUN PADA KOLOM EXCEL

Untuk memberi garis pada kolom excel tahap ke dua ini kita akan memberikan garis sekaligus memberikan warna beground pada data dengan menggunakan Kode Macro, nah untuk membuatnya bagaimana ? berikut simak langkah-langkahnya.

Sebenarnya dalam pembuatan garis dan beground pada kolom excel dengan Kode Macro tidaklah lepas dari basic yang Anda miliki, karena itu akan berpengaruh dengan tingkat pemahaman yang berujung pengembangan.

Pada dasarnya Kode Macro membuat garis serta memberi warna beground kolom ini sudah disiapkan oleh microsoft, pertanyaannya : Dimana Kode Macro Yang Kita Dapat ? Sedangkan Ilmu Yang Kita Punya setengah-setengah ? mau tau jawabannya ? silahkan share terlebih dahulu artikel ini / link ini www.mtsbmtumbrasanom.id/search/label/vba ke sosial media lalu hubungi kami pada gadget bagain kontak kami.

Berikut Langkah-langkah dan Kode Macronya

1. Buka Microsoft Excel Anda

2. Tekan Alt+F11 (masuk ke jendela Visual Basic for Application (VBA))

3. Buatlah 1 buah Module

4. Salin Kode Macro dibawah ini kedalam module tadi

Sub garisdanbeground()
    Range("A1:C6").Select
    Cells.FormatConditions.Delete
    Range("A1:C6").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(A1))>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub
5. Untuk menjalankan silahkan Anda tekan F5 (RUN)

6. Silahkan ketik pada kolom A1:C6 maka akan otomatis bergaris dan berwarna abu-abu

7. Selesai

Cukup mudah kan ?

Jika Anda melakukan langkah-langkah diatas dengan benar maka Kode Macro akan berjalan sesuai prosedur yang kita buat, dan jika sudah selesai dan berjalan dengan baik sekarang silahkan simpan dokumen tersebut dengan type Excel macro.

Dan untuk tahap ke tiga kita akan belajar membuat garis putus dan memberi warna titik-titik menggunakan kode macro yang dapat Anda pelajari pada link dibawah ini.

Link Terkait :  Kode Macro membuat garis putus dan memberi warna titik-titik pada kolom excel

Demikian artikel dari kami dan terimakasih sudah berkunjung ke blog ini serta termukan artikel yang menarik seputar Microsoft Excel hanya di www.mtsbmtumbrasanom.id dan akhir kata Jabat Erat.

Share :