Membuat AutoFit ( Tinggi Kolam ) Otomatis Cell Yang Di Marge (Digabungkan) Menggunakan VBA EXCEL

Daftar Isi [Tampil]

Baca Juga

Salam sejahtera sobat kumpulankoding.com semoga dalam keadaan sehat jasmani dan keuangan ya sobat.

Pada kesempatan kali ini kita akan melanjutkan pembahasan yang kemaren tentang membuat AutoFit pada Ms. Excel menggunakan VBA, pada postingan yang lalu kita sudah membahas tentang cara membuat autofit pada excel yang tidak di marge, untuk materi kali ini kita akan melanjutkan pembahasan bagai mana jika kolam yang akan kita AutoFit sudah dimarge. sebelum itu kita akan membahas apa itu Marge Cell.

Apa Itu Marge Cell ?

Sebelum mengetahui fungsi merge cell, kamu perlu memahami pengertiannya terlebih dahulu. Menurut buku 3 in 1 Microsoft Office 2007 oleh Elcom, merge cell adalah fitur pada program Excel yang digunakan untuk menggabungkan beberapa cell excel menjadi cell tunggal.

Fitur ini terletak pada menu tab Home bagian atas program Excel. Kamu bisa memilihnya dari drop down atau ikon segitiga terbalik menu 'Merge and Center' pada kategori Alignment.
Fitur merge cell juga memiliki kesamaan dengan perintah Merge and Center. Bedanya, jika memakai fitur 'Merge and Center' hasilnya akan menggabungkan beberapa cell pada lembar kerjamu dengan merata-tengahkan isi dari cell gabungan tersebut.

Nah, sudah tau kan apa itu Marge Cell di Ms. Office Excel, Sekarang kita akan lanjut dengan pengertian apa itu AutoFit.

Apa Itu AutoFit ?

AutoFit adalah fitur di Excel yang memudahkan Anda mengubah ukuran satu atau beberapa kolom atau baris pada lembar kerja. Fitur ini membantu Anda memastikan bahwa semua data di setiap grup sel terlihat jelas.

Bagaimana caranya membuat AutoFit Cell yang Dimarge, sekarang kita akan membahas tuntas caranya. disini kita akan menggunakan VBA Excel untuk membuat AutoFit Marge Excel tersebut.

Langkah-Langkah Membuat AutoFit Marge Excel

Langkah pertama kita harus membuat Marge Cell tersebut dan sebuah Cell yang sama persis panjang kolam maupun tinggi kolam dengan Cell yang sudah kita Marge tersebut. Untuk lebih jelasnya sobat bisa lihat pada gambar dibawah.

Selanjutnya sobat masuk ke menu VBA pada Ms. Office Excel sobat. Untuk cara masuknya kita sudah bahas pada materi sebelumnya, atau sobat bisa lihat pada gambar dibawah.

Setelah sobat berada pada menu VBA tersebut, sobat klik dua kali pada Sheet yang akan kita buatkan AutoFit cell Marge tersebut, lalu selanjutnya pada kolam sebelah kiri pada kertas kerja Script sobat ganti menjadi Worksheet, lalu hapus semua Script yang muncul.

Selanjutnya Sobat copas Script yang sudah mimin buat dibawah ini ke lembar kerja VBA sobat. Untuk hasilnya bisa sobat lihat pada gambar dibawah ini.

Private Sub Worksheet_Change(ByVal Target As Range)

For baris = 1 To 3

If Not Intersect(Target, Range("A" & baris)) Is Nothing Then

ukuran = Cells(baris, 1).ColumnWidth + Cells(baris, 2).ColumnWidth

Range("A" & baris).Select

With Range("D" & baris)

    .Value = Cells(baris, 1).Value

    .WrapText = True

    .ColumnWidth = ukuran

End With

Cells(baris, 1).WrapText = True

Rows(baris).EntireRow.AutoFit

End If

Next

End Sub

Nah, proses pembuatan scriptnya sudah siap. Sedikit penjelasan dari script di atas, bisa sobat lihat pada scrip di atas "For baris = 1 To 3" itu berfungsi untuk membaca baris pada Excel kita untuk baris 1 sampai 3, karna pada tutorial yang mimin buat baris yang di Marge garis 1 sampai 3.

Selanjutnya ada "If Not Intersect(Target, Range("A" & baris)) Is Nothing Then

ukuran = Cells(baris, 1).ColumnWidth + Cells(baris, 2).ColumnWidth

Range("A" & baris).Select" itu berfungsi apa bila ada perubahan data pada Kolam "A" baris 1 dan 2 maka perintah akan dibaca. Kenapa baris 1 dan 2 ?. Karena Cell yang kita Marge terdapat pada Kolam "A" dan "B".

Selanjutnya

"With Range("D" & baris)

    .Value = Cells(baris, 1).Value

    .WrapText = True

    .ColumnWidth = ukuran

End With"

Itu berfungsi untuk membuat AutoFit pada Kolam "D" yang mana kolam "D" tersebut sijajar dengan kolam yang telah kita Marge, Maka Setiap Kolam "D" AutoFIt maka kolam yang sejajar dengan kolam tersebut juga akan menyesuiakan dengan AutoFit pada kolam "D" tersebut.

Itu sedikit penjelasan dari Script yang kita gunakan, sekarang sobat bisa melihat hasinya pada lembar kerja Ms. Office Excel sobat.

Sekian Tutorial kita pada kali ini, semoga bisa bermanfaat untuk sobat yang memerlukan tutorial ini, jangan lupa lihat juga tutorial lainnya di kumpulankoding.com yang mana pada web ini kita menyediakan berbagai macam Tutorial dan Aplikasi Open Source yang bisa Sobat gunakan untuk keperluan sobat.