Visual Basic编程实现Excel表操作
2012-12-06 18:14
211 查看
使用Visual Basic编程录制Excel宏可以实现表格中大量数据的不同操作,提高工作效率。
下述函数实现 Excel表格中匹配条件下,表格间的复制操作,具体实现见中文注释。
//Excel录制宏名称:RefMoveList;函数起始:
Sub RefMoveList()
//for循环语句,定义循环 for(int i =4;i<=13842;)
For i = 4 To 13842
//for循环语句,定义循环 for(int j =3;i<=2173;)
For j = 3 To 2173
//If 判断语句,如果Excel表格(行,列)内容: (i, 1) = =(j, 82),则条件为真。
If Cells(i, 1) = Cells(j, 82) Then
//赋值语句, (j, 84) = =(i, 5)
Cells(j, 84) = Cells(i, 5)
//代码注释方式: '
'If Cells(j, 85) <> "" Then
'Cells(i, 5) = Cells(j, 85)
'End If
//跳转语句
GoTo OK
//If 判断语句结束,须与if成对使用
End If
//for循环语句,递增变量j
Next j
OK:
//for循环语句,递增变量i
Next i
//Excel宏函数功能结束标志
End Sub
下述函数实现 Excel表格中匹配条件下,表格间的复制操作,具体实现见中文注释。
//Excel录制宏名称:RefMoveList;函数起始:
Sub RefMoveList()
//for循环语句,定义循环 for(int i =4;i<=13842;)
For i = 4 To 13842
//for循环语句,定义循环 for(int j =3;i<=2173;)
For j = 3 To 2173
//If 判断语句,如果Excel表格(行,列)内容: (i, 1) = =(j, 82),则条件为真。
If Cells(i, 1) = Cells(j, 82) Then
//赋值语句, (j, 84) = =(i, 5)
Cells(j, 84) = Cells(i, 5)
//代码注释方式: '
'If Cells(j, 85) <> "" Then
'Cells(i, 5) = Cells(j, 85)
'End If
//跳转语句
GoTo OK
//If 判断语句结束,须与if成对使用
End If
//for循环语句,递增变量j
Next j
OK:
//for循环语句,递增变量i
Next i
//Excel宏函数功能结束标志
End Sub
相关文章推荐
- 编程内功修炼之数据结构—BTree(二)实现BTree插入、查询、删除操作
- 【算法学习】AVL平衡二叉搜索树原理及各项操作编程实现(C++)
- 【算法学习】AVL平衡二叉搜索树原理及各项操作编程实现(C++)
- 实现VSTO操作WORD之二 --------实现简单控件编程例子
- UDF编程操作实现
- 编程实现队列的入队/出队操作
- VS2010 C++ 操作Excel表格的编程实现
- VS2010 C++ 操作Excel表格的编程实现
- 编程实现SQL Server数据库导入导出操作
- IIS 常用操作编程实现(VB6)
- 【算法学习】AVL平衡二叉搜索树原理及各项操作编程实现(C语言)
- 编程实现队列的入队/出队操作
- 新手讲栈:编程实现栈的入栈出栈操作
- Android编程实现在Activity中操作刷新另外一个Activity数据列表的方法
- 编程实现顺序表的基本操作
- Android编程心得-在Assets文件夹中放入.sql文件实现创建SQlite表的操作
- 编程实现一个栈结构,用数组来实现,具有入栈、出栈操作。
- Java 并发编程笔记——使用循环cas实现原子操作
- 关于链表操作编程实现的一些总结
- Delphi编程实现Ping操作