VBA实战

Excel大家都用的很熟悉了，包括公式，不知道大家有没有听过vba，vba是比Excel公式更为强大的工具，入门很简单，下面简单给大家介绍如何使用vba。此教程针对有编程基础的童鞋呢，对于没有编程基础的童鞋可能阅读起来有点复杂。

基础篇

定义

Dim i as String
Dim i as Date

取值

大家对Excel取值应该很熟悉了，为什么我在这里又重复说一遍呢，主要对一些编程的童鞋使用，像我真的很容易有时就会忘记如何取值。

单元格取值

Cells(1,2) 表示第一行第二列

Range取值

Range("B1")同样表示第一行第二列

语法

1. FOR循环
    FOR i = 0 to 10
        // do something.
    NEXT
2. IF ELSE 判断
    Dim i = 0
    IF i > 0 THEN
        // do something.
    ELSE IF i = 0 THEN
        // do something.
    ELSE
        // do something.
    END IF

增强篇

1. DateDiff函数，此函数用来取两个时间差。用法：DateDiff("n", xx, yy)

    n取两个时间差的分钟数。
    d取两个时间差的天数。
   

2. Msgbox 弹出内容，常用于调试作用。用法：Msgbox("HelloWorld")

实战篇

1. 有这样一批日期的数据，一列，500 行。请在第二列依次输出如果一行和下面一行的间隔时间大于3分钟
   代码如下：

    Sub calculate()
        Dim i
        Dim j = 0
        Dim start As Date
        Dim ends As Date
        Dim diff As String
        For i = 1 To 500        
            diff = DateDiff("n", Cells(i, 1), Cells(i + 1, 1))
           If diff >= 4 Then
                j = j + 1
                Cells(j, 2) = Cells(i, 1)
           End If    
        Next
    End Sub