์ด๋ณด์๋ฅผ ์ํ ์์ ๋งคํฌ๋ก
๋งคํฌ๋ก๋ก ํ ์ ์๋ ์ผ
๋งคํฌ๋ก๋ ๋ณธ์ง์ ์ผ๋ก ์ธ์ ๋ ์ง ๋ค์ ์คํํ ์ ์๋ ์์ ์์ ์ ๋ นํ๋ณธ์ ๋๋ค. ์ด ๋ณด๊ณ ์ ์์ ์ง์ , ์ ๋ฐ์ดํฐ ๋ด๋ณด๋ด๊ธฐ ์ ๋ฆฌ, ์ด ์ฐจํธ ๋ง๋ค๊ธฐ ๋ฑ ๊ฐ์ ์์ ์์๋ฅผ ๋ฐ๋ณตํ๊ณ ์๋ค๋ฉด ์๋ํ ๋์์ ๋๋ค. ๋งคํฌ๋ก๋ ๋ฐ๋ณต ์์ ์ ํด๋ฆญ ํ ๋ฒ์ผ๋ก ๋ฐ๊พธ์ด ๋งค์ฃผ ๋ช ์๊ฐ์ฉ ์ ์ฝํด ์ค๋๋ค.
ํ๋ก๊ทธ๋๋จธ๊ฐ ๋ ํ์๋ ์์ต๋๋ค. ์์ ์ ๋งคํฌ๋ก ๊ธฐ๋ก๊ธฐ๋ ํค ์ ๋ ฅ๊ณผ ๋ง์ฐ์ค ํด๋ฆญ์ ์บก์ฒํ์ฌ ์๋์ผ๋ก VBA(Visual Basic for Applications) ์ฝ๋๋ก ๋ณํํฉ๋๋ค. ๊ธฐ๋กํ ํ์๋ ๋ฒํผ, ํค๋ณด๋ ๋จ์ถํค ๋๋ ํตํฉ ๋ฌธ์ ์ด๋ฒคํธ๋ฅผ ํตํด ๋งคํฌ๋ก๋ฅผ ์คํํฉ๋๋ค.
๋จ๊ณ๋ณ ๊ฐ์ด๋: ์ฒซ ๋งคํฌ๋ก ๊ธฐ๋กํ๊ธฐ
์๋๋ฆฌ์ค: ๋งค์ฃผ ์์์ผ๋ง๋ค ๋์ผํ ์์์ด ํ์ํ ์์ ํ๋งค ๋ณด๊ณ ์๋ฅผ ๋ฐ์ต๋๋ค: ํค๋ ๊ตต๊ฒ, ๋งค์ถ ์ด ํตํ ํ์, ์ด ๋๋น ์๋ ๋ง์ถค, ์๋จ ํ ๊ณ ์ , ํฉ๊ณ ํ ์ถ๊ฐ. ์ด ๊ณผ์ ์ ์๋ํํด ๋ณด์ธ์.
1๋จ๊ณ โ ๊ฐ๋ฐ ๋๊ตฌ ํญ ํ์ฑํ
- ๋ฆฌ๋ณธ์ ์๋ฌด ๊ณณ์ด๋ ๋ง์ฐ์ค ์ค๋ฅธ์ชฝ ๋ฒํผ ํด๋ฆญ > ๋ฆฌ๋ณธ ์ฌ์ฉ์ ์ง์ .
- ์ค๋ฅธ์ชฝ ํจ๋์์ ๊ฐ๋ฐ ๋๊ตฌ๋ฅผ ์ ํํฉ๋๋ค. ํ์ธ์ ํด๋ฆญํฉ๋๋ค.
- ์ด์ ๋ฆฌ๋ณธ์ ๊ฐ๋ฐ ๋๊ตฌ ํญ์ด ๋ํ๋ฉ๋๋ค โ ์ด๊ฒ์ด ๋งคํฌ๋ก ์ปจํธ๋กค ์ผํฐ์ ๋๋ค.
2๋จ๊ณ โ ๊ธฐ๋ก ์ ์ ๊ณํํ๊ณ ์ฐ์ตํ๊ธฐ
- ๋งคํฌ๋ก ๊ธฐ๋ก๊ธฐ๋ ์ค์๋ฅผ ํฌํจํ ๋ชจ๋ ํด๋ฆญ๊ณผ ํค ์ ๋ ฅ์ ์บก์ฒํฉ๋๋ค. ๊ธฐ๋กํ์ง ์๊ณ ๋จผ์ ์ ํํ ์์๋ฅผ ์ฐ์ตํ์ธ์.
- ๋ณด๊ณ ์ ์์ ์ง์ ์ ๊ฒฝ์ฐ ์์๋ ๋ค์๊ณผ ๊ฐ์ ์ ์์ต๋๋ค: ๋ชจ๋ ์ ํ (Ctrl+A), ํค๋ ๊ตต๊ฒ (Ctrl+B), ๋งค์ถ ์ด ํตํ ํ์ (Ctrl+Shift+$), ์ด ๋๋น ์๋ ๋ง์ถค (๋ชจ๋ ์ ํ > ์ด ๊ฒฝ๊ณ ๋๋ธ ํด๋ฆญ), ์๋จ ํ ๊ณ ์ (๋ณด๊ธฐ > ํ ๊ณ ์ > ์๋จ ํ ๊ณ ์ ).
- ๊ฐ ์์ ์ ์ฐ์ตํ์ธ์. ๊ฐ๋ฅํ๋ฉด ํค๋ณด๋ ๋จ์ถํค๋ฅผ ์ฌ์ฉํ์ธ์ โ ๋ง์ฐ์ค ํด๋ฆญ๋ณด๋ค ๋ ๊น๋ํ VBA ์ฝ๋๋ฅผ ์์ฑํฉ๋๋ค.
3๋จ๊ณ โ ๋งคํฌ๋ก ๊ธฐ๋กํ๊ธฐ
- ๊ฐ๋ฐ ๋๊ตฌ > ๋งคํฌ๋ก ๊ธฐ๋ก.
- ๋งคํฌ๋ก ์ด๋ฆ:
FormatWeeklyReport(๊ณต๋ฐฑ ์์ด, ์ค๋ช ์ ์ผ๋ก). - ๋ฐ๋ก ๊ฐ๊ธฐ ํค: Ctrl+Shift+R (Ctrl+C์ ๊ฐ์ ๊ธฐ๋ณธ ๋จ์ถํค๋ฅผ ๋ฎ์ด์ฐ์ง ์๋๋ก ํญ์ Ctrl+Shift๋ฅผ ์ฌ์ฉํ์ธ์).
- ๋งคํฌ๋ก ์ ์ฅ ์์น: ๋ชจ๋ ํ์ผ์์ ์ฌ์ฉํ๋ ค๋ฉด ๊ฐ์ธ์ฉ ๋งคํฌ๋ก ํตํฉ ๋ฌธ์, ์ด ํ์ผ์์๋ง ์ฌ์ฉํ๋ ค๋ฉด ํ์ฌ ํตํฉ ๋ฌธ์.
- ์ค๋ช : "ํค๋ ๊ตต๊ฒ, ๋งค์ถ ํตํ ํ์, ์ด ์๋ ๋ง์ถค, ์๋จ ํ ๊ณ ์ , ํฉ๊ณ ์ถ๊ฐ."
- ํ์ธ์ ํด๋ฆญํฉ๋๋ค. ๊ธฐ๋ก์ด ์์๋ฉ๋๋ค โ ์ํ ํ์์ค์ ์ค์ง ๋ฒํผ์ด ๋ํ๋ฉ๋๋ค.
4๋จ๊ณ โ ๊ฐ ์์ ์์ ์ ์ ์คํ๊ฒ ์คํํ๊ธฐ
- Ctrl+A๋ฅผ ๋๋ฌ ๋ชจ๋ ๋ฐ์ดํฐ๋ฅผ ์ ํํฉ๋๋ค.
- ํค๋์ ๊ตต๊ฒ ์ ์ฉ: 1ํ์ ์ ํํ๊ณ Ctrl+B.
- ๋งค์ถ ์ด ์์ ์ง์ : C์ด์ ์ ํํ๊ณ Ctrl+Shift+$ (ํตํ ํ์).
- ์ด ๋๋น ์๋ ๋ง์ถค: Ctrl+A๋ฅผ ๋๋ฅธ ๋ค์, ํค๋์์ ์ด ๊ฒฝ๊ณ๋ฅผ ๋๋ธ ํด๋ฆญํฉ๋๋ค.
- ์๋จ ํ ๊ณ ์ : ๋ณด๊ธฐ > ํ ๊ณ ์ > ์๋จ ํ ๊ณ ์ .
- ํฉ๊ณ ํ ์ถ๊ฐ: ๋ฐ์ดํฐ ์๋ ๋ง์ง๋ง ๋น ํ์ ์ ํํ๊ณ
=SUM(C2:C100)์ ์ ๋ ฅํ ๋ค์, ๊ตต๊ฒ ๋ฐ ํตํ ํ์์ผ๋ก ์ง์ ํฉ๋๋ค. - ๊ฐ๋ฐ ๋๊ตฌ > ๊ธฐ๋ก ์ค์ง๋ฅผ ํด๋ฆญํฉ๋๋ค (๋๋ ์ํ ํ์์ค์ ์ฌ๊ฐํ ์ค์ง ๋ฒํผ์ ํด๋ฆญํฉ๋๋ค).
5๋จ๊ณ โ ์ ๋ณต์ฌ๋ณธ์์ ํ ์คํธํ๊ธฐ
- ๋ค์ ์ฃผ์ ์์ ๋ณด๊ณ ์ ๋ณต์ฌ๋ณธ์ ๋ง๋ญ๋๋ค (ํญ์ ๋ณต์ฌ๋ณธ์์ ๋จผ์ ๋งคํฌ๋ก๋ฅผ ํ ์คํธํ์ธ์ โ ๋งคํฌ๋ก์๋ ์คํ ์ทจ์๊ฐ ์์ต๋๋ค).
- Ctrl+Shift+R์ ๋๋ฆ ๋๋ค (ํ ๋นํ ๋ฐ๋ก ๊ฐ๊ธฐ ํค).
- ์์ ์ด 1์ด๋ ์ ๋์ด ๋ชจ๋ ์์ ๋จ๊ณ๋ฅผ ์คํํ๋ ๊ฒ์ ์ง์ผ๋ณด์ธ์. ๋งค์ฃผ 5๋ถ ๊ฑธ๋ฆฌ๋ ์์ ์ด ์ด์ ์ฆ์ ์๋ฃ๋ฉ๋๋ค.
- ๊ฐ๋ฐ ๋๊ตฌ > ๋งคํฌ๋ก > ๋งคํฌ๋ก ์ ํ > ํธ์งํ์ฌ VBA ์ฝ๋๋ฅผ ๋ณด๊ณ ์์ ํฉ๋๋ค.
ํต์ฌ ๊ธฐ๋ฒ
๊ธฐ๋ฒ 1 โ ์ ์ฐํ ๋งคํฌ๋ก๋ฅผ ์ํ ์๋ ์ฐธ์กฐ ์ฌ์ฉ
๊ธฐ๋ณธ์ ์ผ๋ก ๋งคํฌ๋ก๋ ์ ๋ ์ ์ฐธ์กฐ๋ฅผ ๊ธฐ๋กํฉ๋๋ค (ํญ์ B2 ์ ํ). ์ปค์ ์์น์ ๊ด๊ณ์์ด ์๋ํด์ผ ํ๋ ๋งคํฌ๋ก์ ๊ฒฝ์ฐ:
- ๊ฐ๋ฐ ๋๊ตฌ > ์๋ ์ฐธ์กฐ ์ฌ์ฉ (๊ธฐ๋กํ๊ธฐ ์ ์ ์ผ๋์ธ์).
- ์ด์ "3์ ์๋๋ก ์ด๋ํ์ฌ SUM ์ ๋ ฅ"๊ณผ ๊ฐ์ ์์ ์ ํ๋ฉด ์์ ์ ๊ณผ ๊ด๊ณ์์ด ํด๋น ์๋์ ์ด๋์ ๋ฐ๋ณตํฉ๋๋ค โ ๋ค์ํ ์์น์ ์ ์ฉ๋๋ ๋งคํฌ๋ก์ ์๋ฒฝํฉ๋๋ค.
๊ธฐ๋ฒ 2 โ ์ํฌ์ํธ์ ๋ฒํผ ์ถ๊ฐํ๊ธฐ
- ๊ฐ๋ฐ ๋๊ตฌ > ์ฝ์ > ๋จ์ถ(์์ ์ปจํธ๋กค). ์ํธ์ ์ฌ๊ฐํ์ ๊ทธ๋ฆฝ๋๋ค.
- ๋งคํฌ๋ก ์ง์ ๋ํ ์์๊ฐ ๋ํ๋ฉ๋๋ค โ ๋งคํฌ๋ก๋ฅผ ์ ํํ๊ณ ํ์ธ์ ํด๋ฆญํฉ๋๋ค.
- ๋ฒํผ์ ๋ง์ฐ์ค ์ค๋ฅธ์ชฝ ๋ฒํผ์ผ๋ก ํด๋ฆญ > ํ ์คํธ ํธ์งํ์ฌ "๋ณด๊ณ ์ ์์ ์ง์ "์ผ๋ก ๋ผ๋ฒจ์ ์ง์ ํฉ๋๋ค.
- ๋ฒํผ์ ์ฌ์ฉํ๋ฉด ํตํฉ ๋ฌธ์๋ฅผ ์ฌ๋ ๋๊ตฌ๋ ๋งคํฌ๋ก๋ฅผ ์ฐพ์ ์ ์์ต๋๋ค โ ํค๋ณด๋ ๋จ์ถํค๋ฅผ ๊ธฐ์ตํ ํ์๊ฐ ์์ต๋๋ค.
ํํ ์ค์
- ๋ถํ์ํ ์์ ๊ธฐ๋กํ๊ธฐ. ๊ธฐ๋ก๊ธฐ๋ ์คํฌ๋กค, ์ค์๋ก ์ธํ ์ ์ ํ, ์๋ํ์ง ์์ ์์ ๋ณ๊ฒฝ์ ์บก์ฒํฉ๋๋ค. ๊ธฐ๋ก๋ ์ฝ๋๋ฅผ ๊ฒํ ํ๊ณ (Alt+F11) ์๋ฏธ ์๋ ์ค์ ์ ๊ฑฐํ์ธ์.
- ํ๋ฉด ์
๋ฐ์ดํธ ๋นํ์ฑํํ์ง ์๊ธฐ. ๋งคํฌ๋ก๊ฐ ๋ชจ๋ ์
์ ํ์ ๊น๋นก์ด๋ฉฐ ์คํ๋๋ ๊ฒ์ ๋ณด๋ ๊ฒ์ ๋๋ฆฌ๊ณ ์ฐ๋งํฉ๋๋ค.
Application.ScreenUpdating = False๋ฅผ ์์ ๋ถ๋ถ์,Application.ScreenUpdating = True๋ฅผ ๋ ๋ถ๋ถ์ ์ถ๊ฐํ๋ฉด 5~10๋ฐฐ ์๋๊ฐ ํฅ์๋ฉ๋๋ค. - ๋งคํฌ๋ก ๋ณด์์ด ์์ ์ ์ฐจ๋จํ๊ธฐ. ์์ ์ ๊ธฐ๋ณธ์ ์ผ๋ก ์ ๋ขฐํ ์ ์๋ ์ถ์ฒ์ ๋งคํฌ๋ก๋ฅผ ์ฐจ๋จํฉ๋๋ค. ๋งคํฌ๋ก ์ฌ์ฉ ํตํฉ ๋ฌธ์๋ .xlsm์ผ๋ก ์ ์ฅํ์ธ์. ๊ณต์ ํ ๋๋ ๋ณด์ ๊ฒฝ๊ณ ๊ฐ ๋ํ๋๋ฉด ์ฝํ ์ธ ์ฌ์ฉ์ ํด๋ฆญํ๋๋ก ์์ ์์๊ฒ ์๋ ค์ฃผ์ธ์.
- ์คํ ์ทจ์๋ฅผ ์ฌ์ฉํ ์ ์์. ๋งคํฌ๋ก๋ ์คํ ์ทจ์ ์คํ์ ์ง์๋๋ค. ํญ์ ๋ฐ์ดํฐ ๋ณต์ฌ๋ณธ์์ ๋จผ์ ํ ์คํธํ์ธ์.
๊ณ ๊ธ ํ
- ํจ์จ์ฑ์ ์ํด ๊ธฐ๋ก๋ ์ฝ๋ ํธ์งํ๊ธฐ: ๊ธฐ๋ก๋ ๋งคํฌ๋ก๋
Select์Activate๋ฅผ ๋ง์ด ์ฌ์ฉํฉ๋๋ค(๋๋ฆผ). ์ง์ ๊ฐ์ฒด ์กฐ์์ผ๋ก ํธ์ง:Range("A1").Select: Selection.Copy๋ฅผRange("A1").Copy Destination:=Range("B1")๋ก ๋ณ๊ฒฝํ์ธ์. - ์๋ ์คํ์ ์ํ ํตํฉ ๋ฌธ์ ์ด๋ฒคํธ:
Workbook_Open()์ ์ฌ์ฉํ์ฌ ํ์ผ์ด ์ด๋ฆด ๋ ๋งคํฌ๋ก๋ฅผ ์คํํ๊ฑฐ๋,Worksheet_Change()๋ฅผ ์ฌ์ฉํ์ฌ ์ ํธ์ง์ ๋ฐ์ํฉ๋๋ค. ์ด๋ ๊ฒ ํ๋ฉด ์๋ ๋งคํฌ๋ก ์คํ์ ์์ ํ ์์จ ์ ์์ต๋๋ค. - VBA๋ก ์ฌ์ฉ์ ์ ์ ํจ์ ๋ง๋ค๊ธฐ:
Function Commission(Sales) As Double: Commission = Sales * 0.1: End Function๊ณผ ๊ฐ์ VBA ํจ์๋ฅผ ์์ฑํ ๋ค์, ์ํธ์์=Commission(A2)์ฒ๋ผ ์ฌ์ฉํ์ธ์. ๋น์ฆ๋์ค ๋ก์ง์ผ๋ก ์์ ์ ์์ ๋ผ์ด๋ธ๋ฌ๋ฆฌ๋ฅผ ํ์ฅํ์ธ์.