excel 提取单元格中数字的函数
因工作需要批量提取单元格中的数字，需要在excel的宏中插入模块，在声明中声明如下函数；然后像调用excel函数一样调用这个函数就行了。
代码如下：
Function StrNum(ByVal myStr As String) ‘返回只有数字的函数
StrNu···
Excel VBA中引用单元格已经很简单了。但是如何像输入函数时一样，自由的选择单元格区域，以便更好地实现人机交互呢？
这里用到的函数 InputBox，里面的参数很简单，Type:=8意思是返回的值是Range，当然也可以是公式、数值或其他，具体可参见Help。
···
Private Sub CommandButton1_Click()
Dim c As Range
jieguo = TextBox1.Value
‘jieguo = Application.InputBox(prompt:=”请输入要查找的值：”, Title:=”查找”, Type:=2)
If jieguo = “False” Or jieguo = R···
Sub Macro1()
‘
‘ Macro1 Macro
‘
‘
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:=”请输入要查找的值：”, Title:=”查找”, Type:=2)
End Sub
thisform.newobject(“text1″,”textbox”)&&创建一个text文本对象
thisform.text1.visible=.t.&&设置文本对象可见
thisform.text1.top= 90 &&设置顶部距离
thisform.text1.left=120&&设置左侧距离
···