Category

Category

[Excel VBA] 선택열 각 행 값으로 메일 작성하기

Sub MAILTO() '변수 지정 Dim rngCell As Range Dim intCount As Integer Dim shtSheet As Worksheet Dim msg As String Dim rngDays As String ' 작업일 Dim rngNumber As String ' 티켓번호 Dim rngStartTime As String ' 시작시간 Dim rngEndDate As String ' 종료날짜 Dim rngEndTime As String ' 종료시간 Dim rngProgress As String ' 상태 Dim rngName As String ' 요청자 Dim rngNames As String ' 작업자 Dim rngWork As String ' 내용 Application.Displ..
[Excel VBA] 특정시트를 새문서로 만들어 저장후 메일로 발송하기

Sub ADD_Selected_Sheets() '보고용 문서 만들기 Dim ws As Worksheet Dim cs As Worksheet Dim arrSht '선택된 각 시트를 넣을 배열형 변수 arrSht = Array("업무일지") '시트를 배열에 넣음 ' 시트수가 여러개 일경우 콤마(,)로 구분한다. ActiveWorkbook.Sheets(arrSht).Copy '배열의 시트를 새로운 워크북에 넣음 Set cs = ActiveSheet '수식의 값만을 취한다. For Each ws In ActiveWorkbook.Worksheets ws.Activate With Cells .Copy .PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=Fa..
[엑셀VBA] 워크북의 여러 시트중 특정 시트만 새 워크북 만들기

Sub ADD_Selected_Sheets()'보고용 문서 만들기Dim ws As WorksheetDim cs As WorksheetDim arrSht'선택된 각 시트를 넣을 배열형 변수 arrSht = Array("PC현황", "프린터", "AXIS", "PC이력")'시트를 배열에 넣음 ActiveWorkbook.Sheets(arrSht).Copy'배열의 시트를 새로운 워크북에 넣음 Set cs = ActiveSheet '수식의 값만을 취한다. For Each ws In ActiveWorkbook.Worksheetsws.ActivateWith Cells.Copy.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=..
[엑셀VBA] 엔터 입력으로 하이퍼링크 삭제하고 다음셀(우측)로 이동하기

예제 : 아래============================================================================================ '매크로 이름을 Auto_Open으로 작성하면 문서가 열릴 때 Auto_Open에 작성된 매크로가 자동으로 실행됩니다. Sub Auto_Open() Application.OnKey "~", "Hyperlinks_Delete" 'Application 개체의 Onkey 메소드를 사용해 엔터키(" ~") 에 "Hyperlinks_Delete"라는 매크로가 실행되도록 연결합니다. End Sub '매크로 이름을 Auto_Close로 작성하면 문서가 닫힐 때 Auto_Close에 작성된 매크로가 자동으로 실행됩니다. Sub Auto_Clo..

티스토리툴바