[Excel] 매크로의 초기 인식
4322 단어 Excel
첫 번째 열 입력 공식, 두 번째 출력 계산 결과: (파일의 줄 수를 자동으로 가져오면 보충)
Sub Calc()
a = [a1].Value
[b1].Value = Evaluate(a)
a = [a2].Value
[b2].Value = Evaluate(a)
a = [a3].Value
[b3].Value = Evaluate(a)
End Sub개선: 행 수 자동 식별
Sub Calc()
Dim i As Long, lastRow As Long
lastRow = GetLastRow(Worksheets("Sheet1"), 1)
For i = 1 To lastRow
a = Cells(i, 1).Value
Cells(i, 2).Value = Evaluate(a)
Next i
End Sub
Function GetLastRow(ByVal TheSheet As Worksheet, ByVal col As Variant) As Integer
Dim findrg As Range, ret As Range
Set findrg = TheSheet.Columns(col)
Set ret = findrg.Find(what:="*", searchdirection:=xlPrevious)
If Not ret Is Nothing Then
GetLastRow = ret.Row
Else
GetLastRow = 0
End If
End Function기타:
1. 매크로가 적용되려면 다음과 같이 설정해야 합니다. 옵션 -> 신뢰 센터 -> 신뢰 센터 설정 -> 매크로 설정 -> 모든 매크로를 활성화합니다.
2. 모든 excel을 열 때 매크로를 사용할 수 있습니다. 매크로를 작성한 후%programfiles%\Microsoft Office\Office12\XLSTART 경로에 매크로를 저장해야 합니다. 예를 들어 Calc.xlam
3. 더 높은 효율을 원한다면 단축키를 설정할 수 있다(보충 대기 중)
4. 미관을 위해 점 단추로 매크로를 터치할 수 있습니다(보충 대기 중)
5. 디버그 환경(보충 대기)
6. 매크로 이름은 호출할 때 대소문자를 구분하지 않습니다(확인 중)
7. 매크로 목록(단축키 "Alt+F8")
8.Alt+F11
참조:
(검토 중)http://www.cnblogs.com/dxy1982/archive/2011/08/31/2159231.html
http://www.cnblogs.com/wdpp/archive/2012/02/13/2387078.html
http://www.cnblogs.com/kenyang/archive/2012/05/16/2503846.html
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel Grep toolExcel Grep tool ■히나가타 ■ 시트 구성 ExcelGrep.cls...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
