EXCEL VBA入门引导教程和提取单元格中数字的例子

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。
本文初步介绍了EXCEL中VBA的入门使用方法和利用VBA提取单元格中数字的示例。
一、 VBA的入门使用方法
1、首先打开一个需要处理的EXCEL表格，打开界面如图 1。
 

2、选择需要运行VBA的工作表，此处选择sheet1.右键单击弹出“查看代码”，图 2。
3、打开VBA编程界面，图 3。
4、此处需要对sheet1中的表格进行操作，在打开的编程界面中分别选择“worksheet”，和“beforedoubleclick”，图 3。Beforedoubleclick，表示在运行VBA程序段时鼠标双击任意单元格执行执行程序操作，可选其他。
将会在编程区生成如下代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
在sub之间写入需要执行的代码。
 

 
5、写好程序段后，点击窗口工具栏上的运行按钮（斜三角形或者按F5键）运行程序。执行程序后会弹出图 5中的界面，如不需要保存VBA，直接关闭窗口即可。
6、返回EXCEL表格界面，双击任意一个单元格，将会执行刚才写入的代码。

 
 
 
二、 在B列中显示A列中末尾的数字的VBA代码
下面附代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '提取数字
    For j% = 1 To 5 ‘在单元格1-5行提取数字
        s$ = Sheet1.Cells(j, 1) ‘将第j行第1列单元格内容存入字符串变量s
        s2$ = ""
        For i% = Len(s) To 1 Step -1
           If InStr("0123456789.", Mid(s, i, 1)) Then ‘从单元格字符串的最末一个字符朝前开始判断是否为数字
                s2 = Mid(s, i, 1) & s2$ ‘是数字，倒着存入变量s2
           Else
                Exit For ‘不是数字，退出for循环
           End If
        Next i
        Sheet1.Cells(j, 2) = s2 ‘某一个单元格字符串处理完后，结果存入B列
    Next j
End Sub
三、 保存

假如需要保存VBA，可以点击工具栏上的【保存】按钮。但是可能会报错图 8。 

这是因为你的工作薄没有启用宏，需要点击【否】保存为启用宏的工作薄。将刚才的excel保存为.XLSM格式的文件，才能将刚才的源代码保存，图 9。
 

如您觉得有帮助，请随意打赏至支付宝：15882445087
提供单片机、电路板、控制器、工控测控传感自动化系统、仪器仪表、软件EXE编程、安卓APP开发设计定制等优质服务（QQ2531263726）。

参考资料
【1】傻瓜都会用Excel VBA（教你怎么用VBA）
http://jingyan.baidu.com/article/4ae03de32663953efe9e6b47.html
【2】怎样提取文本中的数字
http://www.excelpx.com/thread-216998-1-1.html