[Excel] 매크로의 초기 인식

효율을 높이는 이유로 excel이 인위적인 개입 없이 조작을 완성하고 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