如何将EXCEL表中“字体颜色”为红色的单元格的数据自动乘上0.5?

ACCESS421 2003-05-07 11:18:20
使用宏或模块怎么实现?代码怎么写?
...全文
102 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
大雄 2003-05-07
点击工具-宏-宏(或者按Alt+F8),任意输入一个宏名,点击"创建",进入VBA编辑器,在sub 与end sub之间粘贴如下代码
For r% = 1 To 10 '表示从第1行到第10行,按实际情况定
For c% = 1 To 10 '表示从第1列到第10列,按实际情况定
Cells(r%, c%).Select
If Selection.Font.ColorIndex = 3 Then
ActiveCell.Value = ActiveCell.Value * 0.5
End If
Next c%
Next r%

关闭VBA编辑器回到excel窗口,按Alt+F8,选择刚才建立的宏执行即可。
回复
ACCESS421 2003-05-07
回复
相关推荐
发帖
Microsoft Office应用
创建于2007-08-02

6153

社区成员

Microsoft Office应用
申请成为版主
帖子事件
创建了帖子
2003-05-07 11:18
社区公告
暂无公告