Dear Mr.Kid,
berhasil, saya ucapkan terima kasih.
salam,
odhy
________________________________
From: Mr. Kid <mr.nm...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 23, 2012 4:44 PM
Subject: Re: [belajar-excel] Macro Mencari Cell Marge
Untuk meng-unmerge semua merged cells, bisa langsung (tanpa perlu cari) dengan :
sheets("nama worksheetnya").cells.unmerge
Jika ingin cari mana yang di-merge
Public Sub MergedCellsInfo()
Dim rng As Range, rngRes As Range
Dim lCount As Long
For Each rng In ActiveSheet.UsedRange
If rng.MergeCells Then 'kalau ketemu
merge cells
'mau diapain ?
'contoh : mau buat daftar range yang di-merge
If rngRes Is Nothing Then
lCount = 1
Set rngRes = rng.MergeArea
End If
If Intersect(rng, rngRes) Is Nothing Then
lCount = lCount + 1
Set rngRes = Union(rngRes, rng.MergeArea)
End If
End If
Next rng
MsgBox "Jumlah area merge cells : " & lCount & vbCrLf & _
"Jumlah cell yang termerge : " & rngRes.Count & vbCrLf & _
"Range yang di-merge : " & rngRes.Address
End Sub
Wassalam,
Kid.
2012/10/23 rodhy hakim <odhyz83_assas...@yahoo.com>
>Dear Master,
>Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di Excel.
>Sebelumnya saya ucapkan terima kasih,
>
>
>
>Salam,
>Odhy
>_
>
