Excel & VBA---Brain Training
2007버전의 조건부서식을 해보도록 한다
아래 구문을 실행하면 2차배열이 만들어지고 이곳에 적당히 정보를
만들어 넣고 워크시트에 뿌려주는 것까지는 되었다
<![CDATA[
Sub makeDatas()
Dim sData() As String
Dim iFirst As Integer, iSecond As Integer
Dim iX As Integer, iY As Integer
ReDim sData(1 To Int(Rnd() * 10) + 2, 1 To Int(Rnd() * 5) + 5)
iFirst = UBound(sData, 1)
iSecond = UBound(sData, 2)
For iX = 1 To iFirst
For iY = 1 To iSecond
If iY = 1 Then
sData(iX, iY) = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", _
Int(Rnd() * 10) + 1, 5) & "_" & Int(Rnd() * 100) + 10
Else
sData(iX, iY) = Int(Rnd() * 100) + 10
End If
Next
Next
With Worksheets.Add
.Range("F3").Resize(iFirst, iSecond) = sData
With .UsedRange
.Font.Name = "맑은 고딕"
.Font.Size = 10
End With
End With
remakeTable ActiveSheet, sData, iFirst, iSecond
End Sub
Sub remakeTable(shtX as Worksheet, _
sData As Variant,iFirst As Integer,iSecond As Integer)
'이곳을 채우는 것이 문제
End Sub
]]>
아래의 그림과 같이 만들어진다
remakeTable프로시져를 작성하면 아래와 같이 정보를
다른 형식으로 구성하고 2007버전의 화려한 서식을
표현하도록 하는 문제다
결과는 아래와 같이 나타나게 한다
2003버전은 다른 방법으로 위의 그림과 유사하게 만들어
보셔도 될 것이다
기능이 없으면 없는대로 만들수 있는 것이 응용력이니까!!
Braintraining_050.
