Excel Spintax Maker

Kali ini saya iseng-iseng membuat spintax sendiri dengan menggunakan Excel VBA, ini hanya contoh sederhana dari cara kerja sebuah spintax.

Untuk menghasilkan sebuah artikel yang baik tentu dibutuhkan sebuah database sinonim kata yang banyak.

untuk script spintax ini sangat sederhana menggunakan sebuah pengulangan saja, mungkin ini akan terasa lambat jika sudah memiliki database kata yang banyak.

Solusinya bisa diganti perngulangan dengan metode FIND sehingga bisa langsung ke tujuan

Sub CreateSpintax()
    Dim cell As Range
    Dim spintax As String
    Dim keywords As Variant
    Dim keyword As Variant
    Dim DBspin As Worksheet
    
    Set DBspin = Sheet2
    keywords = DBspin.Range("A2:A47").Value    'Database Keyword
    
    Dim words() As String
    words = Split(Sheet1.Range("A2").Value, " ")
    
    For Each word In words
        If Len(word) > 0 Then
            For Each keyword In keywords
                If InStr(keyword, word) > 0 Then
                    spintax = spintax & "{" & keyword & "}"
                    Exit For
                End If
            Next keyword
            
            If Right(spintax, 1) = "}" Then
                spintax = spintax & " "
            Else
                spintax = spintax & " " & word & " "
            End If
        End If
    Next word
    
    Sheet1.Range("L2").Value = spintax
End Sub

Download File:

[download id=”806″]

.