vba声明全局常量 如何在excel的vba中声明一个全局变量并赋值
Excel VBA \u95ee\u9898\uff1a\u5982\u4f55\u5b9a\u4e49\u5168\u5c40\u53d8\u91cf\uff1fExcel VBA \u5b9a\u4e49\u5168\u5c40\u53d8\u91cf\u7684\u5177\u4f53\u64cd\u4f5c\u6b65\u9aa4\u5982\u4e0b\uff1a
1\u3001\u9996\u5148\u6211\u4eec\u6253\u5f00\u7535\u8111\u91cc\u7684excel\u8f6f\u4ef6\u8fdb\u5165excel\u4e3b\u754c\u9762\u3002
2\u3001\u7136\u540e\u6211\u4eec\u9f20\u6807\u53f3\u51fb\u4e0b\u9762\u7684\u5de5\u4f5c\u8868\uff08\u5982sheet1\uff09\uff0c\u9009\u62e9\u201c\u67e5\u770b\u4ee3\u7801\u201d\uff0c\u5c31\u53ef\u4ee5\u6253\u5f00VBA\u7f16\u8f91\u754c\u9762\u3002
3\u3001\u5982\u56fe\u663e\u793a\u6253\u5f00VBA\u7f16\u7a0b\u754c\u9762\u3002
4\u3001\u63a5\u7740\u5c31\u662f\u5728\u4ee3\u7801\u6846\u91cc\u8f93\u5165\u5b9a\u4e49\u4e00\u4e2a\u6267\u884c\u51fd\u6570\u3002
5\u3001\u63a5\u7740\u5c31\u662f\u5728\u4ee3\u7801\u6846\u91cc\u8f93\u5165\u5168\u5c40\u53d8\u91cf\uff0c\u5b9a\u4e49\u65b9\u5f0f\u3010Globlal \u53d8\u91cf\u3011\uff0c\u901a\u8fc7\u4ee5\u4e0a\u6b65\u9aa4\u5373\u5b9a\u4e49\u597d\u4e86\u4e00\u4e2a\u5168\u5c40\u53d8\u91cf\u3002
\u5de5\u5177/\u539f\u6599Excel
\u53d8\u91cf\u58f0\u660e
\u65b9\u6cd5/\u6b65\u9aa41\u3001\u58f0\u660e\u4e00\u4e2a\u53d8\u91cf\u5e76\u4e14\u7ed9\u5b83\u8d4b\u503c\u3002
2\u3001\u5b9a\u4e49\u4e00\u4e2a\u5b8f\u51fd\u6570\uff0c\u7528\u4e8e\u663e\u793a\u5168\u5c40\u53d8\u91cf\u662f\u5426\u6709\u503c\u3002
3\u3001\u5355\u51fb\u6267\u884c\u5b8f\u547d\u4ee4\uff0c\u901a\u8fc7\u6309control +Q, \u5982\u56fe\uff0c\u63d0\u793a\u6846\u6ca1\u6709\u63d0\u793a\u3002
4\u3001\u7136\u540e\u6539\u4e00\u4e0b\u5168\u5c40\u53d8\u91cf\u58f0\u660e\u7684\u4f4d\u7f6e\u3002
5\u3001\u518d\u6309\u4e00\u4e0bControl+Q\u4f1a\u5f97\u5230\u63d0\u793a\u6846\uff0c\u5982\u56fe\u6240\u793a\u3002
Public A As Variant
则变量 A 成为全局变量，在整个工作薄或数据库中都可以使用。
当然你可以试着定义你自己的变量。
如果是整个工作表通用的就在所有代码的开头用private const ...声明，如果是整个工作薄通用就新建个模块，在模块的开头用publick const ...声明
最简单的办法，在所有sub之前声明的变量，就是公共变量了
1、声明全局变量可以在文档任何位置（For循环、If判断内除外）。
2、比如：
Option Explicit
Public a As String
Sub aa()
a = "public"
MsgBox a
End Sub
以上代码可执行。
对，public 开头行
绛旓細鏂板缓涓妯″潡鎴栨墦寮宸叉湁鐨勪竴涓ā鍧楋紝鍦∣ption Compare Database杩欎竴璇彞涔嬩笅瀹氫箟鍏叡鍙橀噺锛屽锛歅ublic A As Variant 鍒欏彉閲 A 鎴愪负鍏ㄥ眬鍙橀噺锛屽湪鏁翠釜宸ヤ綔钖勬垨鏁版嵁搴撲腑閮藉彲浠ヤ娇鐢ㄣ傚綋鐒朵綘鍙互璇曠潃瀹氫箟浣犺嚜宸辩殑鍙橀噺銆
绛旓細鏂规硶/姝ラ1銆佸０鏄庝竴涓彉閲忓苟涓旂粰瀹冭祴鍊笺2銆佸畾涔変竴涓畯鍑芥暟锛岀敤浜庢樉绀哄叏灞鍙橀噺鏄惁鏈夊銆3銆佸崟鍑绘墽琛屽畯鍛戒护锛岄氳繃鎸塩ontrol +Q, 濡傚浘锛屾彁绀烘娌℃湁鎻愮ず銆4銆佺劧鍚庢敼涓涓嬪叏灞鍙橀噺澹版槑鐨勪綅缃5銆佸啀鎸変竴涓婥ontrol+Q浼氬緱鍒版彁绀烘锛屽鍥炬墍绀恒
绛旓細1锛塚BA鍏佽浣跨敤鏈畾涔夌殑鍙橀噺锛岄粯璁ゆ槸鍙樹綋鍙橀噺銆2锛夊湪妯″潡閫氱敤璇存槑閮ㄤ唤锛屽姞鍏 Option Explicit 璇彞鍙互寮鸿揩鐢ㄦ埛杩涜鍙橀噺瀹氫箟銆3锛夊彉閲忓畾涔夎鍙ュ強鍙橀噺浣滅敤鍩 Dim 鍙橀噺 as 绫诲瀷 鈥樺畾涔変负灞閮ㄥ彉閲忥紝濡 Dim xyz as integer Private 鍙橀噺 as 绫诲瀷 鈥樺畾涔変负绉佹湁鍙橀噺锛屽 Private xyz as byte Public 鍙橀噺 as ...
绛旓細1. 浣跨敤Pubilc璇彞鍙互澹版槑鍏叡妯″潡绾у埆鐨勫彉閲忥紙鍗冲叕鏈夊彉閲忥級銆傚０鏄庢柟寮忎负锛歅ublic 鍙橀噺 as 绫诲瀷 '瀹氫箟涓哄叕鏈夊彉閲忥紝濡 Public xyz As Single.2. 浣跨敤Const璇彞鍙互瀹氫箟甯搁噺锛堝父閲忔槸鍙橀噺鐨勪竴绉嶇壒渚嬶級锛屽湪瀹氫箟鏃惰祴鍊硷紝鍦ㄧ▼搴忎腑涓嶈兘鏀瑰彉鍊硷紝浣滅敤鍩熷拰鍙橀噺浣滅敤鍩熺浉鍚屻傚０鏄庢柟寮忎负锛欳onst Pi=3.1415926 As ...
绛旓細Const鍙兘瀹氫箟甯搁噺瀛楃涓诧紝姣斿public Const aa="test"\x0d\x0a\x0d\x0a浣犺幏鍙栧埌Cell(1,1)鐨勫奸渶瑕佽祴鍊肩粰鍙橀噺锛屾瘮濡傚畾涔塪im x as String\x0d\x0ax=Cell(1,1)\x0d\x0a杩欐牱灏卞彲浠ヤ簡
绛旓細vB锛嶯ET涓甯搁噺鐨勬潵婧愭湁涓ょ 鐢辩敤鎴峰埄鐢–onst璇彞鑷畾涔 鎴栬呮槸绯荤粺棰勫厛瀹氫箟鐨 鍙互閫氳繃鑿滃崟涓 瑙嗗浘 涓 鍏朵粬绐楀彛 涓 瀵硅薄娴忚鍣 鍛戒护鎴栬呮槸鍚屾椂鎸塁trl+Alt+J缁勫悎閿氨鍙互鎵撳紑VB锛嶯ET 鍜VBA瀵硅薄搴撲腑鐨甯告暟鍒楄〃 杩欎簺甯告暟鍙互涓庡簲鐢ㄧ▼搴忕殑瀵硅薄 鏂规硶鍜屽睘鎬т竴璧蜂娇鐢 鑰屼笖姣忎竴涓狝ctiveX鎺т欢鐨勫璞″簱涔熷畾涔変簡...
绛旓細vba Const 甯搁噺鍚 As 鏁版嵁绫诲瀷 = 鍊 渚嬪锛屾垜浠彲浠ュ畾涔変竴涓〃绀哄渾鍛ㄧ巼鐨勭鍙峰父閲忥細vba Const Pi As Double = 3.14159265358979 鍦ㄨ繖涓緥瀛愪腑锛“Pi”鏄父閲忕殑鍚嶇О锛“Double”鏄暟鎹被鍨嬶紝琛ㄧず杩欎釜甯搁噺鏄竴涓弻绮惧害娴偣鏁帮紝鑰“3.14159265358979”鍒欐槸杩欎釜甯搁噺鐨勫笺
绛旓細4銆佹彁楂樻墽琛屾晥鐜囷細鍦ㄧ紪璇戞墽琛屾椂锛屼娇鐢ㄥ父閲忎細浣跨▼搴忕殑鎵ц鏁堢巼鏇撮珮銆傝繖鏄洜涓鸿繘琛屽父閲忓鐞嗙殑閫熷害姣斿瓧闈㈠煎鐞嗙殑閫熷害瑕侀珮寰楀銆傜患涓婃墍杩帮紝浣跨敤甯搁噺鍙互鎻愰珮浠ｇ爜鐨勫彲缁存姢鎬с佸彲璇绘у拰鎵ц鏁堢巼锛屼粠鑰屾彁楂樹唬鐮佺殑鍝佽川銆VBA甯搁噺鏄竴绉嶄笉鍙慨鏀圭殑鍊硷紝瀹冧笌鍙橀噺涓嶅悓锛屽彉閲忕殑鍊煎湪杩愯鏃舵槸鍙互淇敼鐨勩
绛旓細琛1.1 VBA鏁版嵁绫诲瀷 琛ュ厖涓鐐规槸锛屾暟缁勫氨鍍忎竴绛愭按鏋滐紝閲岄潰鍙互瀛樹笉姝竴涓暟鎹 浠栦笉鏄竴涓叿浣撶殑鏁版嵁绫诲瀷锛屽彨鏁版嵁缁撴瀯鏇村悎閫備簺銆傚畾涔夊悗涓嶈兘琚敼鍙樼殑閲忥紝灏辨槸 甯搁噺 锛涚浉鍙嶇殑 鍙橀噺 灏辫兘淇敼鍏蜂綋鍊笺傚湪vba閲岋紝浣跨敤涓涓 鍙橀噺/甯搁噺 瑕佸厛澹版槑銆傚父閲 澹版槑鏂规硶濡備笅锛 Const 甯搁噺鍚嶇О As 鏁版嵁绫诲瀷 ...
绛旓細鍦╡xcel鐨vba銆IDE涓柊寤轰竴涓ā鍧楋紝鐒跺悗杈撳叆浠ｇ爜锛歱ublicF()asvariant鍦ㄦ柊寤轰竴涓繃绋嬪彨鍋歱ublicSubINITF()RedimF(XFToXT,YFToYT)endsub鍏朵腑鐨剎f,xt,yf,yt闇瑕佷綘鑷繁缁欏硷紝鍥犱负鎴戜笉鐭ラ亾浣犲埌搴曢渶瑕佸灏戜釜妯旱鏍煎湪浣犳墍鏈夌殑浠ｇ爜鐨勬渶寮濮嬬殑浣嶇疆璋冪敤涓娆¤繖涓猻ub鍗冲彲 ...
