ExcelVBA 비망록

1497 단어 ExcelVBA
「단 1초만에 일이 정리되는 Excel 자동화의 교과서」를 읽고, 독이어한 것을 기재.

설정



1. 변수 선언 강제 & 자동 구문 검사 없음
· VBE 시작 > 도구 > 옵션 > 편집 탭
・「자동 구문 체크」를 제외한다
⇒구문에 미비가 있을 때마다 경고가 출현하는 것을 막는다
· 「변수 선언을 강제한다」에 체크를 넣는다
⇒변수명의 치는 실수등의 특정을 용이하게 한다
· OK로 닫기
※다음 번 설정 변경할 때까지 반영된다.


2. Excel 화면 업데이트 중지
화면이 자주 전환되는 매크로의 경우, False로 하면 고속화한다.
Application.ScreenUpdating = False

구문



1. With 구문
일괄로 지정하고 싶은 경우에 사용한다.
아래의 경우 "Re."를 "."입력하는 것만으로 OK.
Sub test()

Dim i As Integer
Dim Re As Object '正規表現=Regular expressions
Set Re = CreateObject("VBScript.RegExp")  '正規表現オブ

With Re
   For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row '最終行取得
        .Pattern = "ABC"  '検索したい文字列を定義 
        .Global = True 'True:文字列全体を検索
         Cells(i, 7) = .Replace((Cells(i, 7).Value), "")
   Next i
End With

2. Offset
Offset은 셀 이동.
・서식
Range 객체. Offset (행, 열)
Range 객체를 Offset으로 지정한만큼 이동시킵니다.
예)
Range("A1:D5").Offset(0, 2).Select

최종 행, 최종 열 취득
Dim  m, n As Integer
    n = Cells(Rows.Count, "B").End(xlUp).Row
   'B列の最終行を取得
    m = Cells(2, Columns.Count).End(xlToLeft).Column
   '2行目の最終列をす

좋은 웹페이지 즐겨찾기