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

 
Previous Post 자바/Java] 부동소수점 연산 오차 수정 출력하기 - Floating-Point: 9.7...한글을 한자로 변환 입력하기: 포토샵/울트라에디트, Chine Character Input...한자] 초서, 전서, 예서, 행서, 해서 검색 사이트: Chinese Seal Charac...윈도우] 리눅스 히든파일명으로 리네임, 파일명 앞에 마침표(.)넣기: Rename Linu...울트라에디트 자동완성 파일 만들기/지정하기 - UltraEdit Auto-Completio...Vim, VI, GVim 에디터: 자동 완성 핫키 - Auto-Complete, Word ...울트라에디트 자동완성 핫키 - UltraEdit Auto-Complete Hotkey엑셀/Excel] VBA의 Rnd 함수로, 1에서 100까지의 랜덤 숫자 만들기엑셀] VBA에서 RAND() 함수 에러: Sub 또는 Function이 정의되지 않았습니...구글] 프로그래밍 소스 코드 검색, 특수문자 검색: Google Code Search

엑셀VBA매크로.예제: 셀 테두리에 색상 지정, 행운의 시트 만들기, Excel Sheet of Fortune

Sunday, October 08, 2006

각 셀의 테두리에 랜덤한 색깔을 입혀, 어딘가 팬시한 분위기의 시트로 만드는 예제입니다.


실행 속도를 높이기 위해
Application.ScreenUpdating = False
로 화면 업데이트를 잠시 중지시켰습니다.

Cells(R, C).Borders.Color
이 코드가 셀의 테두리 색입니다.

Sub sheetOfFortune()
  Randomize
  Application.ScreenUpdating = False

  Dim R, C

    For R = 1 To 50
      For C = 1 To 30

        Cells(R, C).Borders.Color = RGB(Int(Rnd * 256) + 80, Int(Rnd * 256) + 80, Int(Rnd * 256) + 80)

      Next C
    Next R

  Application.ScreenUpdating = True
End Sub




실행 결과:
엑셀VBA 예제, 셀 테두리 색깔 변경

아주 간단한 코드지만 재미 있는 결과가 나왔습니다.


☞ 오피스(Office)/엑셀(Excel)/워드(Word)

2 Comments:
At 3:18 PM, Blogger Archmond said...

아직까지 계속 멋진 글 올려 주시고 계시군요.. ^^
그 열정에 한 표!

전 열심히 군생활 하는 중입니다.

 
At 3:23 PM, Blogger mwultong 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