
VBA
按ALT+F11打开
VBA编辑器,左边点你当前的工作表,然后点插入-模块,在模块里粘贴下面这段代码进去,然后关掉就行了。Sub Macro3()'' Macro3 宏' 宏由 BoBo 录制,时间: 2008-8-8''ActiveCell.FormulaR1C1 = =RC*RC*RCSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = FalseEnd Sub之后点视图-工具栏-窗体-按钮,画个按钮出来,右键点这个按钮,选指定宏-选Macro3()-确定。以后直接点按钮就能运行了。我自己改了一下,如果你想在别的单元格用,先点你要结果显示的地方,再点按钮就行。不过得保证公式的那几个单元格是你当前选中单元格下面的三个格子。