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

转载请注明原址

Excel VBA简单使用——数据缺失处理的更多相关文章

  1. Excel VBA ——如何导出数据到excel表格

    sub OutPut() Dim FileTitle, MyPath, MyFullName As String Application.ScreenUpdating = false '关闭表格公式的 ...

  2. Excel向数据库插入数据(执行一次只需连接一次)-batch简单使用

    由于前端时间向数据库插入excel中的数据时,每插入一条数据,就得连接一次数据库:后来发现这种做法不好,如果excel中有很多条数据,就得连接很多次数据库,这样就很浪费资源而且不安全,有时数据库也会报 ...

  3. Excel VBA连接MySql 数据库获取数据

    编写Excel VBA工具,连接并操作Mysql 数据库. 系统环境: OS:Win7 64位 英文版 Office 2010 32位 英文版 1.VBA连接MySql前的准备 Tools---> ...

  4. .Net读取Excel文件时丢失数据的问题 (转载)

    相信很多人都试过通过OleDB读取Excel文件,这种方法效率十分高,只是有一点会让人十分头痛,就是当一列中既有混合型数据,又有纯数据时,往往容易丢失数据. 百度过后,改连接字符串 “HDR=YES; ...

  5. 来吧!带你玩转 Excel VBA

    来吧!带你玩转 Excel VBA 从错失良机到艰辛的DOS征程,从坎坷购机自学路到转机起程,从爱好到事业,他从一个完全不懂电脑的人到VBA高级应用者,一切全是自学…… 我是罗刚君,来自四川的一个小县 ...

  6. excel vba 数据分析

    (Visual Basic Application) VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言,其语法结构与Visua ...

  7. Excel VBA 从一个工作簿查找另一个一个工作簿中的一些内容复制到另外一个工作簿

    帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过. 以前只研究过 vba 写一个 计算个人所得税的程序. 这次写的功能也算是简单,但也耗费了两天的功夫. 需 ...

  8. Office EXCEL VBA数组如何使用

    Excel VBA数组入门教程 1. 前言:不要把VBA数组想的太神秘,它其实就是一组数字而已. 2. 数组的维数: Sub 数组示例()  Dim x As Long, y As Long  Dim ...

  9. Excel VBA入门(五)Excel对象操作

    本章是本系列教程的重点.但我觉得应该不是难点.从第零章开始到学完本章,应该可以把VBA用于实战中了. Excel对象主要有4个: 工作薄 Workbook 工作表 Worksheet 单元格区域 Ra ...

随机推荐

  1. 【Henu ACM Round#16 E】Paths and Trees

    [链接] 我是链接,点我呀:) [题意] 在这里输入题意 [题解] 感觉很像一道最短路. 然后就试了一发. 结果真的是.. 只要用一个优先队列优化的dijkstra算法求出每个点的最短路上的前一个点是 ...

  2. Java基础学习总结(26)——JNDI入门简介

    JNDI是 Java 命名与目录接口(Java Naming and Directory Interface),在J2EE规范中是重要的规范之一,不少专家认为,没有透彻理解JNDI的意义和作用,就没有 ...

  3. Android 使用DrawerLayout高速实现側滑菜单

    一.概述 DrawerLayout是一个能够方便的实现Android側滑菜单的组件,我近期开发的项目中也有一个側滑菜单的功能.于是DrawerLayout就派上用场了.假设你从未使用过DrawerLa ...

  4. Spring可扩展Schema标签

    基于Spring可扩展Schema提供自己定义配置支持 http://blog.csdn.net/cutesource/article/details/5864562 WARN : org.sprin ...

  5. java设计模式学习 ----- 单例模式(Singleton)

    单例模式(Singleton) 单例对象(Singleton)是一种经常使用的设计模式. 在Java应用中,单例对象能保证在一个JVM中,该对象仅仅有一个实例存在.单例模式也分三种:懒汉式单例.饿汉式 ...

  6. jfinal 后台文件上传(结合上一篇(h5 图片回显))

    前端用了jquery.form.js插件异步提交表单 $("#imgForm").ajaxSubmit();//户主头像 /** * * @description 上传户主头像 * ...

  7. js --- 字符串和 二进制 互相转换

    //将字符串转换成二进制形式,中间用空格隔开 function strToBinary(str){ var result = []; var list = str.split("" ...

  8. 2015上海网络赛 HDU 5475 An easy problem 线段树

    题意就不说了 思路:线段树,维护区间乘积.2操作就将要除的点更新为1. #include<iostream> #include<cstdio> #include<cstr ...

  9. ThinkPad X260 UEFI安装 win7 64位 方法

    ThinkPad X260   UEFI安装 win7 64位 方法 1.使用DG重新格式化硬盘,格式为GPT 2.使用CGI  安装 WIM文件 (image不知是否可以,下次测试) 3.改BIOS ...

  10. CodeChef November Challenge 2013 部分题解

    http://www.codechef.com/NOV13 还在比...我先放一部分题解吧... Uncle Johny 排序一遍 struct node{ int val; int pos; }a[ ...