室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel自定义函数说明文字的添加方法

[日期:2012-02-13]   来源:IT部落窝  作者:IT部落窝   阅读:1190[字体: ]
内容提要:文章介绍excel自定义函数说明文字的添加,通过Application.MacroOptions方法来添加自定义函数说明。

  在以前的文章,我们曾经介绍了《excel自定义函数添加和使用方法》。当excel内置函数不能或者不适合自己使用时,有能力可以编写自定义函数来解决实际问题。

  当自己编写了一个自定义函数之后,为了让其余的人知道并了解自定义函数的相关参数用法,我们就可以为excel自定义函数添加功能说明。

  下面我们以一个关于小写数字转大写数字的自定义函数来说明如何为excel自定义函数说明。

  excel自定义函数说明文字,可以使用 Application.MacroOptions 方法来写。

excel自定义函数说明

  下面是上面截图DA自定义函数相关的VBA代码:

Function DA$(num As Long, mType As Byte)
    If mType <> 1 And mType <> 2 Then
        DA = ""
        Exit Function
    End If
    DA = Application.Text(num, "[DBNum" & mType & "]")
End Function

Sub 按钮1_Click()
    Application.MacroOptions Macro:="DA", Description:="说明:把数字转换为中文大小写数字,mType 为1时,中文小写数字,为2时,中文大写数字。"
    ActiveCell.Formula = "=DA()"
    Application.Dialogs(xlDialogFunctionWizard).Show
End Sub

  其中的代码说明:Application.MacroOptions Macro:="DA", Description:="说明:把数字转换为中文大小写数字,mType 为1时,中文小写数字,为2时,中文大写数字。"

  上面这段文字就是excel自定义函数说明文字。

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程