카페검색 본문
카페글 본문
-
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 <시트...
