수다닷컴

가수 아이유와 슈퍼주니어의 멤버 은혁이 함께 찍은 한 장의 사진이 지난주말인터넷 주요 대형 게시판을 뜨겁게 달궜다. 은혁이 상의를 벗은 상태에서 찍은 사진이라 둘의 관계에 대한 다양한 추측이 쏟아졌다.‘개미’투자자들은 아이의 소속사로엔이 12일 장 시작과 동시에 폭락할 것으로 예상했다.로엔의매니지먼트사업에서 차지하는 비중이 절대적인 아이유의 인기가 떨어질 경우 이 회사가 심각한 타격을 입을 것으로 본 것이다.
이 문장에다가 랜덤으로 제가 원하는 특정 단어를 삽입 하는 함수를 만드려고 하거든요..함수(3,문장) 이렇게 하면
가수 아이유와 슈퍼주니어의 멤버특정단어 은혁이 함께 찍은 한 장의 사진이 지난주말인터넷 주요 대형 게시판을 뜨겁게 달궜다. 은혁이 상의를 벗은 상태에서 찍은 사진이라 둘의 관계에 대한 다양한 추측이 쏟아졌다.‘개미’투자자들은 아이의 소속사로엔이 12일 장 시작과 동시에 특정단어폭락할 것으로 예상했다.로엔의매니지먼트특정단어사업에서 차지하는 비중이 절대적인 아이유의 인기가 떨어질 경우 이 회사가 심각한 타격을 입을 것으로 본 것이다.
이런식으로 말이죠..쩝..앞을 랜덤으로 자르고 그다음 단어를 넣고 나머지 문장에 또 앞을 랜덤으로 자르고 단어를 넣고 뒤문장을 채우는 이런식으로 하는거보다 효율적인 방법 없을가요?
Function RanD(leng As Integer, strTem As String, Keyword As String, text As TextBox)Dim RRA As IntegerFor i = 1 To lengRRA = Int(10 * Rnd)strTem = Left(strTem, RRA) & Keyword & Replace(strTem, Left(strTem, RRA), vbNullString)Nexttext = strTemEnd Function
이런식으로 반복을 해야하나요?

신청하기