만드는 이야기/VBA21 vba) 현재 시트의 자동 필터 끄기 Sub sub자동필터끄기() ActiveSheet.AutoFilterMode = False End Sub 2014. 3. 7. vba)현재 통합문서의 모든시트의 표서식으로 만든 모든표 범위로 변환 Sub sub모든표_언리스트() '시트형으로 변수 생성 Dim St As Worksheet '리스트오브젝트형으로 변수 생성 '표 서식으로 만든 표를 말함. Dim Lt As ListObject '각 시트마다 For Each St In Worksheets 'St.Activate '해당시트 활성화 '각 표마다 For Each Lt In St.ListObjects 'Lt.Range.Activate '해당표 활성화 '표 형식을 헤제 Lt.Unlist Next Next End Sub 2014. 3. 7. vba자작) 월마감 집계표 Sub 집계표_자동화1() Check_Msg = MsgBox("매출이 아닌가요?", vbYesNoCancel) If Check_Msg = vbCancel Then Exit Sub Do While Selection.Range("B1").FormulaR1C1 "" With Selection Debug.Print .Range("B1").Address, .Address 'Do While .Offset(0, 1).FormulaR1C1 "" 'Font_ReSet 'Debug.Print .Range("A1:J1").Address, .Address '.Range("A1:J1").ClearFormats Debug.Print .Range("B1:H1").Address, .Address .Range("B1:H1").Inse.. 2014. 3. 7. vba) 시트 존재 확인후 추가 Sub AddWorksheet(ByVal WorksheetName As String) If WorksheetExists(WorksheetName) = False ThenWorksheets.Add().name = WorksheetNameEnd If End Sub Function WorksheetExists(ByVal WorksheetName As String) As Boolean On Error Resume NextWorksheetExists = (Sheets(WorksheetName).name "")On Error GoTo 0 End Function 2014. 3. 7. 이전 1 2 3 4 5 6 다음