영어문장 섞기

영어로 된 문장이 있고 이것을 섞는 사용자정의 함수이다.

간단하지만 변수가 의외로 많이 필요한 매크로

1. 문장에 있는 ,나 . 와 같은 특수문자를 없애고 배열에 넣는다.

2. 배열에 난수를 추가하여 섞는다.

Function jnWord(rngWord As String) As String
 
    Dim cntArr As Integer
    Dim i As Integer, j As Integer
    Dim arrWord As Variant
    Dim temp As Variant
    
    '문장에 붙은 특수문자 제거
    rngWord = Replace(rngWord, ",", "")
    rngWord = Replace(rngWord, ".", "")
    
    '특수문자 제거한 문장을 분리하여 배열에 넣음
    arrWord = Split(rngWord, " ")
    
    '배열 섞기
    cntArr = UBound(arrWord) - LBound(arrWord) + 1
    
    For i = LBound(arrWord) To UBound(arrWord)
        j = Int(cntArr * Rnd + LBound(arrWord))
        
        If i <> j Then
            temp = arrWord(i)
            arrWord(i) = arrWord(j)
            arrWord(j) = temp
        End If
        
    Next i
    
    jnWord = Join(arrWord, " / ")
    
End Function

+ 함수 실행 결과 +

scrambling.xlsm