Excel大家都用的很熟悉了董瞻，包括公式，不知道大家有沒有聽過vba峻村，vba是比Excel公式更為強(qiáng)大的工具麸折，入門很簡單，下面簡單給大家介紹如何使用vba粘昨。此教程針對(duì)有編程基礎(chǔ)的童鞋呢垢啼，對(duì)于沒有編程基礎(chǔ)的童鞋可能閱讀起來有點(diǎn)復(fù)雜窜锯。
基礎(chǔ)篇
定義
Dim i as String
Dim i as Date
取值
大家對(duì)Excel取值應(yīng)該很熟悉了，為什么我在這里又重復(fù)說一遍呢芭析，主要對(duì)一些編程的童鞋使用锚扎，像我真的很容易有時(shí)就會(huì)忘記如何取值。
單元格取值
Cells(1,2) 表示第一行第二列
Range取值
Range("B1")同樣表示第一行第二列
語法
1. FOR循環(huán)
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
增強(qiáng)篇
-
DateDiff函數(shù)馁启，此函數(shù)用來取兩個(gè)時(shí)間差驾孔。用法：DateDiff("n", xx, yy)
n取兩個(gè)時(shí)間差的分鐘數(shù)。 d取兩個(gè)時(shí)間差的天數(shù)惯疙。 Msgbox 彈出內(nèi)容翠勉，常用于調(diào)試作用。用法：Msgbox("HelloWorld")
實(shí)戰(zhàn)篇
-
有這樣一批日期的數(shù)據(jù)霉颠，一列眉菱，500 行。請(qǐng)?jiān)诘诙幸来屋敵鋈绻恍泻拖旅嬉恍械拈g隔時(shí)間大于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
