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
增强篇
-
DateDiff函数,此函数用来取两个时间差。用法:DateDiff("n", xx, yy)
n取两个时间差的分钟数。 d取两个时间差的天数。
Msgbox 弹出内容,常用于调试作用。用法:Msgbox("HelloWorld")
实战篇
-
有这样一批日期的数据,一列,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