Do While Selection <> ""

If Selection <> 0 Then

ActiveCell.Previous.Value = xuhao

xuhao = xuhao + 1

End If

ActiveCell.Offset(1, 0).Range("a1").Select

Loop

004.求教自定义函数

查询了一些自定义函数的例子都是单变量的。自定义函数能否建立“(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+rg.value

next

函数＝ivalue

大概意思如此，但没有加入防错处理，你自己先试试看，有问题在问。

又问：试了一天，还是不行。

Public Function x2(rng As Range) As Integer

Dim rng As Range

Dim ivalue As Integer

For Each rng In rng.Range

ivalue = ivalue + rng.value ^ 2

Next

x2 = ivalue

End Function

还望您的帮助。

解答：Public Function SUMX2(rng As Range) As Integer

'你的错误有几项：

'1.函数名不能使用单元格位址的形式，否则在工作表中引用函数产生歧义，excel以为你引用单元格

'2.参数名与内部变量名冲突，rng本来是定义参数，在过程中不应出现重名变量

'3.rng已被定义为range对象变量，实际意义是一range引用，不能再用rng.Range引用，range的range属xìng是什么呢，没有吧

'函数我已经给你改了，基本能用

Dim rg As Range

Dim ivalue As Integer

For Each rg In rng

ivalue = ivalue + rg.value ^ 2

Next

SUMX2 = ivalue

End Function

结果：调试成功！，非常感谢！

005.判斷字符串的包含xìng

用什么命 令“abcdefg”是否包含“abc”?

解答：If VBA.InStr(1, "abcdefg", "abc") <> 0 Then MsgBox "包含"

006.利用背景实现套打的解决方案

利用背景套打主要在于数据打印位置的确定，关键就是要使图片和实物之间的尺寸保持一致，这里我引入一个中间参照物—空白表(只有表格线的表)。具体cāo作以套打支票为例说明：

(1)将支票扫描成图片。

(2)打印一个空白表，使其与支票尺寸一致(需反复调整打印，也可行、列分别打印)。

(3)用“画图”的缩放功能调整图片大小，导入excel作背景，并使其与空白表大小一致(亦需反复调整导入，每次均用原图缩放，再另存为一个文件)。

(4)根据图片背景调整好单元格，填入数据后套打支票，效果是匹配度达9

松语文学免费小说阅读_www.16sy.com