๐
2025-06-26 ์ค๋ฌด ๋ฉ๋ชจ (SQLGate & Excel VBA)
๐ SQLGate for Oracle โ ๋จ์ถํค: Ctrl + R
ํญ๋ชฉ | ๋ด์ฉ |
---|
๋จ์ถํค | Ctrl + R |
๊ธฐ๋ฅ | ๊ฒ์ ํ ๋ฐ๊พธ๊ธฐ (Find and Replace) |
๋น๊ต | Ctrl + H ์ ๋์ผํ ๊ธฐ๋ฅ (Visual Studio ๋ฑ์์์ Replace ๋จ์ถํค) |
์ฌ์ฉ ์์ | SQL ์ฟผ๋ฆฌ ๋ด ํน์ ํค์๋ ์ผ๊ด ๋ณ๊ฒฝ (ex. ํ
์ด๋ธ๋ช
, ์ปฌ๋ผ๋ช
์์ ) |
๐ ์ค๋ฌด ํ:
- ํ
์คํธ ์ฟผ๋ฆฌ ์์ ํ ๋,
WHERE 1=1
๊ฐ์ ์กฐ๊ฑด์ ๋น ๋ฅด๊ฒ ์ผ๊ด ๋ฐ๊ฟ ๋ ์ ์ฉ
๐ Excel โ ๋ณด์ ๊ฑธ๋ฆฐ ํ์ผ์์ ๊ฐ ๋ณต์ฌ ๋งคํฌ๋ก ์ค์
๐ธ ์ํฉ ์ค๋ช
- ๋ณดํธ๋ ์ํธ์์๋ ์ผ๋ฐ์ ์ธ
Ctrl + C โ Ctrl + V
๊ฐ ์ ํ๋จ
- ์์์ด๋ ์์์ด ๋ถ์ง ์๋๋ก โ๊ฐ๋ง ๋ณต์ฌโ ํ๋ ๊ธฐ๋ฅ์ด ํ์ํจ
- ์ด๋ฏธ ์ ์ฉ๋
.xlam
๋งคํฌ๋ก Add-In์ ํ์ฉํ์ฌ ๋จ์ถํค๋ฅผ ์ค์ ํ ์ ์์
๐ VBA๋?
ํญ๋ชฉ | ๋ด์ฉ |
---|
์ ์๋ช
์นญ | Visual Basic for Applications |
์ญํ | Excel(๋๋ Word, PowerPoint ๋ฑ MS Office)์ ์๋ํ ๋๊ตฌ |
๊ธฐ๋ฅ | ๋งคํฌ๋ก ์์ฑ, ๋ฐ๋ณต ์์
์๋ํ, ๋ฒํผ ํด๋ฆญ ์ ๋ก์ง ์คํ ๋ฑ |
์ฅ์ | Excel ๋ด๋ถ ๊ธฐ๋ฅ์ ์ธ์ธํ๊ฒ ์ ์ด ๊ฐ๋ฅ (UI ์กฐ์ ํฌํจ) |
์ฌ์ฉ๋ฒ | Alt + F11 ๋ก ํธ์ง๊ธฐ ์ด๊ธฐ, ThisWorkbook ๋๋ Module ์์ ์ฝ๋ ์์ฑ |
๐ ๊ฐ ๋ณต์ฌ ๋จ์ถํค ์ค์ โ ์ ์ฉ๋ .xlam ๋งคํฌ๋ก ๊ธฐ์ค
๐ง ๋จ์ถํค ์ค์ ์ ์ฐจ
Alt + F11
โ VBA ํธ์ง๊ธฐ ์ง์
ํ์ฌ_ํตํฉ_๋ฌธ์
๋๋ ThisWorkbook
ํด๋ฆญ
- ์๋ ์ฝ๋ ์ฝ์
:
Private Sub Workbook_Open()
Application.OnKey "^+C", "๊ฐ๋ณต์ฌ"
End Sub
ํญ๋ชฉ | ์ค๋ช
|
---|
^+C | Ctrl + Shift + C ์กฐํฉ |
"๊ฐ๋ณต์ฌ" | ํธ์ถํ ๋งคํฌ๋ก ์ด๋ฆ (๊ธฐ์กด ๋งคํฌ๋ก์ ์ ํํ ์ผ์นํด์ผ ํจ) |
โ
์ ์ฝ๋๋ ํ์ผ ์ด๋ฆด ๋ ์๋์ผ๋ก ๋จ์ถํค๋ฅผ ๋ฑ๋กํจ.
๐ ๊ฐ๋ณต์ฌ ๋งคํฌ๋ก ์์
Sub ๊ฐ๋ณต์ฌ()
On Error Resume Next
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
๊ธฐ๋ฅ | ์ค๋ช
|
---|
Selection.Copy | ํ์ฌ ์ ํ๋ ์์ญ ๋ณต์ฌ |
PasteSpecial xlPasteValues | ๊ฐ๋ง ๋ถ์ฌ๋ฃ๊ธฐ |
CutCopyMode = False | ๋ณต์ฌ๋ชจ๋ ์ข
๋ฃ (ํ์ ํ
๋๋ฆฌ ์ ๊ฑฐ) |
๐ ์ค๋ฌด ์์ฝ ์ ๋ฆฌ
.xlam
์ด ์ด๋ฏธ ์ ์ฉ๋์ด ์๋ค๋ฉด, VBA๋ก ๋จ์ถํค ๋ฑ๋ก๋ง ํด์ฃผ๋ฉด ๋๋ค.
Ctrl + Shift + C
๋ฑ ์ปค์คํฐ๋ง์ด์ง ๊ฐ๋ฅ
- ์ํธ๊ฐ ๋ณดํธ ์ํ์ฌ๋ ๋์ ๊ฐ๋ฅ (๋จ, ๋ณต์ฌ ๋์ ์
์ ์ ๊ธ ํด์ ํ์)
.xlam
ํ์ผ์ Excel ์คํ ์ ์๋ ๋ก๋ฉ๋๋ฏ๋ก ๋จ์ถํค ์ ์ง๋จ
๐ง ์ฐธ๊ณ ๋ฉ๋ชจ
- ์ํธ ๋ณดํธ ์ํ๋ผ๋ VBA๋ฅผ ํตํ
PasteSpecial
์ ๋์ํ ์ ์์
- VBA ์ค๋ฅ ๋ฐฉ์ง๋ฅผ ์ํด
On Error Resume Next
๋ ๊ถ์ฅํ์ง๋ง, ๋ฌด์กฐ๊ฑด ์ฐ๊ธฐ๋ณด๋จ ์์ธ์ฒ๋ฆฌ ํ์