mwultong Blog ... 프로그래밍 / 계산기

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

 
Sunday, October 08, 2006

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


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


실행 속도를 높이기 위해
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 예제, 셀 테두리 색깔 변경

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




tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

2 Comments:
At October 8, 2006 at 3:18 PM, Blogger archmond said...

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

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

 
At October 8, 2006 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 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top