VBA로 엑셀 피벗 테이블 페이지 필드 접근하기 With pvt .PivotFields(strPage).Orientation = xlPageField '

Private Sub LoopListBoxColumn() Dim itm As String Dim s Dim v As Variant Dim i As Integer Dim lst_cnt As Long ReDim v(0 To 6) lst_cnt = Me.ListBox1.ListCount - 1 For i = 0 To ListBox1.ColumnCount - 1 v(i) = ListBox1.List(lst_cnt, i) Next End Sub

​ ​ 단계 1) 위 그림처럼 UserForm1을 생성 후 각종 도구모음에서 컨트롤 들을 추가 한다. 단계 2) 기존 Module1에 위와 같이 입력한다. 단계 3) 버튼을 더블클릭하여 코드 입력 부분에 위의 내용을 붙여넣기 한다. Private Sub CommandButton1_Click() 비밀번호 = "asdf" If 비밀번호 TextBox1.Text Then MsgBox ("잘못된 비밀번호 입니다.") Exit Sub End If End Sub 단계 4) 상단 을 눌러서 Initalize 를 누른 후 코드를 붙혀 넣는다 Private Sub UserForm_Initialize() Label1.Caption = "비밀번호를 입력하세요." CommandButton1.Caption = "입력" Text..

Excel VBA 로 PivotTable 생성 PivotChart 생성 Pivot Slicer 생성 Sub PivotTableManager() '============================================================================= With Application .ScreenUpdating = False '매크로의 실행이 화면에 안 나타나도록 함 .DisplayAlerts = False '클립보드 경고 메시지 안나타남 .Calculation = xlCalculationManual ' 자동 계산 방지 End With '=============================================================================..

위 와같은 데이터가 있다는 가정하에 진행을 합니다. 엑셀의 데이터유효성 검사의 '목록' 을 이용해 유동적으로 대분류를 누르면 대분류에 해당하는 항목이 보여지고, 중분류를 누르면 중분류와 일치 하는 항목을 보여줍니다. 첫 번째 - TEMP 에 사용할 데이터를 만듭니다. 저 같은 경우는 TEMP 라는 시트에 백 데이터를 작성했습니다. 두 번째 - 메인시트에서 분류 눌렀을 때 이벤트 코드를 작성합니다. * Alt + F11을 눌러 Sheet2에 코드를 작성 합니다. Sub Worksheet_SelectionChange(ByVal Target As Range) ' ** 열이 1열 이고, 행이 4행이고, 선택한 셀의 갯수가 1개일 때만 동작하도록. ' * 처음 [대분류] 눌렀을 때 [대분류]에 리스트 추가하려고...

이 글을 작성하는 이유는 특정 경로안에 엑셀 파일들이나 사진파일, 텍스트파일 등 여러 개의 파일들이 있다면 파일명과 파일경로를 가져와 Link를 시켜준다거나 할 때 유용할 수 있습니다. 배열로 가져오기 때문에 속도 측면에서도 엄청나게 빠르게 작업을 할 수 있습니다. ​ 해당 파일을 사용할 수 있는 경우 : 서버에 취합 해둔 파일들이 모아져있고, 이 파일들을 모두 하이퍼링크를 걸어야 할 때 : 단순 특정 경로 안의 파일명을 가져오고 싶을 때 Private Sub getFileInfo() Dim strFilePath As String: strFilePath = "C:\WorkSpace\" Dim vs() As Variant vs = get_files(strFilePath) vs = ss(vs) End Sub..