[belajar-excel] border auto

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] border auto

Andrie -
belajar excel..bagaimana ya caranya agar bisa membuat border auto dengan macro..
tq

BORDER AUTO.xls (33K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] border auto

Kid
Administrator
Hai Andrie,

Jika bersedia, Conditional Formatting juga bisa dimanfaatkan.
Gunakan CF dengan opsi Is Formula (xl2003) atau Use Formula blah (xl2007 ke
atas)
kemudian isi formula :
=A1<>A2
atur formatnya, pilih border yang bawah saja yang di border.

Jika ingin klik suatu object tertentu untuk jalankan sebuah runtime :
1. Ke VBE (Alt F11)
2. Insert -> Module
3. buat prosedur berikut :
Public Sub BatasBawah()
    Dim rng As Range, rngData As Range

    Set rngData = Range("a1").CurrentRegion.Resize(, 1)
    For Each rng In rngData
        If rng.Value <> rng.Offset(1).Value Then
            rng.Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next rng
End Sub

4. Ke worksheet (Alt F11 juga)
5. Insert object (misal sebuah shape)
6. klik kanan shape -> assign macro -> pilih nama prosedur di atas
(BatasBawah)

Salam,
Kid.

On Fri, Mar 9, 2012 at 09:03, Andrie - <[hidden email]> wrote:

> **
>
>
> belajar excel..bagaimana ya caranya agar bisa membuat border auto dengan
> macro..
> tq
>
>  
>
>

re-BORDER AUTO.xls (79K) Download Attachment