如何在excel的vba中声明一个全局变量并赋值 在Excel的VBA里如何定义公共变量?
\u5173\u4e8eEXCEL VBA\u4e2d\u5168\u5c40\u53d8\u91cf\u8c03\u7528\u7684\u95ee\u9898\u5982\u679c\u80fd\u628a\u5168\u90e8\u4ee3\u7801\u7c98\u8d34\u51fa\u6765\u5c31\u597d\u5206\u6790\u4e86\u3002\u6700\u5927\u7684\u53ef\u80fd\u6027\u662f\u4f60\u6309\u94ae2\u7684\u8fc7\u7a0b\u4e2d\u53c8\u91cd\u65b0\u5b9a\u4e49\u4e86\u4e00\u4e2a\u53d8\u91cfa\uff0c\u4e0e\u5168\u5c40\u53d8\u91cf\u91cd\u540d\uff0c\u90a3\u4e48\u8fd9\u4e2a\u8fc7\u7a0b\u5c31\u65e0\u6cd5\u5f15\u7528\u5168\u5c40\u53d8\u91cf
\u4f60\u628a\u58f0\u660e\u8bed\u53e5\u4ee5\u5916\u7684\u4ee3\u7801\u653e\u5728sub ...end sub\u5916\u9762\u5f53\u7136\u4f1a"\u7f16\u8bd1\u9519\u8bef: \u4e0d\u6b63\u786e\u7684\u5916\u90e8\u7a0b\u5e8f"\u4e86
\u53ef\u4ee5\u5148\u5199\u4e00\u4e2a\u516c\u5171\u8fc7\u7a0b,public sub \u8fc7\u7a0b\u540d...end sub
\u4f8b:
public sub abc
Dim Fer As String
Dim Axal, Axaw, Axsl, Axsw, Aoal, Aoaw, Aoql, Aoqw, r701, r700, Yer, Zer As Double
If Zer > r700 And (Fer = "L" Or Fer = "l") Then
r701 = Zer
ElseIf Yer > r700 And (Fer = "W" Or Fer = "w") Then
r701 = Yer
Else
r701 = r700
End If
Axql = Int((Axsl + Axsw + Aoal) / Aoaw * Aoql - Aoqw)
Axqw = Int((Axsl + Axsw) * (Aoal - Aoaw) / Aoql)
end sub
\u7136\u540e\u5728\u5de5\u7a0b\u5185\u7684\u5176\u5b83\u8fc7\u7a0b\u6216\u51fd\u6570\u4e2d\u901a\u8fc7\u8fc7\u7a0b\u540d\u8c03\u7528\u4ee5\u4e0a\u8fc7\u7a0b
\u4f8b:
sub aaa
\u4ee3\u7801\u6bb5
abc
\u4ee3\u7801\u6bb5
end sub
工具/原料
Excel
变量声明
方法/步骤
1、声明一个变量并且给它赋值。
2、定义一个宏函数，用于显示全局变量是否有值。
3、单击执行宏命令，通过按control +Q, 如图，提示框没有提示。
4、然后改一下全局变量声明的位置。
5、再按一下Control+Q会得到提示框，如图所示。
你可以直接在变量定义后面赋值：
Option Explicit
Public isAlreadyClicked As Boolean
isAlreadyClicked = True
它现在已经是全局变量了,赋值什么的和其他变量并无不同,只不过他可以在任意过程中通用.
就我的理解,你这样就是一个常量了
在一个标准模块下的开始部分写下面的一句代码试试看：
Option Explicit
Public isAlreadyClicked As Boolean
Const abc As Integer = 6
新添加一个模块声明变量，在workbook的open事件中赋初值。
绛旓細鏂规硶/姝ラ1銆佸０鏄庝竴涓彉閲忓苟涓旂粰瀹冭祴鍊笺2銆佸畾涔変竴涓畯鍑芥暟锛岀敤浜庢樉绀哄叏灞鍙橀噺鏄惁鏈夊銆3銆佸崟鍑绘墽琛屽畯鍛戒护锛岄氳繃鎸塩ontrol +Q, 濡傚浘锛屾彁绀烘娌℃湁鎻愮ず銆4銆佺劧鍚庢敼涓涓嬪叏灞鍙橀噺澹版槑鐨勪綅缃5銆佸啀鎸変竴涓婥ontrol+Q浼氬緱鍒版彁绀烘锛屽鍥炬墍绀恒
绛旓細1銆vba涓浣跨敤Dim鍏抽敭瀛澹版槑鏁扮粍锛孌im鍏抽敭瀛楃殑鍚庨潰鏄暟缁勫悕绉帮紝鍚嶇О涔嬪悗瑕佹湁鎷彿锛岀劧鍚庢嫭鍙蜂箣鍚庡彲浠ユ寚鏄庢暟缁勭殑闀垮害锛屼篃鍙敤to鍏抽敭瀛楁寚鏄庤寖鍥达紝鏈鍚庡垯鏄敤as 鍏抽敭瀛楁寚鏄庣被鍨嬶紝鍏蜂綋鐨勬牸寮忚涓嬪浘锛2銆佷笅闈㈢敤涓涓疄渚嬫潵璇存槑鐢ㄦ硶锛岄鍏堝湪琛ㄦ牸涓湁6000涓暟鍊硷紝绛涢夊嚭澶т簬90鐨勬暟鍊煎皢鍏跺鍒惰嚦B鏍忔垨C鏍忥紝鍒嗗埆鐢ㄤ袱绉...
绛旓細1銆乨im xl as new 鈥︽鏃讹紝VBA鎻愮ず鐨勫唴瀹规槸浣犲皢瀹炰緥鍖栫殑瀵硅薄闆嗗悎渚涗綘閫夋嫨锛屾晥鏋滄槸鍒涘缓xl鍙橀噺锛屼笉浠呭畾涔夊彉閲忕被鍒负xxx锛岃屼笖灏嗗畠杩涜瀹炰緥鍖栵紝鍗冲垱寤哄苟鍒嗛厤鍐呭瓨鎶婂湴鍧璧嬪肩粰xl杩欎釜鍙橀噺銆傛瘮濡備綘鍦ㄥ伐绋---寮曠敤涓妸ActiveX Data Objects 2.8 Libray閫変腑锛岄偅涔堜綘鍐嶄娇鐢ㄨ繖鍙ヨ鍙ユ椂锛屼綘浼氬彂鐜癆DODB宸茬粡鍦ㄤ綘鐨...
绛旓細1銆侀鍏堟垜浠墦寮鐢佃剳閲岀殑excel杞欢杩涘叆excel涓荤晫闈2銆佺劧鍚庢垜浠紶鏍囧彸鍑讳笅闈㈢殑宸ヤ綔琛锛堝sheet1锛夛紝閫夋嫨鈥滄煡鐪嬩唬鐮佲濓紝灏卞彲浠ユ墦寮VBA缂栬緫鐣岄潰銆3銆佸鍥炬樉绀烘墦寮VBA缂栫▼鐣岄潰銆4銆佹帴鐫灏辨槸鍦ㄤ唬鐮佹閲岃緭鍏ュ畾涔変竴涓墽琛屽嚱鏁般5銆佹帴鐫灏辨槸鍦ㄤ唬鐮佹閲岃緭鍏ュ叏灞鍙橀噺锛屽畾涔夋柟寮忋怗loblal 鍙橀噺銆戯紝閫氳繃浠ヤ笂姝ラ鍗冲畾...
绛旓細璇峰弬闃 绀轰緥 鐗规 鍦ㄨ繃绋嬬骇鍒腑浣跨敤锛岀敤浜庡０鏄庡彉閲忓苟鍒嗛厤瀛樺偍绌洪棿銆傚湪鏁翠釜浠ｇ爜杩愯鏈熼棿閮借兘淇濈暀浣跨敤 Static 璇彞澹版槑鐨鍙橀噺鐨勫笺傝娉 Static varname[([subscripts])] [As [New] type] [, varname[([subscripts])] [As [New] type]] . . .Static 璇彞鐨勮娉曞寘鍚笅闈㈤儴鍒嗭細閮ㄥ垎 鎻忚堪 va...
绛旓細1銆侀鍏堬紝鍦‥xcel涓鎸夊揩鎹烽敭鈥淎lt + F11鈥濓紝濡備笅鍥炬墍绀恒2銆佸叾娆★紝鍦╒BA缂栬緫鍣ㄤ腑渚濇鍗曞嚮鈥滄彃鍏モ-->鈥滄ā鍧椻濓紝濡備笅鍥炬墍绀恒3銆佺劧鍚庯紝鍦ㄢ滄ā鍧椻濅腑杈撳叆濡備笅浠ｇ爜锛歄ption Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End Sub 4銆佹帴鐫锛屽湪VBA缂栬緫鍣ㄧ殑宸︿晶杈撳叆妯″潡鐨勫悕绉帮紝濡備笅...
绛旓細New鐨鍐欐硶,涓鑸槸鍦ㄨ寮曠敤鍏朵粬绋嬪簭鐨凮bject鏃剁敤(姣斿,寮曠敤鏁版嵁搴撴椂缁忓父鐢ㄥ埌鐨凬ew ADODB.Recordset;寮曠敤Word鏃剁殑New Word.Application; 寮曠敤Outlook鏃剁殑New Outlook.Application,绛夌瓑). 鑰孯ange, Sheet, Workbook绛夌瓑Object鍥犱负榛樿鏄Excel杩欎釜Application涓嬬殑Object,鎵浠ュ湪鎵撳紑Excel鏃跺凡缁忓瓨鍦ㄤ簡,灏辨棤闇New杩欑...
绛旓細dimaaslong '瀹氫箟涓涓暱鏁存暟鍨嬪彉閲-2,147,483,648鍒2,147,483,647銆俤imaasinteger'瀹氫箟涓涓暣鏁板瀷鍙橀噺-32,768鍒32,767銆傚叏灞鍙橀噺渚嬪瓙public鍙橀噺1ASIntegerSubLLL()鍙橀噺1=1111EndSub妯″潡绾у彉閲忎緥瀛怐IM鍙橀噺1ASIntegerSubLLL()鍙橀噺1=1111EndSub ...
绛旓細瀵瑰彉閲忓彲浠ヤ娇鐢ㄧ殑鏁版嵁绫诲瀷宸茬粡鐔熸倝浜嗭紝灏卞彲浠ュ垱寤哄彉閲忋傚垱寤哄彉閲忓彲浠ヤ娇鐢―im璇彞锛屽垱寤哄彉閲忛氬父绉颁负澹版槑鍙橀噺銆侱im璇彞鐨勫熀鏈娉曪細Dim鍙橀噺鍚岮s鏁版嵁绫诲瀷 Dim sName As String锛氱敵鏄巗Name鍙橀噺涓哄瓧绗︿覆绫诲瀷銆傚鏋滃湪璇彞涓病鏈夋彁渚涙暟鎹被鍨嬶紝鍙橀噺灏嗚鎸囧畾涓篤ariant绫诲瀷锛屽洜涓VBA涓榛樿鐨勬暟鎹被鍨嬫槸Variant銆傚繀椤绘寚瀹...
绛旓細涓婇潰婕旂ず浜VBA浠ｇ爜鍦ㄥ崟涓崟鍏冩牸涓緭鍏ユ暟缁勫叕寮忥紝濡傛灉瑕佸湪澶氫釜鍗曞厓鏍间腑杈撳叆鏁扮粍鍏紡鍛紵濡備笅闈㈢殑浠ｇ爜鎵绀猴細Sheet3.Range(鈥淏1:B6鈥).FormulaArray= 鈥=A1:A6=鈥濃 Excel鈥濃濃濆垽鏂伐浣滆〃Sheet3鐨勫崟鍏冩牸鍖哄煙A1:A6涓殑鍊兼槸鍚︿负鈥 Excel鈥濓紝濡傛灉鏄垯杩斿洖TRUE锛屽惁鍒欎负FALSE銆傝繍琛屼唬鐮佸悗鐨勭粨鏋滃涓嬫墍绀恒傚...
