vb excel编程实例

Excel编程实例（170例）

主要内容和特点

《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对

ExcelVBA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。

■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解；

■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作；

■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解；

■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。

VBE编辑器及VBA代码输入和调试的基本知识

在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本

VB关于excel操作的实例

这里为大家带来一篇VB关于excel操作的实例。希望对您的学习有帮助，具体参考描述如下：

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253Imports System.Data.OleDbPublic Class Form1 Private _FilePath As String = \ Private _DS As DataSet Private Const _Connectstring = \Source=<FilePath>;Extended Properties=\ Private Const _SelectData = \[<TableName>$]\ Private Sub

TSBSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBSelectFile.Click Me.OFDExc

VS2008——VB编程实例（入门教程） 1. VB(Visual Basic)的发展

微软公司在1991年推出了建立在Window开发平台基础上的开发工具——Visual Basic 1.0。随着Window操作平台的不断完善，微软公司也相继推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0，这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。1998年又推出Visual Basic6.0，它的功能更加完善。

2.VB语言的基础

1.关键字：关键字是指系统使用的具有特定含义的字符。

常用的关键字有：Dim、Private , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。

2.标识符：标识符是指编写代码时定义的名称

三、VB窗体设计 第1题 （10.0分）

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。

---------------------------------------------------------------------

在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为＇计算机等级考试＇， 字体为宋体，字号为12，且能根据标题内容自动调整标签的大小。再画2个名称分别

为Command1、Command2，标题分别为＇缩小＇和＇还原＇的命令按钮。运行效果如图所示。 要求：

(1)编写适当的事件过程，使得单击＇缩小＇按钮，Label1中所显示的标题内容自动减小2个字号；

(2)单击＇还原＇按钮，Label1中所显示的标题内容的大小自动恢复到12号。 注意：每个事件只能写1行代码

第2题 （15.0分）

----------------

EXCEL使用技巧大全

01、如何在已有的单元格中批量加入一段固定字符？

例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力：

1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列； 2）在B2单元格写入： =\& A2 后回车；

3）看到结果为 13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。

02、如何设置文件下拉窗口的最下面的最近运行的文件名个数？

打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。

03、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？ 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的

Excel VBA实例

目录

第1章 宏的应用技巧

宏是一个VBA程序，通过宏可以完成枯燥的、频繁的重复性工作。本章的实例分别介绍在Excel 2003、Excel 2007中录制宏、使用Visual Basic代码创建宏的方法，最后还以实例演示运行宏和编辑宏的方法。 1.1 创建宏 1

例001 在Excel 2003中录制宏 1

例002 打开Excel 2007的录制宏功能 3 例003 在Excel 2007中录制宏 4

例004 使用Visual Basic创建宏 5 1.2 管理宏 6

例005 运行宏 7 例006 编辑宏 8 第2章 VBE使用技巧

VBE（Visual Basic Editor）是编写VBA代码的工具，在上一章中曾使用VBE编辑宏代码。本章的实例介绍了设置VBE操作环境、在VBE中管理工程代码、使用VBE的辅助工具提高代码输入效率等方法。

2.1 设置VBE操作环境 10 例007 停靠VBE子窗口 10 例008 定制VBE环境 12 2.2 工程管理 13 例009 增加模块

车床编程实例二十二：

加工图7-64所示的零件，毛坯直径为φ45mm，长为370mm，材料为Q235；未注倒角1×45°，其余Ra12.5。

图7-64 心轴零件

解：采用华中数控系统编程。该零件的加工工艺及其程序见表7-13、表7-14。

表7-13加工外圆及螺纹的程序

程序 ％7091 N10 G92 X100 Z10 N20 M03 S500 N30 M06 T0101 N40 G00 Z5 N50 X47 Z2 N60 G80 X42.5 Z-364 F300 N70 G80 X38 Z-134.2 F300 N80 G80 X35.5 Z-134.2 F300 N90 G80 X30 Z-47.2 F300 N100 G80 X28.5 Z47.2 F300 N110 G00 X100 N120 Z10 N125 T0100 N130 M06 T0303 N140 S800 N150 G00 Z1 N160 X24 N170 G01 X28 Z-1 F100 N180 Z-47.5 N190 X32.85 X方向快速定位到φ100mm处，Z方向快速定位到距端面10mm处，使刀尖回到程序原点，作为换刀位置 清除刀偏 换精车刀

车床编程实例二十二：

加工图7-64所示的零件，毛坯直径为φ45mm，长为370mm，材料为Q235；未注倒角1×45°，其余Ra12.5。

图7-64 心轴零件

解：采用华中数控系统编程。该零件的加工工艺及其程序见表7-13、表7-14。

表7-13加工外圆及螺纹的程序

程序 ％7091 N10 G92 X100 Z10 N20 M03 S500 N30 M06 T0101 N40 G00 Z5 N50 X47 Z2 N60 G80 X42.5 Z-364 F300 N70 G80 X38 Z-134.2 F300 N80 G80 X35.5 Z-134.2 F300 N90 G80 X30 Z-47.2 F300 N100 G80 X28.5 Z47.2 F300 N110 G00 X100 N120 Z10 N125 T0100 N130 M06 T0303 N140 S800 N150 G00 Z1 N160 X24 N170 G01 X28 Z-1 F100 N180 Z-47.5 N190 X32.85 X方向快速定位到φ100mm处，Z方向快速定位到距端面10mm处，使刀尖回到程序原点，作为换刀位置 清除刀偏 换精车刀

可编程控制器常用程序实例

1. 二分频器

二分频器是一种具有一个输入端和一个输出端的功能单元,输出频率为输入频率的一半。如下，输入为I0.0,输出为Q4.0。

分析二分频的时序图看到，输入每有一个正跳沿，输出便反转一次。据此，可用跳变沿检测指令实现分频功能。 梯形图程序1：

梯形图程序2：

1

梯形图程序3：

2. 启动和自锁程序

程序功能：输入X0闭合时，输出Y0闭合且自锁。只有在X1闭合时，其动断触点打开，Y0断开。其时序图如下：

梯形图程序：

2

3. 优先程序

优先程序执行时，能在多个输入信号中仅接收最先一个输入信号作出反映，其后的输入信号不接收。此原则常用于抢答器中。 梯形图程序：

4. 灯泡控制程序

一盏灯泡由一个按钮来控制，已知第一次按下按钮，灯泡亮，第二次按下按钮，灯光灭。 （一）PLC接线图

（二）定义符号地址 符号地址 绝对地址 类据类型

说明 3

S0 L0 M0 （三）梯形图程序 I0.0 Q0.0 M0.0 BOOL BOOL BOOL 按钮 灯泡 标标位

5. 控制传送带

一个由电气启动的传送带，在传送带的起点有两个按钮开关：用于START的S1和STOP的S2。

在传送带的尾部也有两个按钮开关：用于STA

编程题

1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。

2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。

3、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入