Excel & VBA---Brain Training
아래의 프로시져를 실행하면
<![CDATA[
Sub makeSampleDatas()
Dim iX As Integer, shtX As Worksheet
Dim sChars As String, btnX As Button
Set shtX = ActiveSheet
sChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For iX = 0 To 99
With Range("A2").Offset(iX)
.Value = _
Mid(sChars, Int(Rnd() * (Len(sChars) - 2)) + 1, 3) _
& "-" & Int(Rnd() * 100) + 100 & "-" & _
Mid(sChars, Int(Rnd() * (Len(sChars) - 2)) + 1, 3)
.Font.Name = "맑은 고딕"
End With
Next
Range("A1").CurrentRegion.Columns.AutoFit
For iX = 0 To 1
Set btnX = shtX.Buttons.Add(18 * iX, 0, 18, 18)
With btnX
.Characters.Font.Name = "wingdings 3"
.Characters.Text = IIf(iX = 0, "t", "u")
.OnAction = "sortNumber"
End With
Next
End Sub
Sub sortNumber()
MsgBox "왼쪽방향키를 누르면 숫자를 기준으로 내림차정렬" & _
"오른쪽화살표키를 누르면 숫자를 기준으로 오름차정렬코드 작성하세요!!"
End Sub
]]>
아래와 같이 숫자가 중간에 박인 문자열 정보가 줄줄이 만들어진다
그리고 버튼 두개가 만들어지고..매크로가 연결되고..
그런데 연결된 매크로가 빈탕이다..이곳을 채워넣기가 문제!!
왼쪽방향키를 누르면 숫자를 기준으로 내림차
오른쪽방향키를 누르면 숫자를 기준으로 오름차정렬을 하는 문제
여기에서는 엑셀의 Sort기능을 활용한다
물론 각자의 능력에 따라서 순수하게 배열로 처리하여
볼수도 있고..
Braintraining_045.
