如何给Excel添加用户自定义的公式

翻译 2007年10月19日 20:10:00

如何给Excel添加用户自定义的公式

Excel允许我们自定义公式。过去的方法是通过一种叫XLL的特殊DLL来实现。但是XLL不能用托管代码来写。现在,用托管代码如何实现自定义公式呢?很简单,Excel支持一种叫自动化插件的技术,可以使用C#VB.NET开发。

1. 打开Visual Studio 2005创建一个新的C#类库项目,取名叫AutomationAddIn

2. 然后在Class1.cs中添加如下的代码

using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;

namespace AutomationAddin
{
  [
ClassInterface(ClassInterfaceType.AutoDual), ComVisible(true)]
  public class MyFunctions
  {
   
public MyFunctions()
    {

    }

    public double MultiplyNTimes(double Number1, double Number2, double TimesToMultiply)
    {
     
double result = Number1;
      for (double i = 0; i < TimesToMultiply; i++)
      {
        result = result * Number2;
      }

      return result;
    }

    [ComRegisterFunctionAttribute]
    public static void RegisterFunction(Type type)
    {
     
Registry.ClassesRoot.CreateSubKey(GetSubKeyName(type));
    }

    [ComUnregisterFunctionAttribute]
    public static void UnregisterFunction(Type type)
    {
     
Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(type),false);
    }

private static string GetSubKeyName(Type type)
    {
     
string s = @"CLSID/{" + type.GUID.ToString().ToUpper() + @"}/Programmable";
      return s;
    }
  }
}

3. 点击菜单Project-Properties,选中Build页,勾上Register for COM interop.

4. 编译整个类库项目

5. 启动Excel,调出Add Ins对话框(0307有不同,见文后PS)

6. 点击Automation按钮,将出现Automation Servers对话框,选中我们刚刚建的AutomationAddIn.MyFunctions (此处为刚刚类库项目的命名空间名+类名)

7. 点击OK按钮(这时会出现一个对话框,选择),将回到Add Ins对话框

8. OK按钮。

9. 测试我们的函数。在一个sheetA1输入3A2输入4A3输入5。选中A4,点击公式栏中的fx按钮,跳出公式选择对话框。在分类下拉框中选择AutomationAddIn.MyFunctions, 然后选中公式MultiplyNTimes。点击OK

10. 跳出函数参数对话框,分别输入A1A2A3,点击OK

11. 回到工作表格,如下 3072 = 3*4*4*4*4*45次)

12. 由此可见,自定义的公式生效了,事实上我们还可以在类库中添加进一些更加有用的功能。随便列出几个如下:

public string GetStars(double Number)
{
 
string s = "";
  for (double i = 0; i < Number; i++)
  {
    s = s +
"*";
  }
 
return s;
}

public double AddNumbers(double Number1, [Optional] object Number2, [Optional] object Number3)
{
 
double result = 0;
  result += Convert.ToDouble(Number1);

  if (!(Number2 is System.Reflection.Missing))
  {
    Excel.
Range r2 = Number2 as Excel.Range;
    double d2 = Convert.ToDouble(r2.Value2);
    result += d2;
  }

  if (!(Number3 is System.Reflection.Missing))
  {
    Excel.
Range r3 = Number3 as Excel.Range;
    double d3 = Convert.ToDouble(r3.Value2);
    result += d3;
  }

  return result;
}

public double CalculateArea(object Range)
{
  Excel.
Range r = Range as Excel.Range;
  return Convert.ToDouble(r.Width) + Convert.ToDouble(r.Height);
}

public double NumberOfCells(object Range)
{
  Excel.
Range r = Range as Excel.Range;
  return r.Cells.Count;
}

public string ToUpperCase(string input)
{
 
return input.ToUpper();
}

 

PS:调出AddIns对话框

·         2003Menu Tools->Add Ins

·         2007Office Button->Excel Options->Add ins->Excel Add Ins

 

相关文章推荐

excel自定义公式的妙用

如何在excel中显示公式及结果

使用C#编写自定义excel函数推导矩形梁纯扭承载力估算公式

使用C#编写自定义excel函数推导矩形梁纯扭承载力估算公式 对于数据分析,excel无疑是一个强大的工具,工程中也经常使用excel编写小计算软件来进行计算辅助,例如计算钢筋面积、计算截面几何性质...

Excel从另一个Excel文件中用户自定义区域(UsedRange)拷贝数据和行高、列宽

实现环境:Visual Studio 2010, Office 2010, VSTO 4.0, .NET Framework 4.0 using System; using System.Col...

vc6.0添加自定义用户消息的基本过程

在学习过程中遇到要添加用户自定义消息的过程.我觉得书上写的比较散,于是就自己总结了这个基本过程,以为日后备查. 首先弄清楚两点:(1)谁要发送这个消息(2)谁要接受这个消息。 用一个简单的例子来说...
  • xunyn
  • xunyn
  • 2012-03-23 22:33
  • 2925

在MFC中添加用户自定义消息【转载】

在MFC中添加用户自定义消息【转载】   2012-02-09 10:17:17|  分类: visual c++ |  标签: |字号大中小 订阅 首先弄清楚...

如何在MyEclipse中添加 用户自定义类库

2. 选择Java下的Build Path下,选择Uer Library ,单击右边的new按钮。   3.在弹出的对话框中输入用户自定义包的名字。   4.选择建好的类库,单击右边的...

【win2003添加自定义用户设置具体步骤】

运行Sysprep.exe时,有些用户设置无法被捕获到.reg文件中并在安装程序完成时应用,深度系统而且也无法为这些设置编写脚本并将 它们应用于所有新用户。要解决此问题,请在运行Sysprep.exe...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)