블로그
- (1793) 데이터 재배치하기 (엑셀 VBA 매크로) Option Explicit Sub trans_Data() Dim rngAll As Range '전체 영역을 넣을 영역변수 Dim varD() '데이터를 넣을 배열 변수 Dim rngCol 배열의 행 늘려갈 변수 Dim rngC As Range '각 셀을 순환할 영역 변수 Application.ScreenUpdating = False '화면 업데이트 (일시) 중지 With
-
(1793) 데이터 재배치하기 (엑셀 VBA 매크로)
Option Explicit Sub trans_Data() Dim rngAll As Range '전체 영역을 넣을 영역변수 Dim varD() '데이터를 넣을 배열 변수 Dim rngCol 배열의 행 늘려갈 변수 Dim rngC As Range '각 셀을 순환할 영역 변수 Application.ScreenUpdating = False '화면 업데이트 (일시) 중지 With
- (1781) 데칼코마니(대칭복사) (엑셀 VBA 매크로) Option Explicit Sub Decalcomanie() Dim rngR As Range '선택영역 행(R)ow을 넣을 변수 Dim rngC As Range '각 셀(C)ell을 '매크로 중단 End If With.......
-
(1781) 데칼코마니(대칭복사) (엑셀 VBA 매크로)
Option Explicit Sub Decalcomanie() Dim rngR As Range '선택영역 행(R)ow을 넣을 변수 Dim rngC As Range '각 셀(C)ell을 '매크로 중단 End If With.......
- (1785) 이름 바뀔때마다 다른 페이지에 인쇄 (엑셀 VBA 매크로) Option Explicit Sub print_Same_Name_Preview() '미리보기에 연결된 프로시저 Dim r As Long '행을 하나씩 늘려갈 변수 Dim i As Long Application.ScreenUpdating = False '활성화시 다음페이지 미리보기 안되므로 주의 r = 1 '첫행을 건너뛰고 2행 부터 실행 i = 1 '첫페이지 건너뛰므로 1부터 시작 With
-
(1785) 이름 바뀔때마다 다른 페이지에 인쇄 (엑셀 VBA 매크로)
Option Explicit Sub print_Same_Name_Preview() '미리보기에 연결된 프로시저 Dim r As Long '행을 하나씩 늘려갈 변수 Dim i As Long Application.ScreenUpdating = False '활성화시 다음페이지 미리보기 안되므로 주의 r = 1 '첫행을 건너뛰고 2행 부터 실행 i = 1 '첫페이지 건너뛰므로 1부터 시작 With
- (1786) 클릭시마다 도형 문자와 색바꾸기 (엑셀 VBA 매크로) Option Explicit Sub change_Text_With_Color() Dim shp As Shape '도형을 넣을 개체 변수 Set shp = ActiveSheet.Shapes (Application.Caller) '매크로를 실행한 도형을 개체변수에 넣음 With shp.TextFrame2.TextRange '도형의 텍스트 프레임 영역 Select Case
-
(1786) 클릭시마다 도형 문자와 색바꾸기 (엑셀 VBA 매크로)
Option Explicit Sub change_Text_With_Color() Dim shp As Shape '도형을 넣을 개체 변수 Set shp = ActiveSheet.Shapes (Application.Caller) '매크로를 실행한 도형을 개체변수에 넣음 With shp.TextFrame2.TextRange '도형의 텍스트 프레임 영역 Select Case
- [WITB] 필 미켈슨의 2019 AT&T Pebble Beach National Pro-Am 우승 클럽 Mickelson’s winning WITB: 2019 AT&T Pebble Beach National Pro-Am (2019년 2월 11일 기준) 드라이버: Callaway Rogue Sub Zero (9) 샤프트: Project X HZRDUS T1100 우드 3번: Callaway Epic Flash Sub Zero (13.5) 샤프트: Mitsubishi Fubuki
- 2018, the 22th of Oct. Mon "The whole level is restricted." He's with the others in holding sub-level 3. . How .......