自定义函数能否在VBA中直接运用

huangcaiguang

自己做好了一个自定义函数放在工作簿内，在该工作簿打开后，能否直接用代码在sheet1的A1单元格写入含自定义函数的公式。
注意是在VBA中写公式对单元格赋值、不是在界面操作直接写公式。。

hwc2ycy

要放在模块内。

huangcaiguang

hwc2ycy 发表于 2013-5-5 20:02
要放在模块内。

就比如开始发的那个易失性函数 Page(x As Range, z As Byte)
请教：我要在sheet1的A1=TEXT(I3,"共"&page(H2,1)&"页")   VBA语言怎么写呢？
Public Function Page(x As Range, z As Byte)
   '特别注意：当Z参数是0时，统计指定单元格所在页的页码（是以列分页符的值是1为前提条件的）
    '由自定义函数的Z参数来确定是进行工作表选定单元格所在页数
    '或是工作表总页数计算
    '当Z参数是0时，统计指定单元格所在页的页码
    '当Z参数是1至255任一个数值时，统计工作表总页数
    If z = 0 Then
      ih = 0
      For Each yh In ActiveSheet.HPageBreaks
        ih = ih + 1
        If x.Row <= yh.Location.Row Then
          Page = ih
          Exit Function
        End If
      Next yh
      Page = ih + 1 '以上8行代码及本行代码，最终得出指定单元格所在页的页码
    Else
        Page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) '统计工作表总页数
    End If   
    Application.Volatile '本代码将此自定义函数标识为易失性函数，对自定义函数进行重算
End Function

hwc2ycy

你插入一个模块，把函数的代码放到模块里，直接在单元中输入就会有提示了。

huangcaiguang

hwc2ycy 发表于 2013-5-5 20:11
你插入一个模块，把函数的代码放到模块里，直接在单元中输入就会有提示了。

这个我知道，我是想这个函数有了，怎么把它像普通内置公式一样进行单元格赋值（含这个公式）
不是有一个像sheet1.cells(1,1).formula="=......."的东西么？
我按照这个方法在VBA里面不能用这个函数啊！

hwc2ycy

你直接=page呢。参数写齐了没有。

hwc2ycy

最好不要用这个了，拖几百个出来，CPU量运算太大了。

huangcaiguang

hwc2ycy 发表于 2013-5-5 20:31
你直接=page呢。参数写齐了没有。

=TEXT(I3,"共"&page(H2,1)&"页")
直接在操作界面显示没有任何问题，就是不知道用VBA语言去表示这个公式
但用VBA语言在sheet1的A1进行赋值时用那个fomula就出错了！

hwc2ycy

你出不来值，是因为你没有输入完整的参数。
或者代码没有放在插入的模块内。

hwc2ycy

另外你的页码返回值貌似也有问题。