Excel里将小于60的单元格都改为60

Posted on 2008-04-21 10:09 泡泡_pop 阅读(141) 评论(0)  编辑 收藏 所属分类: 程序设计 、Microsoft技术
    今天一个朋友在处理成绩时需要将所有单元格里小于60的都改成60分，她开始的想法是用查找替换，Excel还真不支持这种呢，我看了一下量挺大的，就帮她写了一个小VBA程序，功能是将选中区域内的所有单元格值做替换，当然是有条件的替换了，代码如下，详细的条件就不解释了，我有注释的：
    在宏里设置一下快捷下，选中按CTRL+SHIFT+F就自动替换了，一下子完成了几万条记录的更改，真爽。

Sub SetTo60()
'
' 将小于60分的单元格设为60
' 宏由 YangBH 录制，时间: 2008-4-21
' QQ:283522147
' 快捷键: Ctrl+Shift+F
'
Dim oStr As String  '获取当前计算单元格的内容
Dim oSel As Range   '定义当前计算的区域(单元格)
Dim oSng As Single  '获取当前计算机单元格的单精度值

For Each oSel In Selection
    oStr = Cells(oSel.Row, oSel.Column).Value
    If oStr <> "" Then              '空单元格直接不操作，进入下层循环
        If IsNumeric(oStr) Then     '不能转换为数值类型时跳过，进入下层循环
            oSng = CSng(oStr)
            If oSng < 60 Then       '如果小于60则填充为60
                If oSng <> 0 Then    '如果等于0则跳过，进入下层循环
                    Cells(oSel.Row, oSel.Column).Value = 60
                End If
            End If
        End If
    End If
Next oSel
End Sub
Tag标签: Excel,VBA,替换

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接:

最新IT新闻:
十月上市 Google手机HTC Dream官方图现
2008年8月29日IT博客精选
微软在华布局农村手机 定位小城镇和打工者
暴雪确认《星际争霸2》将不会在08年内发售
福布斯:IE8很多功能针对谷歌 微软要玩偷袭
博客园新闻频道  博客园首页  社区
 


Copyright © 泡泡_pop

有事点这里