반응형 전체 글167 자동 필터 후 자동필터 목록에 있는 데이터 개수 구하기 Sub CountUniqueFilteredValues() Dim rng As Range Dim dict As Object Dim cell As Range Dim uniqueCount As Long Dim ws As Worksheet ' 현재 활성 워크시트 설정 Set ws = ActiveSheet ' 범위 설정 Set rng = ws.Range("A2").CurrentRegion ' 자동 필터 모드 확인 If Not ws.AutoFilterMode Then MsgBox "자동 필터가 적용되어 있지 않습니다. 먼저 필터를 적용해 주세요.", vbInformation Exit Sub Else End If ' .. 2024. 7. 11. Range.Hidden property - 행 또는 열 표시/숨기기 Range.Hidden 속성 행이나 열이 숨겨져 있는지 여부를 나타내는 Variant 값을 반환하거나 설정합니다. Syntax expression.Hidden expression : Range 개체를 나타내는 변수입니다. 비고 행이나 열을 숨기려면 이 속성을 True로 설정합니다. 지정된 범위는 전체 열이나 행에 걸쳐 있어야 합니다. 예제 1 : 특정 행 숨기기 Sub HideSingleRow() Rows("3:3").Hidden = True End Sub 예제 2 : 여러 행 숨기기 Sub HideMultipleRows() Rows("5:7").Hidden = True End Sub 예제 3 : 조건에 따른 행 숨기기 Sub HideRowsConditionally() Dim row As Range Fo.. 2024. 3. 9. ListObject.SourceType property ListObject.SourceType 속성 목록의 현재 소스를 나타내는 XlListObjectSourceType 값을 반환합니다. XlListObjectSourceType enumeration (Excel) Office VBA reference topic learn.microsoft.com Syntax expression.SourceType expression : ListObject 개체를 나타내는 변수입니다. 다음 샘플 코드는 활성 통합 문서의 Sheet1에 있는 기본 목록의 원본을 나타내는 XlListObjectSourceType 상수에 해당하는 문자를 출력합니다. Sub Test() Dim wrksht As Worksheet Dim oListObj As ListObject Set wrksht = .. 2024. 3. 6. ListObject.ShowTotals property ListObject.ShowTotals 속성 Total 행이 표시되는지 여부를 나타내는 Boolean 형식을 가져오거나 설정합니다. 읽기/쓰기가 가능한 Boolean입니다. Syntax expression.ShowTotals expression : ListObject 개체를 나타내는 변수입니다. 다음 코드는 요약 행을 표시합니다. Sub ShowTableTotals() Dim ws As Worksheet Dim tbl As ListObject Set ws = ThisWorkbook.Sheets("Sheet1") Set tbl = ws.ListObjects("Product") tbl.ShowTotals = True End Sub 매크로 실행 후 도움말 출처 ListObject.ShowTotals prope.. 2024. 3. 5. 이전 1 2 3 4 5 ··· 42 다음 반응형
