VBA(Visual Basic for Applications)是VB的一种宏语言。用来扩展应用程式的功能。特别是Microsoft Office软件。

转载请注明原文地址：http://blog.csdn.net/ts_dchs/article/details/50318345

1 使用原因

在处理传感器数据文件的时候。有些节点有丢包严重的现象。这样就会产生时间的累计误差。

所以须要依据包序号将之后的传感器数据填在合适的位置，也就是为丢包流出空行。

这样手动对照的方式非常不方便，所以想到用代码方式解决。

VBA提供了这个机会。i

之后的介绍内容以有用为准，不做具体介绍。

详见网络或者相关书籍。

2 基本准备

须要的excel文件是能够载入宏的文件。

与普通Excel文件不同。

普通：xlsx 可载入宏：xlsm

能够自己有一个能够载入宏的文件，处理完数据后复制过去。

假设要执行宏须要在选项的信任中心打开启用宏。

这种设定非常easy让机器中招。所以用完后最好关掉。

3 开启编程环境

右键sheet标签，“查看代码”打开BVA编辑页面。

当前编辑的就是对应的sheet的代码。

高速開始：两个下拉菜单选为worksheet和BeforeDoubleClick来使得在表格中双击之前执行代码。

得到这样一个框架：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

...

End Sub

其它选项百度

4 基本的语法

（一般首字母大写的为关键字，全小写为參数）

获取一个单元格的值，对还有一个赋值

Sheet4.Cells(2, 1) = Sheet4.Cells(1, 1)

最后没有分号。

在保存之后，在Excel文件对应Sheet中双击能够看到结果。

变量声明

声明一个整整型的i

Dim i As Integer

调试相关

F5执行脚本，一般能够在一个自定义的宏中先測试好，在放到能够和Excel操作相关的宏中。比方如今自己的宏中測试好再放入双击操作中。

打印语句。用Debug对象。

在“马上窗体”查看输出。“马上窗体”能够在视图中打开。

Dim i, j As Integer

i = 5

j = 10

' 单引號作为行凝视

' 打印多个元素，多个元素用分号隔开，VBA可能会自己加上。

Debug.Print i; "x"; j; "="; i * j; "  ";

' 打印空行

Debug.Print

条件语句

If x > y Then

    [statements]

ElseIf x>z Then

    [statements]

Else

    [statements]

End If

For Next语法

For counter = start To end [Step step]

    [statements]

    [Exit For] ' like break

    [statements]

Next [counter]

eg.获取自定义的參数元素后填入一列serial number:

（在Sheet的(2,1)(2,2)本别定义起始值 1，终止值 20，(2,3)(2,4)分别定义数据起始行号 5，要放置结果的列号 7。）

Sub copyTest()

    Dim tsart, tend, tcol, trow As Integer

    tstart = Sheet4.Cells(2, 1)

    tend = Sheet4.Cells(2, 2)

    trow = Sheet4.Cells(2, 3)

    tcol = Sheet4.Cells(2, 4)

    Debug.Print

    Debug.Print "start index: "; tstart

    Debug.Print "end index: "; tend

    Debug.Print "result start:("; trow; ", "; tcol; ")"

    Dim i As Integer

    For i = tstart To tend Step 1

        Sheet4.Cells(trow + i - 1, tcol) = i

    Next i

End Sub

也能够针对一个区域来做：

For Each c In Range("a1:c5")

  i = i + 1

  c.Value = i

Next

这样会先填充一行，再填充下一行。

* While Wend *

While condition(s)

   [statements 1]

   [statements 2]

   ...

   [statements n]

Wend

5 一个实例

利用VBA将一系列传感器数据按序填写到新的位置来自己主动空出丢包的行。

比方收到数据的包序是101，102，104，105，则在新的位置写入时增加103行，后面为空。（在Sheet的(2,1)(2,2)本别定义起始值。终止值。(2,3)(2,4)分别定义数据起始行号。要放置结果的列号。

原始数据占用列1-5。从第5行開始放。

新数据的開始放在表格定义的位置，并在第一列增加连续的serial number）程序例如以下：

Sub copyTest()

    Dim tsart, tend, tcol, trow As Integer

    tstart = Sheet4.Cells(2, 1)

    tend = Sheet4.Cells(2, 2)

    trow = Sheet4.Cells(2, 3)

    tcol = Sheet4.Cells(2, 4)

    Debug.Print

    Debug.Print "start index: "; tstart

    Debug.Print "end index: "; tend

    Debug.Print "result start:("; trow; ", "; tcol; ")"

    Dim i, i2, j As Integer

    i = 0

    i2 = 0

    j = 0

    While i < (tend - tstart + 1)

        Sheet4.Cells(trow + i, tcol) = i + tstart

        If Sheet4.Cells(trow + i2, 1) = i + tstart Then

            For j = 1 To 5 Step 1

                Sheet4.Cells(trow + i, tcol + j) = Sheet4.Cells(trow + i2, j)

            Next j

            i2 = i2 + 1

            ' Debug.Print i2

        End If

        i = i + 1

    Wend

    Debug.Print i2; "total Data number: "; i2

End Sub

notification

source: 资料源于网络。个人所学有限。若有错误和不足还请指教，我会及时更正。Terrence Zhou.

http://blog.csdn.net/ts_dchs

转载请注明原址