엑셀VBA매크로.예제: 셀 테두리에 색상 지정, 행운의 시트 만들기, Excel Sheet of Fortune
Sunday, October 08, 2006
스폰서 링크각 셀의 테두리에 랜덤한 색깔을 입혀, 어딘가 팬시한 분위기의 시트로 만드는 예제입니다.
실행 속도를 높이기 위해
Application.ScreenUpdating = False
로 화면 업데이트를 잠시 중지시켰습니다.
Cells(R, C).Borders.Color
이 코드가 셀의 테두리 색입니다.
실행 결과:
아주 간단한 코드지만 재미 있는 결과가 나왔습니다.
☞ 오피스(Office)/엑셀(Excel)/워드(Word)
실행 속도를 높이기 위해
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
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
실행 결과:
아주 간단한 코드지만 재미 있는 결과가 나왔습니다.
☞ 오피스(Office)/엑셀(Excel)/워드(Word)
posted by mwultong @ 2:45 PM
아직까지 계속 멋진 글 올려 주시고 계시군요.. ^^
그 열정에 한 표!
전 열심히 군생활 하는 중입니다.
휴가를 받으셨군요.
반갑습니다.
요즘 블로거닷컴에 별별 에러가 다 발생해서 아주 골치가 아프지만, 계속 포스팅을 하고 있습니다..
(∩_∩)
Post a Comment
<< Home