컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post CMD 확장자 파일 만들기, CMD.EXE로, 파일(File) 만들기/저장(Save)하기VI-VIM-GVIM 편집기] Win32 용 빔 에디터 다운로드/사용법; Download ...울트라에디트/UltraEdit] 파일 삽입/합치기/병합; 파일 끼워 넣기/붙이기 방법; I...VI-VIM-GVIM] 파일 삽입/합치기/병합; 파일 끼워 넣기/붙이기 방법(명령어); I...울트라에디트(UltraEdit) 사용 방법 설명서, 매뉴얼, 팁, UltraeditorC언어] C에서 제곱근, 루트 근사값 계산 방법, sqrt() 함수 사용법AI (.ai) 확장자 보기/열기/읽기 프로그램; 에이 아이 파일, ai File Exte...중국어 에디터; 좋은 중문 텍스트 에디트(간체 편집기); Chinese Text Edito...Python/파이썬] 문자를 아스키 코드 번호로 변환, ASCII Code 를 문자(Cha...Python/파이썬] 10진수 숫자를 16진수(헥사;Hex)로 변환 출력

엑셀/Excel] VBA매크로: 알파벳 A-Z 까지 무작위 랜덤 문자 출력; Random Char

Wednesday, January 03, 2007

엑셀의 셀에, 알파벳 A~Z까지의 랜덤한 글자를 채워 넣는 VBA매크로입니다.

Chr(Int(Rnd * 26) + 65)

이 부분이 핵심입니다.

알파벳 대문자 A(10진수 아스키 코드로 65)에서 Z(10진수 아스키 코드로 90)에 해당되는 정수를 랜덤하게 만든 후, Chr() 함수로 그 숫자를 문자로 변경하는 것입니다.

VBA기초: A~Z까지 무작위 알파벳 발생/생성 예제: Random Char Generator


(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
Sub Random_Char_Example()

  Randomize
  Dim R

  For R = 1 To 30
    Cells(R, 1).Value = Chr(Int(Rnd * 26) + 65)
  Next R

End Sub



비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

실행 결과:
A1 셀부터 A30 셀까지 다음과 같은 식으로 무작위의 알파벳 30개가 채워집니다.
S
O
J
J
Z
I
R
C
E
O
T
S
Y
R
M
M
A
R
Y
A
B
B
R
J
K
Y
L
H
N
L



소문자로 출력 방법


Cells(R, 1).Value = Chr(Int(Rnd * 26) + 97)

이렇게 소스를 고치면 소문자로 랜덤한 알파벳이 나옵니다.


▶▶ 엑셀/Excel] VBA의 Rnd 함수로, 1에서 100까지의 랜덤 숫자 만들기

☞ 오피스/엑셀(Excel)/워드(Word)/VBA 매크로

2 Comments:
At 11:21 AM, Blogger 스키너 부국장's 그림일기장 @ Google said...

좋은정보 감사드립니다

 
At 3:07 PM, Blogger Asker said...

덕분에 편하게 작업했습니다.
감사합니다~ ^^

 

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top