Excel用户定义的函数

本文介绍了Excel用户定义的函数的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

你能帮助我吗，现在 根据在Excel中编写自定义函数的指南：第二部分自动化加载项 [ ^ ] 当我将用户定义的函数输入到Excel选定单元格时，只有选定的单元格接收值。但我想在输入UDF时更改其他单元格。根据VBA Excel用户定义的函数，以下代码：

模块 函数 Owndefine（a） Owndefine = a * 10 设置 myc = new css 设置 myc.sht = ActiveSheet 结束 功能 class module css 公共 WithEvent sht 作为工作表 私有 Sub sht_change（ ByVal 目标 As 范围） 开 错误 GoTo re n 设置 myc.sht =注意 设置 myc = Nothing 范围（ a1：b3）= 1 ren： End Sub

VBA UDF添加一个事件，因此在输入UDF时可以更改其他单元格。我想要要用C ++实现它，你能给一些帮助，谢谢。

解决方案

SINK_ENTRY_INFO（ 11 ，__ uuidof（MSExcel :: AppEvents），0x61C，& SheetChange，& SheetChangeInfo） SINK_ENTRY_INFO（ 12 ，__ uuidof（ MSExcel :: WorkbookEvents），0x61b，& SheetCalculate，& SheetCalculateInfo）

复制VBA menthod，在C ++中，我使用获取UDF的EVNET。没关系。

BEGIN_SINK_MAP（CAddin） SINK_ENTRY_INFO（1，__ uuidof（_Comma） ndBarButtonEvents），/ * dispid * / 0x01，OnClickBtnCwbb，&OnClickButtonInfo） SINK_ENTRY_INFO（11，__ uuidof（MSExcel :: AppEvents），0x61C，&SheetChange，&SheetChangeInfo） SINK_ENTRY_INFO（ 12，__ uuidof（MSExcel :: WorkbookEvents），0x61b，&SheetCalculate，&SheetCalculateInfo） END_SINK_MAP（） // IAddin public： // _IDTExtensibility2 void _stdcall SheetCalculate（IDispatch * aa）; void _stdcall SheetChange（IDispatch * Sh，Range * Target）;

Can you help me,Now According Guide to Writing Custom Functions in Excel: Part II Automation Add-In[^] When I input the User defined function to the Excel selected cell,Only the selected cell receive value. but I want to change the other cells when I input the UDF. According to the VBA Excel User defined Function,Which code following:

Module Function Owndefine(a) Owndefine = a*10 Set myc = new css Set myc.sht = ActiveSheet End Function class module css Public WithEvent sht As Worksheet Private Sub sht_change(ByVal Target As Range) On Error GoTo ren Set myc.sht = Noting Set myc = Nothing Range("a1:b3) = 1 ren: End Sub

The VBA UDF add an Event,So which can change the other cells when inputing the UDF.I want to realize it in C++,can you give some help,thank you .

解决方案

SINK_ENTRY_INFO(11, __uuidof(MSExcel::AppEvents), 0x61C, &SheetChange, &SheetChangeInfo) SINK_ENTRY_INFO(12, __uuidof(MSExcel::WorkbookEvents), 0x61b, &SheetCalculate, &SheetCalculateInfo)

Copy the VBA menthod，In the C++ ,I Use the EVNET to get the UDF.That's OK.

BEGIN_SINK_MAP(CAddin) SINK_ENTRY_INFO(1, __uuidof(_CommandBarButtonEvents),/*dispid*/ 0x01, OnClickBtnCwbb, &OnClickButtonInfo) SINK_ENTRY_INFO(11, __uuidof(MSExcel::AppEvents), 0x61C, &SheetChange, &SheetChangeInfo) SINK_ENTRY_INFO(12, __uuidof(MSExcel::WorkbookEvents), 0x61b, &SheetCalculate, &SheetCalculateInfo) END_SINK_MAP() // IAddin public: // _IDTExtensibility2 void _stdcall SheetCalculate(IDispatch *aa); void _stdcall SheetChange( IDispatch* Sh, Range* Target);