excel vba 常用代碼50例

1、ExcelVBA常用代碼50例001。用命令按扭打印一個(gè)sheet1中B2:M30區(qū)域中的內(nèi)容我想在Sheet2中制件一個(gè)命令按扭打印表Sheet1中的[B2:M30]區(qū)域中的內(nèi)容解答：可以將打印區(qū)域設(shè)為b2：m30，然后打印，如：sheets(“sheet1“).printarea=“b2:m30“sheets(“sheet1“).printout隨手寫的，你可以試試看。最簡(jiǎn)單的方法是：你先錄制宏，在錄制宏過程中，跑到頁(yè)面設(shè)置里面，把

2、打印范圍設(shè)置到你想要的范圍。然后退出，停止錄制宏，你就可以得到一些代碼！002。能否對(duì)一列中的文字統(tǒng)一去掉最后一個(gè)字這些文字不統(tǒng)一有些字?jǐn)?shù)多有些字?jǐn)?shù)少。如何處理我用“&不行解答：=REPLACE(A1LEN(A1)1““)(在過渡列進(jìn)行)003.能否根據(jù)單元格數(shù)值自動(dòng)標(biāo)記序號(hào)？各位大佬，一工作表有兩列，“序號(hào)”及“金額”，能否將金額不等于0的行自動(dòng)標(biāo)上序號(hào)呢？如無(wú)現(xiàn)成的函數(shù)，應(yīng)怎樣設(shè)置？解答：DimxuhaoAsIntegerxuhao

3、=1函數(shù)＝ivalue大概意思如此，但沒有加入防錯(cuò)處理，你自己先試試看，有問題在問。又問：試了一天，還是不行。PublicFunctionx2(rngAsRange)AsIntegerDimrngAsRangeDimivalueAsIntegerFEachrngInrng.Rangeivalue=ivaluerng.value^2Nextx2=ivalueEndFunction還望您的幫助。解答：PublicFunctionSUMX2(