ok Tks, Saya coba dulu ya
--- Pada Sen, 13/7/09, nm kid <nmkid.fam...@gmail.com> menulis:
Dari: nm kid <nmkid.fam...@gmail.com>
Judul: Re: [belajar-excel] Mohon Bantuan
Kepada: belajar-excel@yahoogroups.com
Tanggal: Senin, 13 Juli, 2009, 12:50 PM
Dear Caca,
Dengan sebuah sub pada module standar :
Asumsi : judul ditulis di cell E1, dan header laporan di baris 7 mulai kolom C
Jadi cell C7 adalah cell pojok kiri atas data laporan yang disertai header =>
C7 adalah header terkiri
Public Sub SetLaporan()
Range("E1")="JUDULnya " & ActiveSheet. Name
With Range("C7").CurrentRegion
.Borders(xlEdgeLeft ).LineStyle = xlContinuous
.Borders(xlEdgeRigh t).LineStyle = xlContinuous
.Borders(xlEdgeTop) .LineStyle = xlContinuous
.Borders(xlEdgeBott om).LineStyle = xlContinuous
.Borders(xlInsideVe rtical).LineStyl e = xlContinuous
.Borders(xlInsideHo risontal) .LineStyle = xlContinuous
End With
End Sub
Kira-kiranya begitu.
Kid.
2009/7/13 Iskandar Caca <iskandarcaca@ yahoo.co. id>
Dear All,
Mohon Bantuan, Saya ada permasalahan :
1. Bagaimana menggunakan nama sheet menjadi judul
2. Bagaimana memformat laporan dari awal sampai akhir (akhir baris dinamis)
Contoh terlampir.
Bagaimana saya dapat menyelesaikan permasalahan di atas dengan menggunakan
macro excel
tks
ca2
.
Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang!
http://id.mail.yahoo.com
