Excel & VBA---Brain Training
아래와 같은 코드를 실행시키면
실행시킨 통합문서의 모든 워크시트에 랜덤으로
메모가 여러군데 삽입된다
메모의 내용은 과일이름이 역시 랜덤으로 선택되어
작성되어 진다
<![CDATA[
Sub InsertComments()
Dim shtX As Worksheet
Dim rngX As Range
Dim iCommentCount As Integer
Dim iNext As Integer
Dim oComment As Comment
On Error Resume Next
For Each shtX In ThisWorkbook.Worksheets
For Each oComment In shtX.Comments
oComment.Delete
Next
iCommentCount = Int(Rnd() * 30) + 1
For iNext = 1 To iCommentCount
Do
Err.Clear
Set oComment = _
shtX.Cells(Int(Rnd() * 60) + 1, Int(Rnd() * 10) + 1).AddComment
With oComment
.Text GetText
With .Shape.TextFrame.Characters.Font
.Name = "Tahoma"
.Size = 16
.Bold = True
End With
.Visible = False
End With
Loop While Err.Number > 0
Next
Next
End Sub
Function GetText()
Const FRUIT_NAMES = _
"Apple,Apricot,Avocado,Banana,Blue berry,Blackberry,Carambola" & _
",Carrot,Cherry,Date,Elderberry,Fig,Guave,Gooseberry,Grapefruit" & _
",Red,Grapes,Kiwi Fruit,Kumquat,Lemon,Lime,Lychee,Mango" & _
",Melon,Cantaloupe,Red Water,Olive,Orange,Papaya,Passion Fruit" & _
"Peach,Pear,Persimmon,Pineapple,Pomegranate,Plum,Star Fruit" & _
"Strawberry,Tangerine,Tomato"
GetText = Split(FRUIT_NAMES, ",")(Int(Rnd() * UBound(Split(FRUIT_NAMES, ","))))
End Function
]]>
위의 내용을 복사하여 실행시켜 보면
해당통합문서의 각각의 시트의 이곳,저곳의 셀에
메모가 삽입된다
문제는
아래의 그림과 같이 각시트별 메모의 내용을
요약정리한 보고서를 아래의 그림과 같이 자동화하라!!
그리고 메모내용을 더블크릭하면 해당 메모가 삽입된
셀로 이동하게 한다
Braintraining_030.
