Cara Menggabungkan Cell dari Hasil Pencarian Karakter Tertentu Dalam Suatu Cell Ms. Excel

Merge Cells dalam Ms. Excel adalah perintah menggabungkan sel tanpa memformat Cell yang dihasilkan. Jadi untuk menggabungkan cell kita bisa menggunakan fitur Marge Cell.

Untuk mencari suatu data atau karakter tertentu pada suatu cell bisa menggunakan Method Find VBA Excel.

Jadi untuk menggabungkan cell dari hasil pencarian atas suatu karakter tertentu dalam  VBA Ms. Excel bisa menggunakan Merge Cell Property dan Method Find.

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara menggabungkan cell dari hasil pencarian tertentu di cell Ms. Excel dengan menggunakan Script VBA. Menggabungkan cell dengan script VBA biasanya dilakukan ketika akan mengerjakan suatu laporan dalam bentuk format yang sama setiap harinya dan harus melakukan marge setiap pembuatannya karena data yang di buat laporan selalu berbeda-beda sehingga mempengaruhi format laporan tersebut.

Berikut adalah syntax dari MargeCell dan Find :

Syntax MargeCell Property

expression.MergeCells

Keterangan :

• expression adalah suatu variabel yang mewakili objek Range.

Syntax Find Method

expression.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Keterangan :

• expression adalah suatu variabel yang mewakili objek Range.
• What adalah suatu data yang akan dicari;
• After adalah suatu cell setelah mulai pencarian;
• LookIn dapat berupa salah satu konstanta XlFindLookIn berikut: xlFormulas, xlValues, xlComments, atau xlCommentsThreaded;
• LookAt dapat berupa salah satu dari konstanta XlLookAt berikut: xlWhole atau xlPart;
• SearchOrder dapat berupa salah satu konstanta XlSearchOrder berikut: xlByRows atau xlByColumns;
• SearchDirection dapat berupa salah satu konstanta XlSearchDirection berikut: xlNext atau xlPrevious;
• MatchCase True untuk membuat penelusuran peka huruf besar kecil. Nilai defaultnya adalah False.
• MatchByte hanya digunakan jika telah memilih atau menginstal dukungan bahasa byte ganda. True untuk memiliki karakter byte ganda yang hanya cocok dengan karakter byte ganda dan False untuk memiliki karakter byte ganda yang cocok dengan byte tunggal yang setara;
• SearchFormat adalah suatu format pencairan yang digunakan pada Method Find tersebut.

Contoh Script Menggabungkan Cell Dari Hasil Pencarian Karakter Tertentu Dalam Suatu Cell Ms. Excel

Sub Penggabungan_Cell()

'Marge cell untuk kolom header Service :

Dim a As Range

Set a = Cells.Find(What:="Service", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False)

On Error Resume Next

Sheets(1).Range(a, a.Offset(1, 0)).Merge

On Error GoTo 0

'Marge cell untuk kolom hedaer Citycourier :

Dim b As Range

Set b = Cells.Find(What:="Citycourier", After:=a, LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False)

On Error Resume Next

Sheets(1).Range(b, b.End(xlToRight).Offset(0, -1)).Merge

On Error GoTo 0

'Marge cell untuk kolom header C Total :

Dim c As Range

Set c = Cells.Find(What:="C Total", After:=b, LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False)

On Error Resume Next

Sheets(1).Range(c, c.Offset(1, 0)).Merge

On Error GoTo 0

'Merapihkan tulisan dan kolom :

Sheets(1).Range("1:2").VerticalAlignment = xlCenter

Sheets(1).Range("1:2").HorizontalAlignment = xlCenter

Sheets(1).Columns("A:Z").AutoFit

End Sub

Untuk praktik menjalankan script di atas kita terapkan pada contoh gambar di bawah ini :

Cara Menggabungkan Cell dari Hasil Pencarian Karakter Tertentu Dalam Suatu Cell Ms. Excel

Berikut adalah langkah-langkah cara menjalankan contoh Script di atas :

1. Buka Aplikasi Ms. Excel dan buat seperti gambar contoh tabel di atas;

2. Pilih menu Developer → View Code untuk membuka jendela VBA Excel;

3. Pilih menu Insert → Module di jendela VBA Excel;

4. Setelah jendela module muncul, maka masukan script contoh di atas ke dalam jendela Module tersebut;

5. Pilih menu Run Sub/User Form di jendela VBA Excel untuk menjalankan Script contoh di atas.

Maka hasilnya menjadi :

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Referensi :

• www.advernesia.com
• https://docs.microsoft.com

Salam,

Muhamad Pajar Sidik

President Director of (matematikaakuntansi.blogspot.com)
Email : fajarmoehamad@gmail.com
IG : @mupasid

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇