Question

excel找不到工程或库！急！急！急！

excel中函数fx=IF(A1=0,0,js(A1))可以计算A1格中一般的加减乘除算式。js是自定义函数：Function js(x) f$=x
js=Application.Evaluate(f$)
End Function
这是我从别人的电脑上拷的，在他们那的电脑能用，回来后试了很多电脑都无法运行，提示找不到工程或库
（成功解决另加悬赏）

Answer 1

A1. 按 F8 一步步执行, 看哪里出错; 打开 VBA 工程窗口>>工具引用>>看哪一个打勾出错, 加载之; 重新安装>>选择自定义>>全部安装

A2. 插入>>名称>>定义>>当前工作薄中的名称:结果>>引用位置:=EVALUATE(Sheet1!$A1)>>添加>>确定
在 B1 中输入公式:=结果

或者一般情况下，出现此错误是因为找不到引用工程，或找不到与工程语言对应的引用的对象库
出现此类错误可以根据下面操作解决：

QUOTE:
1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！

3.1一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）

如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

--------------------------------------------------------------------------------
参考内置帮助文件：

在解决丢失引用的问题前，不能运行代码。这个错误的起因与解决方法如下所示：

找不到引用工程，或找不到与工程语言对应的引用的对象库。
请在“引用”对话框中将没有解决的引用加上 MISSING 前缀。选取丢失的引用，以显示丢失的工程或对象库的路径或语言。以下是解决此问题的步骤：

解决引用的步骤

显示“引用”对话框。

选取丢失的引用。

激活对象浏览器。

使用“浏览”对话框以找寻丢失的引用。

单击“确定”。

重复以上步骤，执行解决所有丢失的引用为止。
当您找到一个丢失的项目时，MISSING 前缀就会删除，表示链接已重新建立。若引用的工程名已经改变，就会添加新的引用，并旧的引用必须删除。

要删除那些不必要的引用，只需清除不要的引用的复选框即可。请注意，对于 Visual Basic 对象库与主应用程序对象库的引用是不能删除的.

应用程序可以支持其对象库的不同语言版本。要了解所需的语言版本，可单击该引用，选取在对话框下方指出的语言。

对象库可以是扩展名为 .OLB 的独立文件，或者集成在动态链接库 (DLL)中。在每一个平台上，对象库存在不同的版本。因此，当工程被移植到另一个平台上时，例如从 Macintosh 到 Microsoft Windows，那个平台的被引用库的正确语言版本，必须在主应用程序文档所指定的位置上可用。

对象库的文件名通常以下面的方式命名：

Windows（3.1 版与更早）：应用程序代码 + 语言代码 + [版本].OLB。例如：
法文的 Visual Basic for applications，Version 2 的对象库为 VAFR2.OLB。

法文的 Microsoft Excel 5.0 的对象库为 XLFR50.OLB。

Macintosh：应用程序名代码+ [版本]. +OLB。例如：
法文的 Visual Basic for applications，Version 2 的对象库为 VA FR 2 OLB。

会是法文的 Microsoft Excel 5.0 的对象库为 MS Excel FR 50 OLB。

假如不能在系统上找到丢失的工程或库，可接洽引用工程的作者。若丢失的库是一个 Microsoft 应用程序的对象库，可用下面的方式取得：

假如您有 Microsoft electronic technical support services 的访问权，请参阅此帮助文件的技术支持一节。在电子服务下，将会发现如何使用适当的服务选项的介绍。

假如没有 Microsoft electronic technical support services 的访问权，可参考此 Microsoft 对象库所在之应用程序的注意。关于如何接触您当地的 Microsoft 产品支持组织的信息，也能够在这个帮助文件的技术支持一节中找到。

Answer 2

A1. 按 F8 一步步执行, 看哪里出错; 打开 VBA 工程窗口>>工具引用>>看哪一个打勾出错, 加载之; 重新安装>>选择自定义>>全部安装

A2. 插入>>名称>>定义>>当前工作薄中的名称:结果>>引用位置:=EVALUATE(Sheet1!$A1)>>添加>>确定
在 B1 中输入公式:=结果

Answer 3

Public Function fx(x As Range)
fx = Evaluate("=" & x)
End Function