資源描述：
《excel vba編程的常用代碼》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、ExcelVBA編程的常用代碼?????用過VB的人都應(yīng)該知道如何聲明變量，在VBA中聲明變量和VB中是完全一樣的！使用Dim語句Dimaasinteger'聲明a為整型變量Dima'聲明a為變體變量Dimaasstring'聲明a為字符串變量Dimaascurrency,bascurrency,cascurrency'聲明a,b,c為貨幣變量......聲明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當(dāng)前不支持）、Date、String（只限變長字符串）、String*length
2、（定長字符串）、Object、Variant、用戶定義類型或?qū)ο箢愋汀?qiáng)制聲明變量OptionExplicit說明：該語句必在任何過程之前出現(xiàn)在模塊中。聲明常數(shù)用來代替文字值。Const'常數(shù)的默認(rèn)狀態(tài)是Private。ConstMy=456'聲明Public常數(shù)。PublicConstMyString="HELP"'聲明PrivateInteger常數(shù)。PrivateConstMyIntAsInteger=5'在同一行里聲明多個(gè)常數(shù)。ConstMyStr="Hello",MyDoubleAsDouble=3.4567beconsistentwithinthesa
3、medisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcore選擇當(dāng)前單元格所在區(qū)域在EXC
4、EL97中，有一個(gè)十分好的功能，他就是把鼠標(biāo)放置在一個(gè)有效數(shù)據(jù)單元格中，執(zhí)行該段代碼，你就可以將連在一起的一片數(shù)據(jù)全部選中。只要將該段代碼加入到你的模塊中。SubMy_SelectSelection.CurrentRegion.SelectEndsub返回當(dāng)前單元格中數(shù)據(jù)刪除前后空格后的值submy_trimmsgboxTrim(ActiveCell.Value)endsub單元格位移submy_offsetActiveCell.Offset(0,1).Select'當(dāng)前單元格向左移動一格ActiveCell.Offset(0,-1).Select'當(dāng)前單元格向右
5、移動一格ActiveCell.Offset(1,0).Select'當(dāng)前單元格向下移動一格ActiveCell.Offset(-1,0).Select'當(dāng)前單元格向上移動一格endsub如果上述程序產(chǎn)生錯(cuò)誤那是因?yàn)閱卧癫荒芤苿?，為了解除上述錯(cuò)誤，我們可以往submy_offset之下加一段代碼onerrorresumenext?注意以下代碼都不再添加sub“代碼名稱”和endsub請自己添加!給當(dāng)前單元格賦值A(chǔ)ctiveCell.Value="你好！??！"給指定單元格賦值例如：Ａ１單元格內(nèi)容設(shè)為"ＨＥＬＬＯ"Range("a1").value="hello"be
6、consistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,ea
7、chcore又如：你現(xiàn)在的工作簿在sheet1上，你要往sheet2的Ａ１單元格中插入"ＨＥＬＬＯ"1.sheets("sheet2").selectrange("a1").value="hello"或2.Sheets("sheet1").Range("a1").Value="hello"說明：1.sheet2被選中，然后在將“HELLO"賦到A1單元格中。2.sheet2不必被選中，即可“HELLO"賦到sheet2的A1單元格中。隱藏工作表'隱藏SHEET1這張工作表 sheets("sheet1").Visible=False'顯示SHEET1這張工作表
8、 shee
