Membuat Kombinasi Kata Dengan Excel

Microsoft excel ternyata banyak kegunaannya selain yang paling utama adalah untuk perhitungan, bisa juga kita membuat kombinasi kata dengan excel. Disini kita menggunakan visual basic yang ada di excel. Ok kawan, kita mulai sedikit tips excel buat mengkombinasikan kata sesuai urutannya. Jadi disini bukan semua kombinasi kata, tetapi hanya kata yang sesuai urutannya dari kolom awal.

Contoh menggunakan saru baris A, 3 baris B dan 1 baris C maka hasilnya adalah: A1,B1,C1 – A1,B2,C1 – A1,B3,C1

Dengan contoh gambar agar lebih jelas:

Hasilnya seperti gambar dibawah:

Cara membuatnya menggunakan visual basic di excel, dengan kode seperti dibawah ini:

Sub Perm()
Dim rSets As Range, rOut As Range
Dim vArr As Variant, lrow As Long
 
Set rSets = Range("A1").CurrentRegion
ReDim vArr(1 To rSets.Columns.Count)
Set rOut = Cells(1, rSets.Columns.Count + 2)
Perm1 rSets, vArr, rOut, 1, lrow
End Sub
 
Sub Perm1(rSets As Range, ByVal vArr As Variant, rOut As Range, ByVal lSetN As Long, lrow As Long)
Dim j As Long
 
For j = 1 To rSets.Rows.Count
    If rSets(j, lSetN) = "" Then Exit Sub
    vArr(lSetN) = rSets(j, lSetN)
    If lSetN = rSets.Columns.Count Then
        lrow = lrow + 1
        rOut(lrow).Resize(1, rSets.Columns.Count).Value = vArr
    Else
        Perm1 rSets, vArr, rOut, lSetN + 1, lrow
    End If
Next j
End Sub

Jika kamu belum tau cara menggunakan visual basic di excel, bisa baca posting sebelumnya Menghilangkan Semua Karakter Selain Huruf Di Excel yang pada postingan tersebuat ada juga tutorial menggunakan VB nya. Semoga membantu, karna hal ini bisa di aplikasikan ke berbagai macam kebutuhan.