타산지석

Sub 모든파일에서_오늘날짜_데이타만추출해서_넣기() Dim filesS As Variant '모든 파일(files(S)elected) 넣을 variant형 변수 Dim varTemp As Variant '각 파일을 넣을 variant형 변수 Application.DisplayAlerts = False Application.ScreenUpdating = False '화면 업데이트기능 정지 filesS = Application.GetOpenFilename(".xls And .xlsx Files(*.xls*),*.xls*", , _ "인쇄할 파일을 모두 선택.", , True) '인쇄할 파일(.xls, xlsx) 모두 선택 On Error Resume Next '에러 발생해도 다음 코드 진행 If TypeN..

엑셀 매크로 VBA 나의 함수 파일실행 Sub 파일실행(filename As String) With CreateObject("Shell.Application") .Open filename End WithEnd Sub .

엑셀 매크로 VBA 나의 함수 파일에 저장 Function tr_File_WriteAll(filename As String, Text As String) As String Dim FSO, FileToSize Set FSO = CreateObject("Scripting.FileSystemObject") Set FileToSize = FSO.OpenTextFile(filename, 2, 2) FileToSize.writeline (Text) FileToSize.Close Set FileToSize = Nothing Set FSO = Nothing End Function .

엑셀 매크로 VBA 나의 함수 딜레이 Public Declare Function GetTickCount Lib "kernel32" () As Long Public Function Delay(xxx As Single) As SingleDim X As SingleDim xx As Single X = GetTickCount() Do While (xx - X) / 1000 < xxx DoEvents xx = GetTickCount Loop Delay = X End Function

엑셀 매크로 VBA . 나의 함수 업데이트 Sub Screen_UpdateOff() Application.Calculation = xlCalculationManual' Application.EnableEvents = False Application.ScreenUpdating = FalseEnd Sub Sub Screen_UpdateOn() Application.Calculation = xlCalculationAutomatic' Application.EnableEvents = True Application.ScreenUpdating = TrueEnd Sub

엑셀 매크로 VBA . 나의 함수 마우스 커서 모양 변경 Sub tr_Cursor_Wait() Application.Cursor = xlWait Application.EnableEvents = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = False ' Application.WindowState = xlMinimizedEnd Sub Sub tr_Cursor_Default() Application.Cursor = xlDefault Application.EnableEvents = True Application.DisplayAlerts = True Ap..

엑셀 매크로 VBA 12. 나의 함수 : 웹파일 다운로드 소스 웹다운로드 소스 Option Explicit Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Const ERROR_SUCCESS As Long = 0Private Const BINDF_GETNEWESTVERSION As Long = &H10Private Const INTERNET_FLAG_RELOAD..

엑셀 매크로 VBA 11. 나의 함수 : 선택된세로줄에서 중복제거한 데이타를 새로운 위치에 넣기 소스코드 선택된세로줄에서 중복제거한 데이타를 새로운 위치에 넣기 Option Explicit Sub 선택값중중복피하여새로운곳에넣기() Dim AreaStr(1 To 5000) As String Dim ASlen As Integer Dim curval As String Dim i As Integer Dim j As Integer Dim last As Integer Dim dcol As Object Dim tf As Boolean Dim sela1 As Range Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long On Error GoT..

엑셀 매크로 VBA 10. 나의 함수 : 여러셀 가로줄,세로줄선택기 소스코드 셀을 선택후 반복해서 가로줄 / 세로줄을 선택한다. Sub 여러가로줄선택기() Dim a Dim sela1 As Range Dim sela2 As Range Dim sela3 As Range Dim cnts As String Dim cnt As Long Dim incx As Long Dim incy As Long Dim i As Long Dim j As Long On Error GoTo errhandler Set sela2 = Application.InputBox(Type:=8, prompt:="기준 셀을 선택하세요 ?", Title:="틀반복복사기") basex = CLng(sela2.Column) basey = CLng(se..

엑셀 매크로 VBA 9. 나의 함수 : 여러셀 선택기 소스코드 셀을 선택해서 반복해서 선택한다.(?) Option Explicit Dim startx As Long Dim starty As Long Dim lenx As Long Dim leny As Long Dim basex As Long Dim basey As Long Dim refx As Long Dim refy As Long Dim idx As Long Sub 여러칸선택기() Dim a Dim sela1 As Range Dim sela2 As Range Dim sela3 As Range Dim cnts As String Dim cnt As Long Dim incx As Long Dim incy As Long Dim i As Long Dim j As..