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