Question

自己用excel做了日历宏，在本台电脑正常使用，但传到别的电脑，就提示：方法和数据成员未找到，什么问题

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 4 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

Sub f()
End Sub

以上是我的代码，提示Calendar1处标黄色，哪里出问题了？

Answer 1

别的电脑的EXCEL未安装或未引用该控件，请查看一下“工具”-->“引用”是否有此控件的选项！

追问

确实是这个问题，好像这个控件就是显示缺失的，怎么安装？

追答

去网上找一下！度娘很强大的！
提供一个我也没试过的方法：在你的电脑上应该有这个控件，那么在那个“引用”的对话框里应该有显示这个控件放在哪里的，你拷贝一个过去给目标电脑的相同位置，然后在目标电脑的引用”的对话框里有“浏览”，找到这个控件试试！

追问

我放进去了，显示已经勾选了控件，但还是同样的问题没有解决
Private Sub Worksheet_SelectionChange(ByVal Target As Range)这段标黄，Calendar1标蓝底

追答

你是把日历控件直接画在表里的吧？
那再试试另外一个方法，你在目标电脑的“开发”选项卡-->插入-->其它控件--->注册自定义控件，找到该控件，试试看行不行？
如果不行，就注册后再重新画一次！保证该控件的名字是：Calendar1就可以了！

追问

我当时是插入对象，选择日历，然后画出来的。
我注册不成功耶，可能是安装的时候出了问题，好像是安装了但是哪个什么东西没有加载成功，出了个错误的窗口。现在也没办法注册MSCAL，真是不知道怎么办了

追答

问问度娘吧！！这些控件注册有很多教程的！

Answer 2

Sub f()
End Sub
这里出了问题自己找一下吧，上面的都没问题

Answer 3

Calendar1未找到