2019年ExcelVBA常用代码50例.doc

2019年ExcelVBA常用代码50例.doc
Excel VBA 常用代码 50 例
001 。

用命令按扭打印一个 sheet1 中 B2:M30 区域中的内容?
我想在Sheet2 中制件一个命令按扭, 打印表Sheet1 中的[B2:M30] 区域中的内容 ?
解答：可以将打印区域设为b2 ：m30 ，然后打印，如：sheets('sheet1').printarea='b2:m30'
sheets('sheet1').printout 随手写的，你可以试试看。

最简单的方法是：你先录制宏，在录制宏过程中，跑到页面设置里面，把打印范围设置到你想要的范围。

然后退出，停止录制宏，你就可以得到一些代码！
002 。

能否对一列中的文字统一去掉最后一个字 ?这些文字不
统一 ,有些字数多 ,有些字数少。

如何处理 ?我用 {'&-} 不行解答：=REPLACE(A1,LEN(A1),1,' ')( 在过渡列进行 )
003. 能否根据单元格数值自动标记序号？各位大佬，一工作表有两列，“序号”及“金额” ，能否将金额不等于0 的行自动标上序号呢？如无现成的函数，应怎样设置？
解答： Dim xuhao As Integer
xuhao = 1
Range('b2').Select
Do While Selection <> ''
If Selection <> 0 Then
= xuhao
xuhao = xuhao 1
End If
(1, 0).Range('a1').Select
Loop
004. 求教自定义函数查询了一些自定义函数的例子都是单变量的。

自定义函数能否建立“ (As Range)。