엑셀에서 랜덤 문자열 생성하는 VBA 스크립트
프로그래밍???2015. 3. 4. 15:09
별로 적절하지 않은 작업을 일괄 처리하기 위해 첫째 글자는 대문자 이후 7문자는 소문자 마지막 두자리는 숫자로 만든 9줄의 데이터를 생성한다
Sub Random_Char_Example()
Randomize
Dim R
For R = 1 To 9
Cells(R, 1).Value = Chr(Int(Rnd * 26) + 65) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 26) + 97) + Chr(Int(Rnd * 10) + 48) + Chr(Int(Rnd * 10) + 48)
Next R
End Sub
참고 자료는 아래의 링크를 참조한다
VBA매크로: 알파벳 A-Z 까지 무작위 랜덤 문자 출력; Random Char
'프로그래밍???' 카테고리의 다른 글
Redis 시작... (0) | 2015.12.11 |
---|---|
DNS의 타입에 대해... (0) | 2015.04.21 |
Parsing Valid JSON with TJSONObject using Embarcadero Code Example fails with exception (0) | 2015.01.30 |
Access Violation시 뜨는 주소값으로 에러난 라인찾기 (0) | 2015.01.30 |
델파이에서 Reader Writer Lock (0) | 2015.01.30 |