Question

求帮写一段excel的vba代码。

想要excel的这样的一个宏：

如果单元格数值大于等于100，显示2位小数并且字体加粗显示
如果单元格数值小于100，显示2位小数
如果单元格数值小于0.095，显示3位小数
如果单元格数值小于0.0095，显示4位小数
如果单元格数值小于0.00005，显示5位小数
如果单元格数值小于0.000005，显示5位小数并且字体加粗显示
其他情况则不改变单元格格式

这个用条件格式可以实现，但是我想要个宏，用起来更方便些。求大神啊TUT。
另外，这个是要按要求显示位数，不能更改单元格数值。类似于单元格格式里面数值显示多少小数位的功能，不是round函数那种改变数值的。

Answer 1

先选中单元格范围，然后运行代码即可。

Sub CellFormat()
    Dim rng As Range
    For Each rng In Selection
        Select Case rng.Value
            Case Is < 0.000005
                rng.NumberFormatLocal = "0.00000"
                rng.Font.Bold = True
            Case Is < 0.00005
                rng.NumberFormatLocal = "0.00000"
            Case Is < 0.0095
                rng.NumberFormatLocal = "0.0000"
            Case Is < 0.095
                rng.NumberFormatLocal = "0.000"
            Case Is < 100
                rng.NumberFormatLocal = "0.00"
            Case Is >= 100
                rng.NumberFormatLocal = "0.00"
                rng.Font.Bold = True
        End Select
    Next rng
End Sub