블로그
- ExportToSQL 수정판. ㅜㅜ Sub ExportToSQL() Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim sqlFile As Object Dim Dim sqlStatement As String Dim values As String Dim columnPos As Integer Dim cellValue As String ' Set
- Sheet2 A열과 B열의 각 행을 비교하여 다른 것은 문자의 바탕을 적색으로 표시 하는 매크로 Sub CompareAndHighlight() Dim ws As Worksheet Dim lastRow As Long Dim i As Long ' Set the worksheet Set
- [PPT VBA TIP] 2번 Page 테이블 참조 페이지 생성 후 테이블 항목 수 만큼 페이지 생성, 이것을 제목으로 Sub CreatePagesFromTable() Dim PowerPointApp As Object Dim PowerPointPres As Object Dim PowerPointSlide presentation Set PowerPointPres = PowerPointApp.ActivePresentation ' Set the slide and table index Set
- [VBA TIP]디렉토리 지정후 file를 불러와 하나의 시트에 파일명과 내용을 입력 directoryPath As String Dim fileName As String Dim row As Long Dim wb As Workbook Dim ws As Worksheet ' Set wb = ThisWorkbook Set ws = wb.ActiveSheet ' Set the starting row for writing the data row &.....
- [VBA TIP] Sheet3의 A1:A57 범위 내 각 셀에서 "DRAM:" 문구 앞의 모든 문자를 삭제 VBA 매크로를 사용하여 Sheet3의 A1:A57 범위 내 각 셀에서 "DRAM:" 문구 앞의 모든 문자를 삭제하려면 다음 코드를 사용할 수 있습니다 Sub DeleteTextBeforeBoardType the worksheet Set ws = ThisWorkbook.Sheets("Sheet3") ' Find the last row in column A lastRow = ws.Cells
- ppt 에 특정폴더 그림 붙이기 Sub paste_Pos2() Dim sl As Slide Set sl = ActivePresentation.Slides(1) ' Insert a picture at (0, 0).. Dim sh As Shape Set sh = sl.Shapes.AddPicture("d:\my.jpg", msoFalse, msoTrue, 0, 0) ' Set the picture's
- 엑셀시트 합병 매크로 엑셀시트 합병 매크로 Sub sheetMerge() Dim i As Integer Dim sht As Worksheet Dim rng As Range Set sht = Sheets( rng Next i End Sub 출처 내용 참고하시면 더 자세히 알수 있습니다.
- (1793) 데이터 재배치하기 (엑셀 VBA 매크로) Option Explicit Sub trans_Data() Dim rngAll As Range '전체 영역을 넣을 영역변수 Dim varD() '데이터를 넣을 배열 변수 Dim rngCol 셀을 순환할 영역 변수 Application.ScreenUpdating = False '화면 업데이트 (일시) 중지 With [A1].CurrentRegion 'A1과 연결영역 Set
-
(1793) 데이터 재배치하기 (엑셀 VBA 매크로)
Option Explicit Sub trans_Data() Dim rngAll As Range '전체 영역을 넣을 영역변수 Dim varD() '데이터를 넣을 배열 변수 Dim rngCol 셀을 순환할 영역 변수 Application.ScreenUpdating = False '화면 업데이트 (일시) 중지 With [A1].CurrentRegion 'A1과 연결영역 Set
- (1780) ArrayList 클래스 기본코드 (엑셀 VBA 매크로) Option Explicit Sub array_List() '------------------------------------------------- '1) 숫자/문자 혼용시 비교에러 발생 '2) .Contains("Apple") 으로 점검가능 '3) varR = arrList.ToArray 으로 배열로 복사가능 '4) Dim arrList2 As Object: Set