① VBA 数值存储和调用
设置公共变量，或模块级变量：
----------------------
使用 Public 语句，来显式声明公用的变量
在模块级别中用 Dim 声明的变量，对该模块中的所有过程都是可用的
例如：
Public a As StringDim b As String
Sub m1()
a = "m1"
b = a & "abc"
End Sub
Sub m2()
MsgBox a & vbCrLf & b
End Sub
② EXCEL VBA 如何将单元格作为Workbooks()、Worksheets()参数
A2=2.xls 这个有问题,应该是 2...另外,变量没有定义好,改成这样
Function GetData(a As Integer, b As String, c As String, d As String)
GetData = Workbooks(a).Worksheets(b).Range(c & d)
End Function
以上已经试验过,是可以的.
③ vba窗体中变量保存的问题
呵呵不是没有用
是你放错地方了
你创建一个模块
在里面 public 。。。。 参数
在随便哪个地方执行
都是全局变量
只要你excel没有关闭，数据都是保存最后更改的
④ VBA 如何保存变量
代码和数据是分开的，VBA无法在程序里面存储变量的值，除了使用你说到的存储到表格中之外，还可以选择的方法是存储到注册表或本地文本文件中。
⑤ VBA的有参过程定义,形参用什么说明
ByVal 与 ByRef(默认值)
这两个是子过程的参数传递时,指定参数按什么传递的
ByVal(按值传递)
ByRef(按地址传递)
具体这样来理解:
过程中的参数列表,我们称形参
调用过程时的参数列表,我们称实参
在调用时,我们要将实参的值传递给形参,这样过程才能拿这些数据参与计算并实现一些功能
那么在传递的过程中,就存在这两种传递方式
传值时(ByVal),是先给形参开辟一个临时地址,将实参的内容传入这个临时地址,这样,传递后,形参与实参是在两上不同的地址中,也就是说他们是相互独立的
传址时(ByRef),是直接将实参的地址传递给形参,这样,形参与实参就共用一个地址,所以,形参内容的改变,也直接改变了实参的内容
通过上面的分析,你只要记得:
按值传递时(ByVal),形参的改变不会影响到实参
按址传递时(ByRef),形参的改变,会影响到实参
应用时,我们可以利用按址传递的过程,给一个子过程(Sub过程)进行参数返回
例:
Dim A as integer,B as integer
A=1
B=2
Call AAA(A,B)
Print A & " " & B '得到的结果是2 3 (形参的改变影响到了实参)
Call BBB(A,B)
Pring A & " " & B '得到的结果跟上面的一样, 2 3 (形参的改变并没有影响到这个实参)
Sub AAA(i as integer, j as integer) '默认,则按址传递
i=i+1
j=j+1
End Sub
Sub BBB(ByVal i as integer, ByVal j as integer)
i=i+1
j=j+1
End Sub
⑥ Excel用vba实现的自定义函数，如何实现有参数意义提示的功能 最好给个例子，能够结合图片说
运行后得到字符串”Excel”的首字母和”e”的ASCII值。
代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
⑦ VBA如何保存
这个问题要分两步解决
一是要设置excel允许启用宏
二是另存为启用宏的工作簿
张志晨：奉献知识==分享快乐
⑧ Excel中VBA的几个问题，如何打开即显示窗口，如何将常用参数保存
====57132899====
常量定义在过程之外就可以了嘛
⑨ vba中怎样写执行sql带参的存储过程
.Parameters.Append .CreateParameter("@FromDate", adVarChar, 1, Len(CStr(Format(Me.FromDate, "yyyy-mm-dd"))), CStr(Format(Me.FromDate, "yyyy-mm-dd")))
我是这样写的, 输入输出用1和2即可
另外未定义的错误信息是VBA提示,还是SQL里面的存储过程提示?
⑩ excel vba初学者问题,保存路径带参数。
SubAAA()
DimFilePathAsString
DimIAsLong
FilePath="D:"
ForI=1To1000
IfDir(FilePath&I&".XLS")=""ThenExitFor
Next
ThisWorkbook.SaveAsFilePath&I,51
EndSub