关闭

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

标签: excelstringobjectinteropvb.netproperties
23785人阅读 评论(8) 收藏 举报
分类:

如何给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

 
0
0

猜你在找
深度学习基础与TensorFlow实践
【在线峰会】前端开发重点难点技术剖析与创新实践
【在线峰会】一天掌握物联网全栈开发之道
【在线峰会】如何高质高效的进行Android技术开发
机器学习40天精英计划
Python数据挖掘与分析速成班
微信小程序开发实战
JFinal极速开发企业实战
备战2017软考 系统集成项目管理工程师 学习套餐
Python大型网络爬虫项目开发实战(全套)
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:83343次
    • 积分:838
    • 等级:
    • 排名:千里之外
    • 原创:7篇
    • 转载:1篇
    • 译文:1篇
    • 评论:42条
    文章分类
    最新评论