vba用const定义常量，应该怎么编程？
Const只能定义常量字符串，比如public Const aa="test"\x0d\x0a\x0d\x0a你获取到Cell(1,1)的值需要赋值给变量，比如定义dim x as String\x0d\x0ax=Cell(1,1)\x0d\x0a这样就可以了绛旓細Global 鍙橀噺 as 绫诲瀷 鈥樺畾涔変负鍏ㄥ眬鍙橀噺锛屽 Globlal xyz as date Static 鍙橀噺 as 绫诲瀷 鈥樺畾涔変负闈欐佸彉閲忥紝濡 Static xyz as double 涓鑸彉閲忎綔鐢ㄥ煙鐨勫師鍒欐槸锛岄偅閮ㄤ唤瀹氫箟灏卞湪閭ｉ儴浠借捣浣滅敤锛屾ā鍧椾腑瀹氫箟鍒欏湪璇ユā鍧楅偅浣滅敤銆4锛甯搁噺涓哄彉閲忕殑涓绉嶇壒渚锛岀敤Const瀹氫箟锛涓斿畾涔夋椂璧嬪硷紝绋嬪簭涓笉鑳芥敼鍙樺硷紝浣滅敤...
绛旓細銆愮瓟妗堛戯細A 璇曢27鍒嗘瀽 Dim瀹氫箟鍙橀噺锛屽拰private鐩稿綋锛涘湪妯″潡涓畾涔夊彉閲忥紝static瀹氫箟闈欐佸彉閲忥紝cconst瀹氫箟绗﹀彿甯搁噺銆傝瘯棰27绛旀 A
绛旓細浠涔堝師鍒???Public琛ㄧず鍏ㄥ眬.鍦╒B涓氨琛ㄧず鏁翠釜绋嬪簭閮藉彲浠ヤ娇鐢ㄧ殑甯搁噺,涔熷彲浠ユ槸dim鎴朠rivate(绉佹湁,鍙兘鍦ㄥ悓涓涓ā鍧涓娇鐢)Const琛ㄧず甯搁噺鍏抽敭瀛,璇存槑杩欏彞璇濇槸瑕佺敵鏄庝釜甯搁噺 ERROR_SUCCESS ,ERROR_BADDB 涔嬬被鐨勫氨鏄父閲忓悕,璺熷彉閲忔牱鐨,甯搁噺涔熸槸瑕佹湁涓涓悕瀛,= 灏变笉鐢ㄨ浜嗗惂 鍚庨潰鐨勬暟瀛,琛ㄧず杩欎釜甯搁噺鐨勫....
绛旓細VB涓殑Const鏄彇鑷嫳鏂囧崟璇嶁渃onstant鈥濈殑鍓嶅洓涓瓧姣嶏紝鍏朵腑鏂囨剰鎬濇槸鈥滃父鏁扳濃滃父閲忊濈殑鎰忔濄俈B涓鐢–onst鍛戒护鏉瀹氫箟甯搁噺锛甯搁噺璇存槑璇彞鐨勬牸寮忔槸锛欳onst 甯搁噺鍚 As 绫诲瀷=琛ㄨ揪寮 瀵逛簬涓浜涘湪绋嬪簭杩囩▼涓缁堜繚鎸佷笉鍙樼殑甯告暟銆佸瓧绗﹀悤锛屽彲浠ョ敤甯搁噺璇存槑璇彞鏉ュ畾涔夛紝杩欐牱鍙互鎻愰珮绋嬪簭鐨勫彲璇绘у拰鍙淮鎶ゆс
绛旓細1.浠涔堟椂鍊欑敤甯搁噺锛熺畝鍗曠偣渚嬪瓙锛屼綘瑕佽绠楀拰鍦嗗懆鐜囨湁鍏崇殑鏃跺欙紝鎬荤敤3.141692653589793238462643涓嶆柟闈篃涓嶇編瑙傦紝杩欐椂鍊欎綘鍙互瀹氫箟甯搁噺锛Const PI=3.14169265 鐢≒I浠ｆ浛锛2.鏄笉鏄繀椤鐢–onst锛熸湁鏃跺欏繀椤伙紝鏈夋椂鍊欎笉蹇呴』銆傚鏋滀綘鐢ㄤ簡Option Explicit 閭ｅ氨蹇呴』锛屽惁鍒欎笉蹇呴』銆
绛旓細锛1锛const瀹氫箟甯搁噺:const dataType constData=value;//const淇グ鐨勭被鍨嬩负dataType鐨勫彉閲弙alue涓嶅彲鍙.锛2锛夋寚閽涓娇鐢╟onst锛屼富瑕佹湁涓夌鏂瑰紡 a.鎸囬拡鏈韩鏄甯搁噺,瀹冩湰韬笉鍙彉 char* const ptr;b.鎸囬拡鎵鎸囧悜鐨勫唴瀹规槸甯搁噺锛鎸囧悜鐨勫唴瀹逛笉鍙彉 const char* ptr;c.涓よ呴兘涓嶅彲鍙 const char* const ptr;锛3...
绛旓細鍦╒B涓 dim瀹氫箟鍙橀噺 const 瀹氫箟甯搁噺 甯搁噺鏈変粈涔堢敤鍛 涓句釜渚嬪瓙 浣犲湪鍐欎竴涓暟瀛︾▼搴 浣犲彲浠ユ妸娲惧畾涔変负甯搁噺3.14 閭ｄ綘鍑℃槸鍐欏埌娲剧殑鍦版柟閮芥槸3.14 涓嶇敤鎷呭績鍐欓敊 骞朵笖褰撲綘淇敼鏃 鍏ㄩ儴鐨勬淳鍊奸兘鏀逛簡 寰堟柟渚
绛旓細甯搁噺锛鏄寚绋嬪簭鍦ㄨ繍琛岃繃绋嬩腑鍏跺煎彲浠ユ敼鍙樼殑閲忥紱鍦╒B涓煎父閲忓氨鏄竴涓浐瀹氫笉鍙樼殑鍊硷紝涓嶈兘淇敼锛屽彉閲忓彲浠ヤ慨鏀瑰唴瀛樼┖闂村鍏惰繘琛屼慨鏀逛笉鍙戠敓鍙樺寲鐨勫彨甯搁噺 銆鐢–onst瀹氫箟鐨 鍦╒B涓笉鑳藉弬鍔犺祴鍊 姣斿 Const a as integer=30锛涢殣寮忓０鏄庯紝鍙槸鍙橀噺锛屼笉缁忓０鏄庯紝鐩存帴浣跨敤锛涙樉绀哄０鏄庯紝鍙橀噺澹版槑鍚庡啀浣跨敤鐨勬柟寮忔垚涓...
绛旓細1. 浣跨敤Pubilc璇彞鍙互澹版槑鍏叡妯″潡绾у埆鐨勫彉閲忥紙鍗冲叕鏈夊彉閲忥級銆傚０鏄庢柟寮忎负锛歅ublic 鍙橀噺 as 绫诲瀷 '瀹氫箟涓哄叕鏈夊彉閲忥紝濡 Public xyz As Single.2. 浣跨敤Const璇彞鍙互瀹氫箟甯搁噺锛堝父閲忔槸鍙橀噺鐨勪竴绉嶇壒渚嬶級锛屽湪瀹氫箟鏃惰祴鍊硷紝鍦ㄧ▼搴忎腑涓嶈兘鏀瑰彉鍊硷紝浣滅敤鍩熷拰鍙橀噺浣滅敤鍩熺浉鍚屻傚０鏄庢柟寮忎负锛欳onst Pi=3.1415926 As ...
绛旓細1.const a as integer=25 2.public st as string*8 閿欏湪*8锛岃繖涓兘鐢ㄨ鐨勮瘽浣犲氨鍒VB浜 3.redim B(3) as intege B(3)涓烘暟缁凚涓殑涓涓厓绱,涓嶅彲浠ラ噸瀹氫箟 4.dim const x as integer=10 dim鏄畾涔夊彉閲忥紝const鏄瀹氫箟甯搁噺锛閲嶅浣跨敤褰撶劧閿 寰堝熀纭鐨勪笢瑗 ...
