Home » , , , , , » Cara Merge Cell otomatis Berdasarkan Nilai Cell yang Sama Menggunakan VBA Macro

Cara Merge Cell otomatis Berdasarkan Nilai Cell yang Sama Menggunakan VBA Macro

Assalamualaikum wr. wb. Alhamdulillah kita berbagi sedikit pengalaman dan Tutorial Microsoft Excel. Jika sebelumnya kita membahas tutorial, Pecah File Excel Menjadi Beberapa File Berdasarkan Kategori Tertentu Dengan Cepat, maka kali ini kita membuat tutorial yang mirip dengan tutorial sebelunya, hanya saja kita tidak memecah file berdasar kategori/ nilai cell yang sama, melainkan kita akan membuat Merge Cell Otomatis untuk nilai cell yang sama. 
Auto Merge Cells


Tutorial ini sangat bermanfaat bagi anda yang memiliki tugas membuat laporan keuangan, jadwal kegiatan, pembukuan, dll, karena untuk menyajikan laporan kita dituntut Rapi dan Mudah dimengerti. Selanjutnya kita masuk ke langkah-langkah contoh projectnya.  Contoh Kasus
Saya akan melakukan merge cell pada kolom hari yang sama, dan kolom nama petugas piket yang sama! Daftar Piket Sebagai berikut:
Merge Cell Kolom A dan Kolom C
A. LANGKAH-LANGKAH
1. Pada sheet yang menampilkan jadwal tersebut tekan tombol di keyboard Alt+F11
 Secara bersamaan.
2. Pada halaman VBA Macro Pilih Insert->> Module
Pilih Insert->> Module


3. Letakan kode VBA Macro berikut, 

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Seperti gambar berikut ini:
Copas Script VBA MAcro
4. Tekan Gambar Panah Hijau/ Runing:
Tombol Play
5. Akan nmuncul Kotak Dialog berupa kolom, isikan kolom tersebut dengan men-drag cell yang akan di merge dalam contoh di gambar yaitu kolom ($A$2:$A$37). Lanjutkan dengan menekan OK
Drag Cell yang akan di merger
6. Ulangi Langkah ke 4 dan 5, untuk melakukan merge cell di kolom ($C$2:$C$37). Hasilnya sebagai berikut:
Hasil Merger Otomatis
7.Selesai.
Video Prakteknya juga sudah bisa anda nikmati di Youtube, berikut ini saya sajikan videonya:




Source ini saya dapatkan di https://id.extendoffice.com/, dan sudah berhasil saya uji coba di project saya. Demikian tutorial saya terkait Cara Merge Cell otomatis Berdasarkan Nilai Cell yang Sama Menggunakan VBA Macro. Jika artikel ini bermanfaat, maka anda boleh membagikan tulisan ini.

Jangan lupa ikuti seluruh update sosial media saya berikut:
Youtube : Onny Putranto (Subscribed, Like, dan Koment untuk mengikuti perkembangan tutorial dari kami)
Instagram: @onnyputranto212
Facebook: Onny Putranto
Google Business: Arzan Servis Laptop







If you enjoyed this article just click here, or subscribe to receive more great content just like it.

Subscribe via RSS Feed

Enter your email address:

Delivered by FeedBurner

Subscribe to Tutorial IT by Email Thanks for reading Cara Merge Cell otomatis Berdasarkan Nilai Cell yang Sama Menggunakan VBA Macro

« Previous
« Prev Post
Next »
Next Post »

1 comments: