Excel & VBA---Brain Training
아래와 같은 구문을 실행하면
<![CDATA[
Sub randomNumber()
Dim iX As Integer, iY As Integer
Cells.Clear
ActiveWindow.DisplayGridlines = False
Cells.Font.Name = "맑은 고딕"
For iX = 1 To 100
For iY = 1 To 100
If Int(Rnd() * 10) > 0 Then
Cells(iX, iY) = Int(Rnd() * 99) + 1
Else
With Cells(iX, iY)
.Value = ""
End With
End If
Next
Next
Range(Cells(1, 1), Cells(100, 100)).Columns.AutoFit
End Sub
]]>
아래와 같이 난수가 만들어진다
문제는 중복되는 값을 모두 없애고 유일한 값들만 남기고
행방향으로 중간에 위의 값과 밑의 값사이가 비는 셀은 없애고
이동시키고 숫자가 들어있는 셀을 전체적으로 외곽선을 그리기!!
중복되는 값을 찾는 연습
떨어진 셀에 접근하는 연습
셀의 서식연습
순환,조건구문의 연습
Braintraining_043.
