【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路径下，保存格式Excel加载宏，如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