UDF TEXTJOIN

Prasyarat:


Rumus TEXTJOIN merupakan sebuah fungsi dalam Microsoft Excel yang digunakan untuk menggabungkan teks dari beberapa Cells atau Range ke dalam satu teks tunggal dengan menggunakan delimiter (pemisah) yang ditentukan.

Fungsi TEXTJOIN sangat berguna ketika ingin menggabungkan teks dari beberapa sel ke dalam satu sel atau membuat string teks yang terdiri dari beberapa nilai dengan rumus yang simple.

Sayangnya rumus ini baru muncul diawal versi Microsoft Office 2019,

Bagi pengguna Office dibawah 2019 tentu belum bisa menggunakan rumus ini, dan harus menggunakan cara penggabungan manual menggunakan operator & , atau menggunakan rumus CONCATENATE seperti dibawah ini

Tapi tenang saja, bagi kamu yang kesulitan menggunakan cara manual dan rumusnya tentu akan panjang.

Bisa menggunakan alternatifnya yaitu UDF atau User-Defined Function. Dimana rumus TEXTJOIN ini kita buat sendiri dan bisa digunakan di versi Office dibawah 2019.

Untuk membuat UDF langkah-langkahnya adalah:

  • tekan Alt + F11 untuk membuka Jendela Visual Basic Editor
  • Pada Menu Bar, Pilih Insert Module
  • Pastekan Script dibawah ini ke dalam module
Function TEXTJOINku(Pemisah As String, Kosong As Boolean, Rng As Range)
'-----------------------------------------
' Sctipt VBA    : TEXTJOIN UDF
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------
    Dim d As Long
    Dim c As Long
    Dim Rng2()
    Dim Tinggi As Long, Lebar As Long
    
    Tinggi = -1
    Lebar = -1
    If TypeName(Rng) = "Range" Then
        Rng2 = Rng.Value
    Else
        Rng2 = Rng
    End If
    
    On Error Resume Next
    
    Tinggi = UBound(Rng2, 2)
    Lebar = UBound(Rng2, 1)
    
    On Error GoTo 0

    If Tinggi >= 0 And Lebar >= 0 Then
        For c = LBound(Rng2, 1) To UBound(Rng2, 1)
            For d = LBound(Rng2, 1) To UBound(Rng2, 2)
                If Rng2(c, d) <> "" Or Not Kosong Then
                    TEXTJOINku = TEXTJOINku & Rng2(c, d) & Pemisah
                End If
            Next d
        Next c
    Else
        For c = LBound(Rng2) To UBound(Rng2)
            If Rng2(c) <> "" Or Not Kosong Then
                TEXTJOINku = TEXTJOINku & Rng2(c) & Pemisah
            End If
        Next c
    End If
    
    TEXTJOINku = Left(TEXTJOINku, Len(TEXTJOINku) - Len(Pemisah))
End Function

Jika sudah ditambahkan script diatas kedalam module, silahkan tutup kembali jendala visual basic editor, dan cek ketersedian rumus di worksheet.

Pada saat ini seharusnya rumus TEXTJOINku sudah muncul di list Rumus Excel pada worksheet, contohnya seperti gambar dibawah ini.

Untuk penggunaan rumus UDF TEXTJOINku ini sama seperti rumus TEXTJOIN yang asli yang ada di 2019 keatas, yaitu menggunakan sintak

=TEXTJOINku(delimiter, ignore_empty, Range)

Untuk contoh penggunaannya bisa dilihat dibawah ini:

kata “ku” bisa saja dihapus, menjadi TEXTJOIN saja, disini saya tambahkan ku karena agar tidak bentrok dengan rumus TEXTJOIN asli

vba.co.id
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search