엑셀 색칠 놀이

엑셀 색칠놀이 Ver003-001(+애니메이션 6컷) 다운로드

엑셀 색칠놀이-Ver003.001.xlsm

0.12MB

 

구버젼

엑셀 색칠놀이-Ver002.002.xlsm

0.10MB

Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)     If Range("ac2") = "off" Then Exit Sub Application.ScreenUpdating = 0     If Intersect(Target, Range("z8:ac21")) Is Nothing _                                         Then GoTo HerePaint     Range("z3:ac4").Interior.ColorIndex = Target.Interior.ColorIndex HerePaint:     If Intersect(Target, Range("b2:x24")) Is Nothing _                                         Then Exit Sub     Target.Interior.ColorIndex = Range("z3:ac4").Interior.ColorIndex     Range("a1:y1").Interior.ColorIndex = 2     Range("a2:a28").Interior.ColorIndex = 2     Range("y2:y28").Interior.ColorIndex = 2     Range("b25:x28").Interior.ColorIndex = 2 Application.CutCopyMode = False Application.ScreenUpdating = 1 End Sub

Sub 색상판초기화()     Range("Z3:AC4").Copy     Range("AH3:AK4").Select     ActiveSheet.Paste     Range("AH8:AK21").Copy     Range("Z8").Select     ActiveSheet.Paste     Range("AH3:AK4").Copy     Range("Z3:AC4").Select     ActiveSheet.Paste Application.CutCopyMode = False End Sub

Sub 저장하기()     Application.DisplayAlerts = False         ActiveWorkbook.Save     Application.DisplayAlerts = True End Sub

 

---

작은아이 작품

접은글

 

색칠놀이 Ver002.001

엑셀 색칠놀이-Ver002.001.xlsm

0.06MB

---

구버전 색칙놀이 Ver001

엑셀 work 다운로드

엑셀 색칠놀이.xlsm

0.02MB

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("a2:x24")) Is Nothing _                                     Then Exit Sub Dim C1, C2, C3, C0 As Long C1 = Range("aa6").Interior.ColorIndex C2 = Range("aa7").Interior.ColorIndex C3 = Range("aa8").Interior.ColorIndex C0 = -4142 With Target.Interior     If .ColorIndex = C0 Then         .ColorIndex = C1              Else             If .ColorIndex = C1 Then                 .ColorIndex = C2             Else                 If .ColorIndex = C2 Then                     .ColorIndex = C3                 Else                     .ColorIndex = C0                 End If             End If     End If End With Range("ae6").Select End Sub

칼리의 창작 로봇

칼리의 트랜스모퍼 2