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