블로그
-
[VBA]프린터를 선택하여 인쇄하기
Sub 프린터선택인쇄() Dim 선택 As Boolean #Boolean은 논릿값 Dim 기본 As String 기본 = ActivePrinter 선택 = Application.Dialogs = 기본 #기본프린터값 복원 End If End Sub 저자 최준선의 엑셀 매크로&VBA 바이블를 토대로 작성하였습.......
blog.naver.com · 2021.09.13
-
[VBA] 순환문 컬렉션 활용 및 응답없음 문제해결하기
For Each Dim 개체변수 As 개체형식 For Each In 컬렉션 실행 명령 Next Sub 시트이름() Dim 시트 As Worksheet Dim i As Integer Range("B"& i).Value = 시트.Name 'B열 i행 셀의 값을 시트이름으로 입력합니다. i = i + 1 End If Next End Sub Application
blog.naver.com · 2021.07.23
-
[VBA] IF문을 사용하여 조건에 맞는 정보만 정리하기
Sub 취득내역() Dim R As Integer R = 4 If Not Range("E4").Value = 0 Then Range("I" & R).Value = Range(
blog.naver.com · 2021.07.15
-
Python - Simple Matching
- search function : use re.search(r"search key word", "string") r means raw string - check if the text ' - re.search(r"key word", "string", re.IGNORECASE) : return the path regardless of the case - what if
blog.naver.com · 2020.07.27
-
[MV] HAE BIN (gugudan) - On the Road(길에서) Radio romance OST Part.6 (라디오로맨스 OST Part.6) #라디오로맨스, #라디오로맨스 OST, #김소현, #윤두준
OST Part.6) [MV] HAE BIN (gugudan) – On the Road(길에서) Radio romance OST Part.6 (라디오로맨스 OST Part.6) Sub Please click below link if you are interested in participating with subtitle. —.......
blog.naver.com · 2019.08.28
-
(1781) 데칼코마니(대칭복사) (엑셀 VBA 매크로)
Option Explicit Sub Decalcomanie() Dim rngR As Range '선택영역 행(R)ow을 넣을 변수 Dim rngC As Range '각 셀(C)ell을 Selection.Cells.Count = 1 Then '1셀만 선택한 경우 MsgBox "매크로 실행전 먼저 영역을 선택" '메시지 출력 Exit Sub '매크로 중단 End If
blog.naver.com · 2019.04.09
-
(1781) 데칼코마니(대칭복사) (엑셀 VBA 매크로)
Option Explicit Sub Decalcomanie() Dim rngR As Range '선택영역 행(R)ow을 넣을 변수 Dim rngC As Range '각 셀(C)ell을 Selection.Cells.Count = 1 Then '1셀만 선택한 경우 MsgBox "매크로 실행전 먼저 영역을 선택" '메시지 출력 Exit Sub '매크로 중단 End If
blog.naver.com · 2019.04.09
-
(1791) 셀병합된 영역의 합계 구하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub sum_Of_Merge_Area() Dim r As Long '행(r)ow 늘려갈 변수 Dim cntArea (일시)정지 r = 2 '2행부터 시작 Do '실행 Cells(Rows.Count, "D").End(3)(2) = Cells(r, 1) '종단셀 D열 윗방향 바로 아래셀에 제목 If
blog.naver.com · 2019.04.15
-
(1791) 셀병합된 영역의 합계 구하기 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub sum_Of_Merge_Area() Dim r As Long '행(r)ow 늘려갈 변수 Dim cntArea (일시)정지 r = 2 '2행부터 시작 Do '실행 Cells(Rows.Count, "D").End(3)(2) = Cells(r, 1) '종단셀 D열 윗방향 바로 아래셀에 제목 If
blog.naver.com · 2019.04.15
-
(1779) 병합셀 내의 *이후 문자 삭제 (엑셀 VBA 매크로)
매크로 실행 전 매크로 실행 후 결과 Option Explicit Sub delete_After_Asterisk() Dim r As Long '행(r)ow 늘려갈 변수 Dim i As 1), Chr(10)) 'Alt + 엔터를 구분자로 하여 나누어 배열에 넣음 For i = LBound(varS) To UBound(varS) '배열 하한선에서 상한선까지 반복 If
blog.naver.com · 2019.04.07
