isi mail dari penanya itu "efisien" sekali, ngirit, enak di situ ndak enak di
sini...
tidak lebih dari 4 kata "tolong ya pakar excel"
problem tidak diutarakan (tetapi diselatankan) pada isi email nya oleh penanya.
biarlah aku yg "nulis problem"nya di email ku, agar para member digest and
nomail
tetap bisa ikut menikmati milis ini.
soal: nanti solusiku benar atau ngawur.. itu bukanlah hal no.1 tetapi nomor 6 !
(karena no.1 sampai no.5 kan sudah ada dan penting, yaitu Pancasila.. !)
'=====================
ada sebuah range A1:D97.
kolom A1 ke bawah berisi data nomor urut dari 1 s/d 97
(aslinya A2 ke bawah berupa rumus = A1+1)
kolom B,C,D kosong
Kolom B sepanjang kolom A ada datanya sudah diberi garis border KANAN.
di setiap baris yg NOMOR HEADER-BARIS-nya = kelipatan angka 10 diberi
garis border bawah misal pada A10:D10
selain itu di data terakhir walaupun nomor-header-baris-nya bukan kelipatan 10
juga diberi garis border bawah misal di A97:D97
diinginkan: (pertanyaan asli di dalam sheet1)
Kalo nomor ini dihapus maka garis akan naik juga,
gimana buat garis ini tetap di tempat
sedangkan yang paling di bawah (terakhir) ditengah-tengah ….
tolongin ya..
'================================
saya menangkap keinginan tsb seperti ini
Kalau ada BARIS YG DIDELETE
diinginkan agar: GARIS BORDER BAWAH tetap berada di tiap BARIS
yg nomor headernya = kelipatan 10 DAN berada di BARIS BERDATA TERAKHIR.
Singkat kata, menurut "pendapatan"-ku perkerjaan ini hanya dapat dilakukan
secara manual atau dengan bantuan makro,
jika diinginkan diotomatiskan dengan formula menurut "pendapatan"-ku
= ndak bisa la yauw..
Rumus yg ada di A2 ke bawah, sebaiknya dikonversi menjadi konstanta; agar jika
ada
data di hapus atau baris di-deleted, rumus di bawahnya tidak menjadi #REF!
error-value
makro tombol
Private Sub CommandButton1_Click()
HapusGarisInside
GarisTiap10Rows
End Sub
salah satu prosedur yg dipanggil oleh tombol
Sub GarisTiap10Rows()
Dim r As Long
r = 1
Cells(1, 1).Activate
Do While LenB(Cells(r, 1)) > 0
If Cells(r, 1).Row Mod 10 = 0 Or _
Len(Cells(r + 1, 1)) = 0 Then
With Cells(r, 1).Resize(1, 4).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
r = r + 1
Loop
prosedur lain dapat dilihat di lampiran
----- Original Message -----
From: rizal sali
To: [email protected]
Sent: Saturday, December 26, 2009 11:09 AM
Subject: ]] XL-mania [[ Repeat at down berupa garis bersyarat..?
tolong ya pakar excel...
