Pak Deden yang terhormat,
Saya pake macro recording, lalu disederhanakan, dapatlah macro yang berikut
ini:
Silakan coba (misalnya ditugaskan pada tombol Ctrl-m):
ActiveCell.Resize(1, 4).Select ' blok 4 sel ke kanan
Selection.MergeCells = True ' merge
ActiveCell.Resize(1, 5).Select ' tambah satu sel ke kanan
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Select ' pindah ke 1 baris di bawahnya
Untuk mengeksekusinya:
1. tempatkan dulu pointer di sel yang berisi tulisan sub total
2. Tekan Ctrl-m (Hasilnya ... selamat menikmati)
Lakukan hal yang sama di sel-sel lainnya yang berisi ingin dimerge denagn
pola yang sama
Untuk melakukan pada seluruh sel-sel serupa dengan secara otomatis satu kali
tekan,
kita serahkan kepada yang lebih berwenang.
(*Nuwun sewu **mBak Siti, monggo dilajengaken, nggih?*)
YangSelaluBahagiaBisaIkutanJadiSolusi
- eka -
2008/10/23 easy goin <[EMAIL PROTECTED]>
> dear master excels,
> ~ mohon maaf jika sudah pernah dibahas...
>
> ~ apakah bisa merge cells menggunakan vba/macro? sebagai contoh suatu tabel
> yang terdiri dari sub total & final total (contoh terlampir), yang mana pada
> bagian sub total dan final total cellsnya dimerge supaya kelihatan lebih
> rapi, untuk recod dlm jumlah yg banyak tentu akan sangat bete jika dilakukan
> secara manual, & untuk membuat makronya masih kebingungan (harap maklum,masi
> newbie...^_^v)
>
> terima kasih atas semua masukannya..
>
> de2n
>
>
>
>
