카페검색 본문
카페글 본문
-
UsedRange 속성 2014.01.10해당카페글 미리보기
■ 사용된 셀범위를 반환한다 object.UsedRange object 대상이 되는 Worksheet 오브젝트 활성 워크시트에서 사용되고 있는 셀범위를 Range 오브젝트로 반환한다. 반환되는 셀 범위는 '사용'된 모든 셀을 둘러싸인 최소의 사각형이 된다. 값이 입력되어...
-
Re:문의드려요 2014.04.23해당카페글 미리보기
I).Name Next I .Range("a2").CopyFromRecordset RS .Range("a1").Resize(, RS.Fields.Count).Interior.ColorIndex = 36 .UsedRange.EntireColumn.AutoFit .UsedRange.Borders.Weight = xlThin .UsedRange.Offset(1).NumberFormatLocal = "#,##0_-;-#,##0...
-
엑셀화일을 그대로 dw에 간단하게 올려주기 2014.11.19해당카페글 미리보기
xlApp.Application.WorkBooks(1) xlSheet= xlBook.Worksheets(1) //전체 row col count ll_tot_Row = xlApp.ActiveSheet.UsedRange.Rows.Count // ll_tot_col = xlApp.ActiveSheet.UsedRange.Columns.Count // 17 st_fileinfo.Text = '총 데이타 건수...
-
[017] 사진대지 2009.07.15해당카페글 미리보기
Dim jhBool As Boolean, TBool As Boolean Dim jhShp As Shape Dim i As Integer, j As Integer For Each Trng In ActiveSheet.UsedRange '사진을 담을 범위를 배열에 저장 If Trng.MergeCells And Trng.MergeArea.Rows.Count = 9 And Trng.Address = Trng...
-
사람 잡는 19단. 그러나...... 공부합시다. ^ ^ 2018.01.24해당카페글 미리보기
20행까지 19개 행을 순환 Cells(r, c) = (c + 1) & " X " & (r - 1) & " = " & (c + 1) * (r - 1) Next Next ActiveSheet.UsedRange.Columns.AutoFit '십구단이 출력된 범위 내 각 열의 너비를 각 열 가장 긴 '텍스트에 맞춰 자동으로 조정 End Sub <시트...
-
SQL 관련하여 질문입니다. 2012.03.08해당카페글 미리보기
For i = 0 To RS.Fields.Count - 1 .Cells(1, i + 1).Value = RS.Fields(i).Name Next i .Range("a2").CopyFromRecordset RS .UsedRange.Borders.Weight = xlThin .Range("b2").Resize(RS.RecordCount).NumberFormat = "yyyy-mm-dd" .Range("f2").Resize...
-
매크로 버퍼링 줄이기....질문 2015.02.09해당카페글 미리보기
Range("B4") & "-" & .Range("B3").Value & ".xlsx" End With Sheets("월정산서").Copy Worksheets(1).UsedRange.Value = Worksheets(1).UsedRange.Value Application.Dialogs(xlDialogSaveAs).Show strFile ActiveWorkbook.Close Application...
-
행삽입 삭제 기본코드 3 2014.11.24해당카페글 미리보기
cnt As Long '카운터로 사용할 변수 Application.ScreenUpdating = False '화면 업데이트 (일시) 정지 With ActiveSheet.UsedRange '현재시트 사용영역에서 Set rngAll = .Columns(.Columns.Count) '마지막 열을 개체변수 rngAll에 넣음 End With For Each...
-
[019] SQL을 이용해서 DB의 지역별 데이터 별도시트로 작성하기 2009.07.17해당카페글 미리보기
For i = 0 To RS.Fields.Count - 1 .Cells(1, i + 1).Value = RS.Fields(i).Name Next i .Range("A2").CopyFromRecordset RS .UsedRange.EntireColumn.AutoFit .Range("A1").CurrentRegion.Borders.Weight = xlThin End With c.Clear Next c With...
-
Re: doslib.arx 관련 질문입니다 2021.01.21해당카페글 미리보기
get-property xl "workbooks") xlptah))) (setq asht (vlax-get-property wkb "activesheet")) (setq urg (vlax-get asht 'usedrange)) ;(dos_getprogress "실행중" "실행중, 기다려주십시요..." (vlax-get urg 'Count)) (vlax-for cell urg (setq str...
![[019] SQL을 이용해서 DB의 지역별 데이터 별도시트로 작성하기 이미지](https://search1.kakaocdn.net/argon/130x130_85_c/9GylhC4Fu3i)