타산지석

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column = 1 Then Range("M" & ActiveCell.Row).Value = "F" End If If ActiveCell.Column = 13 Then Range("M" & ActiveCell.Row).Value = "" End IfEnd Sub

Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Type PRINTER_DEFAULTS pDatatype As Long pDevmode As Long DesiredAccess As Long End Type Public Type PRINTER_INFO_2 pServerName As Long pPrinterName As Long pShareName As Long pPortName As Long pDriverName As Long pComment As Long pLocation As Long pDevmode As Long ' Pointer to DEVMODE pSepFile As Long pPrintPro..

Function GetDesktop_Folder() Set WshShell = CreateObject("WScript.Shell") GetDesktop_Folder = WshShell.SpecialFolders("Desktop") + "\"End Function Function GetCurrentFolder() GetCurrentFolder = ActiveWorkbook.Path + "\"End Function .

Function Desktop_Folder_Make(str As String, Optional autoDate As Boolean = False) Set WshShell = CreateObject("WScript.Shell") deskpath = WshShell.SpecialFolders("Desktop") + "\" If autoDate = True Then Path = str & Format(Now, "-yyyymmdd-hhmmss") Else Path = str End If filePath = deskpath + Path + "\" If Dir(filePath, vbDirectory) = "" Then MkDir (filePath) End If Desktop_Folder_Make = filePath..

Function Create_Folder(str As String, Optional autoDate As Boolean = False) If autoDate = True Then Path = str & Format(Now, "-yyyymmdd-hhmmss") Else Path = str End If filePath = Path If Dir(filePath, vbDirectory) = "" Then MkDir (filePath) End If Create_Folder = filePathEnd Function .. .

Sub 시트_선택_없으면_만들기(stname As String) b = Application.DisplayAlerts Application.DisplayAlerts = False Dim s As Variant bb = False For Each s In Sheets If s.Name = stname Then s.Select bb = True Exit For End If Next s If bb = False Then Set s = Sheets(Main_Sheet) With ActiveWorkbook cnt = .Worksheets.count s.Copy After:=.Sheets(cnt) .Worksheets(cnt + 1).Name = stname End With End If Application.Dis..

Sub 사진삭제() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim s As Shape For Each s In ActiveSheet.Shapes If s.Type = 13 Then s.Delete End If Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = TrueEnd Sub .

Sub 사진입력() olines = Last_Lines_입력자동화("A") totalCols_입력자동화 = 8 Dim arrGrd() arrGrd = Range("A6").Resize(olines, totalCols_입력자동화) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For i = 1 To olines Set rngC = Range("A5").Offset(i, 9) str1 = arrGrd(i, 1) Range("A5").Offset(i, 0).Select If Right(StrConv(str1, vbLowerCase), 3) = "jpg" Then With ActiveSheet.Pictures.In..

Sub 링크만들기_없애기() olines = Last_Lines_입력자동화("A") totalCols_입력자동화 = 8 Dim arrGrd() arrGrd = Range("A6").Resize(olines, totalCols_입력자동화) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For i = 1 To olines Range("A5").Offset(i, 0).Hyperlinks.Delete Range("A5").Offset(i, 0).Font.Size = 9 Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating =..

Sub 링크만들기() olines = Last_Lines_입력자동화("A") totalCols_입력자동화 = 8 Dim arrGrd() arrGrd = Range("A6").Resize(olines, totalCols_입력자동화) Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For i = 1 To olines' Range("A5").Offset(i, 0) = arrGrd(i, 1) ActiveSheet.Hyperlinks.Add Anchor:=Range("A5").Offset(i, 0), Address:=arrGrd(i, 1) Range("A5").Offset(i, 0).Font.Size = 9 Next ..