首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

EXCEL 一组数据解决方案

2012-12-30 
EXCEL 一组数据假如有这样一组数据:1125、1144、1167、1188、1201、1286我想让结果是这样子:1150、1150、1200、120

EXCEL 一组数据
假如有这样一组数据:1125、1144、1167、1188、1201、1286
我想让结果是这样子:1150、1150、1200、1200、1250、1300
规律就是:50进1,有什么办法能实现吗?
[解决办法]


Function Wushi(ByVal number As Long) As Long

    Dim strTemp As String
    
    strTemp = Right(Str(number), 2)
    
    If Val(strTemp) >= 50 Then
    
        Wushi = number + (100 - Val(strTemp))
        
    Else
    
        Wushi = number + (50 - Val(strTemp))
        
    End If

End Function



菜鸟代码,仅供参考。
[解决办法]
这个帖子是否可以关闭了呀? 在其他版已经解决了是吧?
http://topic.csdn.net/u/20110929/15/c8494c9e-cd5e-44d8-af52-c0b41696e37a.html
[解决办法]
直接用函数就可以了吧,比如数据在A1单元格
=CEILING(A1,50)

热点排行