在EXCEL中进行手动计算时，如何使其显而易见？

我写了一个切换macros，用于在自动和手动计算之间切换（请参见下文）。 虽然有点popup来告诉你它是手动的，但是如果颜色scheme可能改变，或者其他视觉上明显的东西提醒他们手动计算，这将是很酷的。

我到目前为止有一些想法：

• 改变界面配色scheme ：不要以为这可以用VBA来完成。而且，它改变了所有的办公产品，不仅仅是Excel
• 更改网格线的颜色 ：这个工程，但只在活动工作表。 也看起来有点不好
• 在右上angular的浮动框 ：我又做了这些，但代码必须embedded到工作表选项卡中才能在页面中移动。 如果可以在macros中做这个选项，这个选项会很好，但我不确定它是…
• 更改列标题的颜色 ：再次，不知道这是否可能。
• 在前面添加一个新的红色选项卡，名为“手动计算” – 编辑：添加到我的代码
• 更改状态栏 （从加里的学生的build议）：也添加到我的代码

任何人有任何其他的想法或知道如何把这些想法上面呢？

任何创意和想法，非常感谢:)

谢谢大家，卢卡斯

PS。 这是我的代码切换：

Sub Toggle_Auto_Calculate（）

' ToggleGUI Macro ' ' Keyboard Shortcut: Ctrl+shift+a ' If Application.Calculation = xlManual Then Application.StatusBar = "" Application.DisplayAlerts = False Sheets("Manual Calcs On").Select ActiveWindow.SelectedSheets.Delete MsgBox "Auto calcs on" Application.Calculation = xlAutomatic Else Application.Calculation = xlManual Application.StatusBar = "MANUAL CALCULATION" Worksheets.Add(Before:=Worksheets(1)).Name = "Manual Calcs on" With ActiveWorkbook.Sheets("Manual Calcs On").Tab .Color = 255 .TintAndShade = 0 End With MsgBox "Manual calcs on" End If Application.DisplayAlerts = True End Sub 

Answer 1

考虑将其发布在状态栏上：

 Sub temp() Application.StatusBar = "MANUAL CALCULATION " End Sub 

编辑＃1：

less一点微妙：

 Sub temp() Application.StatusBar = "****************MANUAL CALCULATION******************" End Sub