ada saja yang kurang nih, maklum terburu-buru. pagi2 baca milis be-excel, baru
mau mulai kerja. sebab ini kesenangan saya ( vba ), daripada di dahuluin yang
lain.... ( just kiding Hooi ). ActiveCell.FormulaR1C1 =
"=SUM(R[-3]C:R[-1]C)"
ganti menjadi:
ActiveCell.FormulaR1C1 = "=SUM(R[-" & barisakhir - barisawal + 1 &
"]C:R[-1]C)" To: belajar-excel@yahoogroups.com
From: jkss...@live.com
Date: Thu, 23 Jun 2011 08:54:08 +0700
Subject: RE: [belajar-excel] Tanya: merapikan tabel dengan makro
sori , ada yang ketinggalan yaitu Call formatisi .
Range("A" & barisawal & ":K" & barisakhir).Select
Call formatisi
' summary
To: belajar-excel@yahoogroups.com
From: jkss...@live.com
Date: Thu, 23 Jun 2011 08:47:20 +0700
Subject: RE: [belajar-excel] Tanya: merapikan tabel dengan makro
ADF
Periode
From
5/1/2011
Periode
To
5/31/2011
Company
20
Toko A
Dept Name
HRD
NO
KLS
DESCRIPTION
QTY
UNITPRICE
TOTAL
Kondisi
PROPOSED
CAUSED BY
APPROVED
RESPONSIBILITY OF
A1
K245
kursi
1
100,000
100,000
retak
repair
Handling di
store
repair di store
A2
K624
kursi
1
100,000
100,000
retak
repair
Handling
di store
repair
di store
A3
K921
meja
1
200,000
100,000
retak
Pengiriman
Handling
di store
repair
di store
300,000
macro utama :
Sub FormatFormula()
Dim barisawal, barisakhir As Long
barisawal = 11
'===
Call formatjudul
'----
Range("A" & barisawal).Select ' awal sel tabel
Selection.End(xlDown).Select
barisakhir = Selection.Row
Range("A" & barisawal & ":K" & barisakhir).Select Call formatisi
' summary
Range("F" & barisakhir + 1).Select
Call formatFooter
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
' Responsibilty
Range("K" & barisakhir + 1).Select
Call formatFooter
' proposed , menentukan warna yang sesuai
Range("H" & barisawal & ":H" & barisakhir).Select
Call formatKondisional
End Sub
untuk sub rutin formatjudul , formatisi dan formatFooter , ambil saja koding
anda . Karena hanya menentukan lebar kolom, tinggi baris dan border.
untuk kondisiona format gunakan sub rutin berikut :
Sub formatKondisional()
Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""pengiriman"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = True
End Sub
Semoga sesuai
To: belajar-excel@yahoogroups.com
From: santi.rosain...@indexfurnishings.com
Date: Wed, 22 Jun 2011 15:21:13 +0700
Subject: [belajar-excel] Tanya: merapikan tabel dengan makro
Dear all,
Saya punya contoh data seperti terlampir.
kendalanya, kalau dibagian responsibility kosong, maka ketika makro
dijalankan, maka bordernya sampai akhir baris.
maunya terborder sampai baris yang sama dengan kolom sebelahnya
Mohon bantuan infonya untuk bahasa VBAnya seperti apa yaa?
Terima kasih
--
Sincerely,
Santi Rosaindah
*There will always be Sun-SHinE after the rain*
--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.
