NO.1

工作当中，Excel表格不免要做一些公式计算，初始设置计算可能是自动计算，也可以是手动计算，打开文件-选项-公式设置里自已定义，如下图。

为什么要设置自动和手动计算呢？

这个要视实际应用情况而定，有些数据需要实时更新，所以就设置为自动计算，有些数据需要手动来计算来得到最佳效果。

VBA来如何实现这样的操作呢？下面重点介绍一下，实现自动计算方法。

NO.2

自动计算功能，需要用到Range对象的Dirty方法实现。

其使用也很十分简单，只要在Range对象后面加Dirty就可以。

Range.Dirty

Range代表一个Range对象变量，感觉这么说有点迷糊。

看下面例子：

Sub DirtyRange()
Range("A1")="=B1+C1"
Range("B1")=1
Range("C1")=2
dim R as Range
set R=ActiveSheet.Range("A1")
ThisWorkbook.Save'保存工作薄
R.Dirty'重新计算A1单元格内容
End Sub

执行以上过程后，A1单元格内容会自动计算为值3。

NO.3

下面举一个更详细的例子来说明一下Dirty工作方法。

如图所示，本例中将对A、B、C列进行不同的设置，然后再进行重新计算，最后得到如下效果。

开始整个表是没有任何数据的，使用了一个随机生成函数Rnd()对B、C列进行赋值，A列值为B+C列的和。

单击鼠标即可自动生成计算。

NO.4

代码也不多，大多是对表格进行设置和定位处理。

Private Sub CommandButton1_Click()
Range("A3:A15").Select'选择单元格
With Selection
    .Formula = "=B" & .Row & "+C" & .Row'设置A列单元格公式
    .Offset(0, 1).Formula = VBA.Int(10 * VBA.Rnd())'设置B列单元格值
    .Offset(0, 2).Formula = VBA.Rnd()'设置C列单元格值
    .RowHeight = 26'设置行高
    .ColumnWidth = 30'设置列宽
    .HorizontalAlignment = xlCenter'距中
    .VerticalAlignment = xlCenter
    .Interior.Color = RGB(211, 211, 1)'背景色
    .Borders.LineStyle = 1'单线边框
        With .Font'字体设置
            .Size = 18
            .Bold = True
            .Color = RGB(222, 1, 1)
        End With
        With .Offset(0, 1).Resize(13, 2)'设置B、C列格式
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Interior.Color = RGB(111, 221, 251)
            .Borders.LineStyle = 1
            With .Font
                .Size = 18
                .Bold = True
                .Color = RGB(0, 82, 252)
            End With
        End With
End With
ThisWorkbook.Save'保存工作薄
Application.DisplayAlerts = False'关闭提示
Range("A3:A15").Dirty'自动计算
Application.DisplayAlerts = True
End Sub

整个过程中很重要的一点就是在重新计算之前，要对工作薄进行保存，不然不进行计算，因为在Excel选项设置里的一个预设。

所以要特别注意其工作原理。

NO.5

Dirty作为Range对象一个方法，使用简单，在执行一些公式计算过程是十分好用的功能。

利用这个方法，可以使我们的表格获得更加灵活的数据处理方法。

所以要对些进行一些熟练地掌握。

欢迎关注、收藏