KODE MACRO MEMBUAT GARIS PUTUS-PUTUS PADA KOLOM AXCEL

Hai sobat semua,, udah lama hampir seminggu kami nggak update artikel, hemm maklum ini masih disibukan dengan tugas simpatika dan juga emis heheh..

Oke yang sekarang kami akan memberikan Kode Macro memberi garis putus-putus di kolom excel dengan mudah dan cepat, berikut langkah-langkahnya :

1. Buka Software 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
Sub garisputus()
    Application.CutCopyMode = False
    Cells.FormatConditions.Delete
    Range("A1:D10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(A1))>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlDashDot
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlDashDot
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlDashDot
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlDashDot
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

5. Untuk mencobanya silahkan tekan F5
6. Kembali ke worksheets dan coba ketik sembarang pada kolom A1:D10
7. Jika ada tulisan maka pada kolom A1:D10 otomatis akan bergaris putus-putus

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode macronya juga benar maka akan berjalan dengan baik.

nah demikianlah artikel kami kali ini semoga ini bermanfaat bagi Anda dan temukan artikel kami seputar Microsoft Excel hanya di www.mtsbmtumbrasanom.id sehingga akhir kata Jabat Erat.
www.mtsbmtumbrasanom.id

Post a Comment for "KODE MACRO MEMBUAT GARIS PUTUS-PUTUS PADA KOLOM AXCEL"