ExcelVBA在工程測(cè)量上的應(yīng)用Excel是大家很熟悉的辦公軟件，相信大家在工作中經(jīng)常使用吧。在測(cè)量工作中，你是否感覺(jué)到有很不方便的時(shí)候？比如，計(jì)算一個(gè)角度的三角函數(shù)值，而角度的單位是60進(jìn)制的，此時(shí)，你一定感到很無(wú)奈，因?yàn)?，Excel本身無(wú)法直接計(jì)算60進(jìn)制的角度的三角函數(shù)！還有，如果你的工作表中有了點(diǎn)坐標(biāo)值（二維或者三維），要在CAD中展繪出來(lái)，怎樣才能又快又直接？不然，就只有拐彎摸角了，很痛苦啊！其實(shí)，只要對(duì)Excel進(jìn)行一些挖掘，就可以發(fā)現(xiàn)Excel的功能我們還沒(méi)有好好的利用呢。Excel本身提供了強(qiáng)大的二次開(kāi)發(fā)功能，只要我們仔細(xì)的研究，沒(méi)有什么能難倒我們的。下面，好好筆者將帶你走近Excel，認(rèn)識(shí)它的強(qiáng)大的二次開(kāi)發(fā)環(huán)境VBAIDE，用它來(lái)解決上面所提到的問(wèn)題，就非常容易了。初識(shí)VBAIDE首先，你必須懂得一些簡(jiǎn)單的VB編程常識(shí)。如果不懂就只有通過(guò)其他的途徑去學(xué)習(xí)了。但用不著深入的研究，只要靜下心來(lái)，幾個(gè)小時(shí)就可以了。打開(kāi)Excel，按Alt+F11即進(jìn)入VBAIDE，學(xué)過(guò)VB的人一看就知道那就是熟悉的VB界面。下面看看如何定義一個(gè)函數(shù)，然后利用它來(lái)解決60進(jìn)制的角度的三角函數(shù)計(jì)算問(wèn)題。在菜單上依次點(diǎn)擊[插入]->[模塊]，然后輸入如下代碼PublicConstpi=3ublicFunctionDEG(nAsDouble)DimAAsDouble,BAsDouble,CAsDouble,DAsDouble,EAsDouble,FAsDouble,GAsDouble,KAAsDoubleD=Abs(n)+0.000000000000001F=Sgn(n)A=Int(D)B=Int((D-A)*100)C=D-A-B/100DEG=F*(A+B/60+C/0.36)*pi/180EndFunction這樣，就定義了一個(gè)名字叫DEG的函數(shù)，它的作用就是轉(zhuǎn)換60進(jìn)制的角度為Excel認(rèn)識(shí)的弧度。編輯完后按Alt+Q即返回Excel，再在某一單元格輸入=sin(deg(A1))(A1既可以是單元格的值,也可以是輸入的角度值),回車，哈哈，怎么樣？結(jié)果出來(lái)了吧？你可以用計(jì)算器檢驗(yàn)一下是否正確。如果出現(xiàn)#NAME？那就要設(shè)置一下安全設(shè)置。依次點(diǎn)[工具]->[宏]->[安全性]，在安全級(jí)選項(xiàng)卡上選擇“中”或者“低”，然后關(guān)閉后重新打開(kāi)就可以了，以后只要是60進(jìn)制的角度，就用它轉(zhuǎn)換，非常方便哦。工程測(cè)量中，經(jīng)常碰到導(dǎo)線的計(jì)算，如果手頭沒(méi)有平差計(jì)算程序就只有手工計(jì)算了，這時(shí)候你曾經(jīng)想過(guò)編個(gè)小程序來(lái)計(jì)算？其實(shí)，這很簡(jiǎn)單，筆者在宛坪（上海至武威）高速公路上做測(cè)量監(jiān)理，因?yàn)橛写罅康膶?dǎo)線需要復(fù)核，故編寫(xiě)了一個(gè)附合導(dǎo)線計(jì)算程序，代碼很簡(jiǎn)單，但很實(shí)用。下面是該程序的代碼：Sub附合導(dǎo)線計(jì)算()有Dim筐m歸As池Int己ege棟r,交nA喚sI蕉nte灰ger毛,m誓sA搭sD忍oub均le,飯gg獻(xiàn)As迫Do姨ubl竿e,兼sht佳As轟Ob碗jec趁t,媽xx尤As銳Dou舞ble剖,y肝yA證sD傳oub鋤le,奧S紙As盒Dou頃ble俗Set恢sh篇t=踢Th側(cè)isW腹ork東boo毒k.A雄cti探veS紐hee哄t亂Do呆Whi片le貿(mào)sht他.Ce甚lls貼(m駱+3洗,4盯)<征>"滔"頂m=菊m百+1埋Loo脂p名For勵(lì)n派=3雁To莫m汗+2勿ms席=D俗EG(鞋ms)毯+豪DEG披(sh如t.C屈ell根s(n碰,4問(wèn)))榮ms蠟=R漆AD(把ms)浸S=駛S甘+s駛ht.候Cel您ls(胸n,輔3)窯Nex混t采ms插=D喘EG(低ms)倚g(shù)g筒=R伐AD(蜂DEG湊(sh燒t.C菜ell匆s(3旁,5順))謎+m評(píng)s-杠DE莫G(s斑h(yuǎn)t.員Cel雙ls(器3+袖m,巴5)紅)-容pi膝*慚m)球xx鮮=0奏:y皮y=清0懼For蠶n氣=4臣To打m掙+2腫'懇方位角脫sht農(nóng).Ce薦lls戚(n,賭5)爸=反RAD桿(DE慧G(s威ht.介Cel豈ls(辱n-待1,毛5)年)+趕DE漲G(s立ht.優(yōu)Cel難ls(攪n-她1,仁4)瞎)-徑pi疲-蝦DEG秀(gg蜂)/井m)秀'裝坐標(biāo)增與量辱sht秀.Ce熱lls秀(n,紹6)五=瘦For結(jié)mat棗(sh疫t.C延ell書(shū)s(n于-邀1,竿3)殖*C壺os(搜DEG隱(sh或t.C室ell壺s(n藍(lán),5敬)))來(lái),"針###備##.等###東#")制sht嗓.Ce獎(jiǎng)lls慕(n,努7)屢=襪For論mat盼(sh買t.C之ell鋪s(n刪-盼1,罷3)磁*S鴉in(牢DEG程(sh佛t.C棉ell績(jī)s(n隨,5獲)))屬,"范###懇##.從###乞#")羽'懶坐標(biāo)增奧量和族xx進(jìn)=x減x+封sh生t.C啟ell洞s(n蹈,6蚊)院yy抬=y效y+歇sh蒼t.C輪ell喊s(n壩,7赤)草Nex任t脹xx雖=x勒x+鉛sh棄t.C膝ell變s(3蜂,1未0)鮮-s支ht.然Cel徑ls(傅m+母2,方10絕)洪yy悔=y筑y+屋sh跳t.C仁ell歸s(3倆,1碌1)鏡-s利ht.耍Cel銷ls(厲m+滑2,念11縱)往sht拌.Ce兆lls刃(m帳+4京,5恒)=蓋彎"吹△禽α墓="劣&F喉orm治at(低gg,聚"#笛##.霧###墾###效")執(zhí)sht府.Ce剝lls造(m此+4潮,6惕)=努獲"擇△宇X="遙&播For抬mat獄(xx富,"禁###哥.##敢#")跨sht巾.Ce黎lls鋸(m網(wǎng)+4范,7閱)=洪息"拳△舉Y="屠&虜For彩mat織(yy賊,"容###肚.##錄#")燃sht叢.Ce議lls譽(yù)(m從+4健,3框)=椒劑"插∑替S="凳&時(shí)For剃mat題(S,誓"#耐##.膏###單")劣sht霞.Ce索lls棋(m安+4東,9距)=易踩"安△攀S="最&喚For衣mat叫(Sq監(jiān)r(x餐x*精xx喊+泰yy里*y淚y),埋"#優(yōu)##.發(fā)###參")肢sht惕.Ce撐lls攜(m頌+4廚,1衣0)折=教"全相對(duì)精額度妨1/麻"&昏Fo誰(shuí)rma引t(S呼/助Sqr緒(xx壺*磨xx殖+y爪y*始yy曬),靜"##仆###禁#")皂For核n捏=4直To殲m殿+2捷sht穩(wěn).Ce局lls該(n,稅8)稠=雨For拔mat勒(xx源/普S*驚sh少t.C五e(cuò)ll她s(n識(shí)-姥1,扁3),松"#傻##.差###斧#")窯sht丟.Ce已lls服(n,秧9)承=懂For屢mat感(yy汪/掌S*握sh展t.C姐ell述s(n石-炊1,災(zāi)3),咱"#淹##.辛###針#")藝Nex路t姿For具n統(tǒng)=4去To予m乏+1逆sht璃.Ce誓lls鍋(n,朋10暮)=貸sh茶t.C炕ell它s(n訂-目1,賊10)探+芝sht醬.Ce伯lls玉(n,逐6)賄-肝sht襲.Ce杰lls燦(n,剛8)蜜sht額.Ce喊l(fā)ls吊(n,殃11像)=竿sh腎t.C岸ell貨s(n還-斃1,校11)藥+缸sht疫.Ce嫌lls繳(n,勉7)林-材sht經(jīng).Ce悠lls炎(n,俘9)筍Nex燙t羽揭Co雜lum姓ns(使"F:奔K")百.Se項(xiàng)lec正t五恰Se體lec搞tio集n.N遞umb班erF結(jié)orm戚atL匙o(hù)ca倚l(wèi)=壘"0區(qū).00翁0_盟"井End宜Su胡b然Pub怕lic不Fu糾nct色ion攪RA冠D(N括uA悠sD哲oub秒le)惜As錢Do腎ubl予e午Dim抖A巨As炎Dou息ble某,B乳As鍛Do優(yōu)ubl名e,寒CA榮sD奪oub揚(yáng)le,頓D宜As民Dou沾ble影,E愈As禮Do滔ubl銹e,頸FA割sD宏oub炕le,辰G挪As綢Dou肚ble熔,p抱As麻Do泉ubl水e驚D=螞Ab過(guò)s(N窮u)態(tài)F=刮Sg謹(jǐn)n(N詞u)旁p=高18囑0#康/p媽i倡G=價(jià)p汪*6袖0#慮A=依In撓t(D泡*忌p)課B=題In搏t((閣D-唉A樂(lè)/p冊(cè))*齡G)豬W=春B鑼C=悠(D辣-蔥A/劫p狠-B策/浪G)畏*2嬸0.6答264槐806校2葵RAD倦=市(C寸+A泛+外B/體10彎0)恢*F爸End何Fu梢nct宵ion朝值得注風(fēng)意的是蘆，前面即提到測(cè)的狐DE將G金函數(shù)別菠忘記加浮進(jìn)去。罷如果自犯己定義舟一個(gè)名寫(xiě)字互叫示“蠶計(jì)鴿算租”長(zhǎng)的按鈕哨，指定捎此工具淚的宏庸為鉤“涉單一附話合導(dǎo)線鬧計(jì)服算唯”協(xié)，那么扛，只要干按下面乎的格式信輸入原動(dòng)始數(shù)據(jù)觀（斜體黑是輸入訓(xùn)的），茅點(diǎn)諸“被計(jì)謎算佛”丘就可以勇得到計(jì)貢算結(jié)果網(wǎng)了。所宰有的過(guò)柴程都是走自動(dòng)的塑，無(wú)須卸再手工躺填寫(xiě)，掏是不是類很方便魂？礎(chǔ)下面我五們就來(lái)館解決上挨面提到呀的扣與艘CA零D盒的連接頸和通訊臺(tái)問(wèn)題。囑進(jìn)里入占VBA凡ID祖E能，乓按吳[潔工故具澆]->諸[橫引之用彎]灘,管找到可變使用的生引用，夾在勵(lì)“受Aut偏oCA艦D20末0并0攤類型賢庫(kù)去”統(tǒng)的左邊麻打鉤，你點(diǎn)確定進(jìn)就行了律。在?？皦K中輸乖入以下篇代碼：客Glo姥bal驚Sh填eet隊(duì)As諸Ob貍jec旅t,垮aca乞dmt旋ext縣As呆ac害adm換tex何t,吧fon友tHi恩ght版As喜Do搖ubl雙e弦Gl界oba誘lx火lBo癥ok充As異Exc然el.切Wor庫(kù)kbo獵ok女Glo歐bal蔽p0比(2)做As求Do敞ubl撫e,泛p1(與2)側(cè)As謎Dou皂ble暖,p拘2(2豐)A攏sD冶oub色le漂Glo業(yè)bal憶ac買adA趕pp令A(yù)s仁Aca紡dAp勝pli形cat兔ion州Glo臥bal造ac拌adD乓oc港As玩Aca堪dDo梯cum賊ent帆Glo蝦bal礎(chǔ)ac連adP去oin擋tA恰sa交cad爆Poi栗nt算Gl畝oba慰ln課umb赤er嘆As爛Int距ege船r珍Pu繡bli遠(yuǎn)cT剝ype窯pt卷n思As挑Int夏ege放r喘pt焰(2)萬(wàn)As陸Do懸ubl繞e若Glo五bal桌pt摟()擇As壞pt血Gl冊(cè)oba球lt舟ext煌1A址sA鼻cad挽Tex秤t清拔Glo彼bal餅CA索DA教sO月bje湯ct巴居Glo濫bal堵p(孫2)枕As丈Dou灶ble副,i雀As詢In拴teg遭er,守j緒As息Int肆ege邁r抹襯倒Glo燙bal例h辰As命Int款ege屈r,信lA抖sI懼nte留ger臂Pub猴lic他Fu享nct點(diǎn)ion異Ge暑t_A咳CAD悟(Dw居tA載sS卷tri漁ng)餓As校Bo廉ole隸an姿Di匪mY淡ER枯As血Int棍ege牧r喝逼On襖Er橡ror往Re鵲sum姑eN疼ext潑懷Se委ta暴cad附App姑=返Get蹄Obj高ect摸(,保"Au竭toC絞AD.宿App司lic禁ati所on"灶)蒙帳If渴Er沉rT斧hen客拔蹲E擊rr.幸Cle通ar茅斥局S援et御aca紋dAp沙p=終Cr姑eat左eOb澡jec濁t(yī)("禾Aut摧oCA翻D.A梯ppl奴ica削tio軍n")摩修伙I恨fE仗rr鐘The盼n振獻(xiàn)血賓瞞Msg借Box栽Er掘r.D棵esc江rip疫tio屯n誦搖瞞或勁On愧Err碎or飽GoT紹o0饅市認(rèn)屢寬Get薄_AC藝AD灘=F什als察e墓貪階歐栽Exi罩tF廳unc防tio鞋n撇潤(rùn)煙E苗nd傲If圓賽En悔dI館f代衫On站Er遠(yuǎn)ror婦Go植To煩0淚Set委ac誓adD李oc繞=a慈cad搜App縫.Ac籠tiv隱eDo間cum思ent宋赤ac仁adA甩pp.瞎Vis訊ibl秒e=君Tr怨ue油連Ge偶t_A奉CAD良=蹦Tru貧e持書(shū)Di付mt雄ype鈴Fac勇eA粘sS餡tri坦ng詠籍Di錄mB代old紹As介Bo槽ole調(diào)an戲蚊Di皮mI呆tal陵ic偉As勁Boo姐lea吧n拜灑Di守mc卷har耍Set完As叢Lo跌ng汽誼Di艱mP遠(yuǎn)itc盤han跑dFa筑mil雜yA侵sL堅(jiān)ong誘饞ac酸adD緞oc.縮Act怨ive繩Tex返tSt餐yle煮.Ge顫tFo翼nt沾typ瞎eFa途ce,骨Bo粉ld,吼It豪ali宋c,書(shū)cha豪rSe攀t,僵Pit媽cha植ndF瓣ami當(dāng)ly斧aca鄉(xiāng)dDo梳c.A悄cti扯veT館ext狗Sty勤le.襖Set己Fon轎t勵(lì)"曬宋煤體或",洞Bol識(shí)d,協(xié)Ita慮lic話,c賄har額Set蝶,P才itc彩han處dFa眼mil茶y斤End虜Fu惰nct咱ion送Sub溫核顯示對(duì)特話框念(殺)穗For輪m1.漲Sho煉w(旁0)星End樓Su變b四Pub曠lic晉Fu掃nct哥ion漆Dr努aw_扒Poi稠nt(醒Poi以nt(勒)A這sD慎oub釘le)啦As聚ac概adP籮oin撓t西匪Se度tD乎raw亂_Po羊int到=構(gòu)aca炎dDo胖c.M躲ode鈔lSp櫻a(bǔ)ce崇.Ad替dPo紙int豬(Po因int樸)鞋積Dr屋aw_梢Poi鼠nt.畢Upd外ate甘End礎(chǔ)Fu板nct柳ion際Pub顫lic嗎Su險(xiǎn)bS陣et_窮lay壟er(散sA嗎sS河tri聲ng)古謝Di烏ml辭aye派rOb高jA浪sA決cad狗Lay宜er灶街Se糧tl秘aye帳rOb筋j=票ac次adD蕩oc.盯Lay撐ers同.Ad薦d(s賀)竿斜ac最adD達(dá)oc.話Act艘ive煎Lay篇er溉=l捆aye守rOb嚼j邀End痰Su饒b慨再按以寧下模式羨做個(gè)對(duì)士話框：踏窗體的課名字就霸叫婆“弟For哲m1怪”擠雙悔擊煎“捏展姿點(diǎn)職”剪按鈕，莖輸入以鼓下代碼衛(wèi)：御Dim因p0抬(2)驗(yàn)As閘Do停ubl沙e,演p1(液2)志As些Dou奉ble死,p寧2(2撐)A禾sD分oub稼le蜓Dim陣T1首As蕩Do潔ubl更e,值T2蠅As歡Dou寫(xiě)ble享,T叼3A司sD罪oub鞏le,湊T4淋As池Do什ubl債e傾Pub應(yīng)lic驚ne例As忠In玉teg遮er,百sp猛As濫Si典ngl賄e,煙cz旁As剃Sin新gle蹲Cal扒lG膝et_青ACA扮D("何")烏Dim頂tx釋tA鄉(xiāng)sA曠cad酷Tex勾t叨Dim算la頃As壓Ac回adL播aye字r危For普Ea深ch蘋(píng)Lay肉er籃In嶼aca志dDo版c.M列ode濃lSp劑ace借Nex槍t虹Cal濾lS麻et_杜lay拒er(更"zd免h")魯Set木Sh芬eet境=霜Thi熊sWo球rkb挨ook濟(jì).Ac核tiv沫eSh悉eet獸Dim蜜i申As假Int坑ege訪r少Do覽Whi羞le憤She費(fèi)et.厭Cel劇ls(鐵i+支1,稱3)濫<>漂""圈Or酷Sh經(jīng)eet戴.Ce遞lls字(i保+1根,1濾)<也>"遭"坡If器She條et.藝Cel園ls(殊i+簽1,廟3)障=夾""挨Or鍵She筋et.缸Cel腸ls(丟i+屋1,夜4)當(dāng)=頃""鑄The瘋nG視oTo行II退Wit校hS跌hee沸t膚p1(雕0)殺=.癢Cel避ls(揮i+冊(cè)1,頭3)剃.Va配lue匹p1(光1)跌=.沸Cel被ls(怠i+物1,氣4)富.Va際lue農(nóng)p1(拴2)觸=.億Cel把ls(勻i+橡1,舌5)卻.Va洗lue柔End退Wi變th舟p(0徒)=稻p1疏(0)謙p(1源)=知p1備(1)浸Cal巡lS窯et_框lay凡er(鼻"ZD慰H")弓Cal架lD浮raw秤_Po榴int雞(p1籠)惑fo盒ntH竄igh蹄t=殼Te今xtB肉ox5佩.Va幟lue耕If燈Cel呆ls(細(xì)i+刃1,俘2)瘦=泊""論The冶nG密oTo鞭oo叉Set貞tx圍t=寸ac鍬adD當(dāng)oc.歐Mod之elS困pac柴e.A道ddT工ext廉(Ce棒lls飲(i奪+1沖,2虜),習(xí)p,詞fon稈tHi當(dāng)ght譯)煤txt銹.Co棋lor困=義acM削age闊ntaoo:逗If諸Cel健ls(纖i+滲1,森5)杜=打""繭The委nG泳oTo產(chǎn)II稀Set詠_la冷yer幕("運(yùn)GCD獅")傳p(1拔)=妄p1押(1)泛-屑fon賤tHi掠ght者Se