提升效率

Fri, 09 Oct 2015 03:48:00 GMT

公式
�Q�暂无）

VBA

1:更快的筛选符合条件的�U�录�Ҏ��Q�参看这�D�代码：

With xSheet.Range(myRange)                ' select range
    Set c = .Find("My Key Word")            ', LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        do
            lineno2 = c.Row()                     ' get row number
            ....                                            ' process business logic
            'Find next line
            Set c = .FindNext(c)
            If c Is Nothing Then Exit Do
        Loop While c.Address <> firstAddress
    End if
End With

有了�q�一�D�代码，可以飞快��C��q�个Sheet当中�Q�把所有符合自己所要求�?上例中是My Key Word)行选出来。再也不需要逐行扫描�Q�逐个比对是否满��条�g�? ��d��的速度快了无数�?/p>

2:写入

参看以下代码�Q?

    Dim myRange As Range
    Dim strResultArray(1 to 1000, 1 to 13) as String        ' saved result from input to write out
    Set myRange = rSheet.Range("A1:M1000")
    myRange = strResultArray
    Set myRange = Nothing

属于区域式整体赋��|��而不是一个单元格�Q�一个单元格的赋�?/p>

3�Q�尽量��用VBA原有的属性、方法和WORKSHEET函数

求��^均工资的例子�Q?/p>

for each c in worksheet(1).range(“a1:a100”)

totalvalue=totalvalue+c.value

averagevalue=totalvalue/worksheet(1).range(“a1:a1000”).rows.count

而下面的代码�E�序比上面的例子快得�?/p>

averagevalue=application.worksheetfunction.average(worksheets(1).range(“a1:a1000”))

4�Q�尽量减��用对象引�?��其在��@环中

1、��用With语句

例：workbooks(1).sheets(1).range(“a1:a1000”).font.name=”pay”

workbooks(1).sheets(1).range(“a1:a1000”).font.fontstyle=”bold”

而下面的代码�E�序比上面的例子快得�?/p>

With workbooks(1).sheets(1).range(“a1:a1000”).font

.name=”pay”

.fontstyle=”bold”

end with

2、��用对象变量�?/p>

如果你发��C��个对象引用被多次使用�Q�则你可以将此对象用SET讄��为对象变量，以减��对对象的访问。如�Q?/p>

workbooks(1).sheets(1).range(“a1”).value=100

workbooks(1).sheets(1).range(“a2”).value=200

而下面的代码�E�序比上面的例子快得�?/p>

Set mysheet=workbooks(1).sheets(1)

Mysheet. range(“a1”).value=100

Mysheet.range(“a2”).value=200

3、在循环中要��量减少对象的访问�?/p>

For k=1 to 1000

Sheets(“sheet1”).select

Cells(k,1).value=cells(1,1).value

Next k

Set thevalue =cells(1,1).value

Sheets(“sheet1”).select

For k=1 to 1000

Cells(k,1).value=thevalue

Next k

5�Q�减��对象的�Ȁ�z�d��选择

如果你是通过录制宏学习VBA的，则你的程式序里一一充满了对象的�Ȁ�z�d��选择�Q�如WORKSHEETS�Q�XXX�Q?ACTIVATE、Sheets�Q�XXX�Q?select�{?但事实上大多数的情况下这些操作是不必��ȝ��.例如:

sheets(“sheet3”).select

range(“a1”).value=100

range(“a2”).value=200

可改�?/p>

with sheets(“sheet3”)

.range(“a1”).value=100

.range(“a2”).value=200

end with

6�Q�关闭屏�q�更�?

如果前面三条做的比较差，则关闭屏�q�更新是提高VBA�E�序�q�行速度的最有效�Ҏ��Q�羃短运行时�?/3左右。关闭屏�q�更新的�Ҏ��Q?/p>

Application.screenupdate=false

请不要忘记VBA�E�序�q�行�l�束时再��该��D��回来

Application.screenupdate=true

��辞�?/a> 2015-10-09 11:48 发表评论

国产成人小视频,日本精品视频一区二区三区,欧美sm精品调教视频

提升效率