Question

excel宏，运行没反应，怎么回事

Private Sub CommandButton2_Click()
Dim u As Double, S As Double, n As Double, y As Double, t As Double
u = Val(Cells(25, 5))
S = Val(Cells(23, 5))
n = Val(Cells(16, 5))
t = Val(Cells(29, 5))
For y = 0 To 50
Next
If 1 = y + u / S * (t * y ^ (-1 / (4 - n))) ^ n Then
Print (y)
Cells(31, 6) = (y)
End If
End Sub

Answer 1

方
法一、快速运行自定义宏：新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt +
F11”进入ExcelVBA环境下，右击“Microsoft Excel
对象”-“插入”-“模块”，在模块中输入宏代码，然后直接点击“快捷工具栏”上的运行按钮来运行宏。

方
法二：通过事件来触发行动宏：新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt +
F11”进入ExcelVBA环境下，双击“Sheet1”，在弹出的窗口中从对象下拉框中选择“WorkSheets”，事情类型下拉列表框中选择
“Activate”，然后在Private Sub Worksheet_Activate()与End
Sub之间输入如图所示的代码，完成后点击保存按钮。回到Excel文档界面，先选择除“sheet1”之外的任意一个工作表，然后再点
“sheet1”，此时会发现我们编写的Excel宏正常运行。

方
法三、利用“开发工具”功能区中的相应命令实现自定义宏的运行：首先需要让“开发工具”功能区显示出来，点击“开始”-“Excel选项”，在“基本设
置”选项卡中选择右侧的“在功能区上显示‘开发工具’”，使其显示出来。点击“开发工具”-“宏”，在弹出的窗口中选择要运行的“宏”，最后点击“运行”
按钮即可运行宏。

方
法四、让文档启动时自动运行自定义宏：新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt +
F11”进入ExcelVBA环境下，双击“ThisWorkbook”，在弹出的窗口中从对象下拉框中选择“WorkBook”，事情类型下拉列表框中
选择“Open”，然后在Private Sub Workbook_Open()与End
Sub之间输入如图所示的代码，完成后点击保存并退出环境。重新打开刚才保存的带启动宏的Excel文档，在出现警示时选择“启用宏”，就会发现我们自定
义的宏能够正常运行了！

方法五、通过设置来使所有宏都可以行动，当然也包括自定义宏：依次点击“开发工具”-“宏安全性”，在左侧选择“宏设置”选项卡，然后在右侧选择“启用所有宏”，点击确定即可。经过这样的设置以后，所有的宏都具备运行的权限。（小编再次不推荐这样做）

方法六、将带有自启动宏代码的文档放置到Excel可信任区域中，从而保证自定义宏的顺利执行：为了说明问题方法，在此小编将含有自启动的宏文件放到D盘ExcelMacro目录下。
首先，将我们的带有自启动宏的文档拷贝到D盘ExcelMacro目录下，然后直接双击运行，发现此时的宏由于禁止而无法运行。接下来直接点击“开始”-
“Excel选项”-“信任中心”-“信任中心设置”-“受信任的位置”-“添加新位置”，在弹出的窗口中输入“D:\excelMacro”，最后点击
确定完成。再次运行该文档，发现自定义宏正常运行，并无警告提示出现。

步骤阅读

Answer 2

有没有禁用宏
可点击Excel左上角图标，选择“Excel选项”-“信任中心”-“信任中心设置”-“宏设置”来查看