excel vba常见问题.doc

本文由月落上弦贡献
doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT,或下载源文件到本机查看。
excel vba 常见问题
sheet1 中 B2:M30 区域中的内容? 我想在 Sheet2 中制件一个命令按扭, 打印表 Sheet1 中的[B2:M30] 区域中的内容? 解答:可以将打印区域设为 b2:m30,然后打印,如: sheets("sheet1").printarea="b2:m30" sheets("sheet1").printout 随手写的,:你先录制宏,在录制宏过程中, 跑到页面设置里面, 把打印范围设置到你想要的范围. 然后退出,停止录制宏, 你就可以得到一些代码! ?这些文字不统一,有些字数多,?我用{"&-}不行解答:=REPLACE(A1,LEN(A1),1," ")(在过渡列进行) ? 各位大佬,一工作表有两列,"序号"及"金额",能否将金额不等于 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 "(As Range) As Interger" 的函数, 应该可以的, 请各位大师赐教! 请以"∑x2"为例,万分感谢!(该用"For Each ……Next",就是还不知道如何引用 Range 中的每个值,请高手指点.) 解答:参数使用 Range 而函数值为 Integer 是可以的用 for each next 循环思路也是对的,应该这样作: dim rg as range dim ivalue as integer for each rg in 参数区域 ivalue=ivalue+ next 函数=ivalue 大概意思如此, 但没有加入防错处理, 你自己先试试看, 有问题在问. 又问:试了一天,还是不行. Public Function x2(rng As Range) As Integer Dim rng As Range
Dim ivalue As Integer For Each rng In ivalue = ivalue + ^ 2 Next x2 = ivalue End Function 还望您的帮助. 解答:Public Function SUMX2(rng As Range) As Integer '你的错误有几项: ',否则在工作表中引用函数产生歧义,excel 以为你引用单元格',rng 本来是定义参数,在过程中不应出现重名变量' 已被定义为 range 对象变量,实际意义是一 range 引用, 不能再用 引用,range 的 range 属性是什么呢,没有吧'函数我已经给你改了,基本能用 Dim rg As Range Dim ivalue As Integer For Each rg In rng ivalue = ivalue + ^ 2 Next SUMX2 = ivalue
End Function 结果:调试成功!,非常感谢! "abcdefg"是否包含"abc"? 解答:If (1, "abcdefg", "abc") <> 0 Then MsgBox " 包含" , 关键就是要使图片和实物之间的尺寸保持一致,这里我引入一个中间参照物—空白表(只有表格线的表).具体操作以套打支票为例说明: (1)将支票扫描成图片. (2)打印一个空白表, 使其与支票尺寸一致(需反复调整打印,也可行,列分别打印). (3)用"画图"的缩放功能调整图片大小,导入 excel 作背景,并使其与空白表大小一致(亦需反复调整导入,每次均用原图缩放,再另存为一个文件). (4)根据图片背景调整好单元格,填入数据后