① 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