以文本方式查看主题

-  安易免费财务软件交流论坛  (http://bbs.anyicw.com/bbs/index.asp)
--  电脑知识交流  (http://bbs.anyicw.com/bbs/list.asp?boardid=11)
----  [原创]累加小技巧  (http://bbs.anyicw.com/bbs/dispbbs.asp?boardid=11&id=31251)

--  作者:北伟21
--  发布时间:2010/11/11 9:56:08
--  [原创]累加小技巧

我们在工作中常常需要在已有数值的单元格中再增加或减去另一个数。一般是在计算器中计算后再覆盖原有的数据。这样操作起来很不方便。这里有一个小技巧,可以有效地简化老式的工作过程。  (1).创建一个宏:
  选择Excel选单下的工具录制新宏选项;
  宏名为:MyMacro
  快捷键为:CtrlShiftJ(只要不和Excel本身的快捷键重名就行)
  保存在:个人宏工作簿(可以在所有Excel工作簿中使用)
  (2).用鼠标选择停止录入工具栏中的方块,停止录入宏。
  (3).选择Excel选单下的工具→Visual Basic编辑器选项。
  (4).“Visual Basic编辑器左上角的VBA Project中用鼠标双击VBAProject(Personal.xls)打开模块→Module1”
  注意:你的模块可能不是Module1 ,也许是Module2Module3
  (5).在右侧的代码窗口中将Personal.xlsModule1(Code)中的代码更改为:
  Sub MyMacro( )
  
OldValue = Val(ActiveCell.Value)
  InputValue = InputBox(“输入数值,负数前输入减号”,“小小计算器
”)
  ActiveCell.Value = Val(OldValue
InputValue)
  
End Sub
  (6).关闭Visual Basic编辑器。

  编辑完毕,你可以试试刚刚编辑的宏,按下ShiftCtrlJ键,输入数值并按下确定键。(这段代码只提供了加减运算,借以抛砖引玉。)  


--  作者:liyh67
--  发布时间:2011/3/4 13:31:23
--  
宏啊?不懂
--  作者:GXEJYJ
--  发布时间:2011/3/19 14:18:06
--  
学习中

--  作者:曹红军
--  发布时间:2011/4/1 8:56:24
--  
有什么具体用途吗
--  作者:pfly
--  发布时间:2011/4/27 9:14:26
--  
学习中
--  作者:灰太狼
--  发布时间:2011/5/6 10:31:40
--  
不会运用宏
--  作者:zmr302
--  发布时间:2011/12/8 11:10:55
--  
好难学啊。
--  作者:chadd
--  发布时间:2012/3/19 16:41:37
--  
用vba就行