修改小数点后保留数

①然如故

首先祝各位老师前辈们节日快乐，恳请赐教，如何实现“明细表”M列单位为“m”显示为0.00保留小数后2位（四舍五入）、单位为“㎡”显示为0.0000保留小数后4位、单位为“个”显示为整数。谢谢！
Cells(r, 13) = Val(Cells(r, 8)) * Val(Cells(r, 10)) / 1000 & " m"
Cells(r, 13) = Left(CStr(Cells(r, 10)), 5) & " 个"
Cells(r, 13) = Val(Cells(r, 8)) * Val(Cells(r, 9)) * Val(Cells(r, 10)) / 1000000 & "㎡"
小数点后保留位数.rar (23.15 KB, 下载次数: 6)

2016-10-3 19:21 上传

点击文件名下载附件

hhjjpp

Cells(r, 13) =application.round( Val(Cells(r, 8)) * Val(Cells(r, 10)) / 1000,2) & " m"
Cells(r, 13) =int( Left(CStr(Cells(r, 10)), 5)) & " 个"
Cells(r, 13) =application.round( Val(Cells(r, 8)) * Val(Cells(r, 9)) * Val(Cells(r, 10)) / 1000000,4) & "㎡"

四舍五入注意用工作表函数

zax010

        If d.exists(Cells(r, 4).Value) Then
            Cells(r, 13) = Format(Val(Cells(r, 8)) * Val(Cells(r, 10)) / 1000, "0.00") & "m"
        ElseIf d1.exists(Cells(r, 4).Value) Then
            Cells(r, 13) = Left(CStr(Cells(r, 10)), 5) & "个"
        Else
            Cells(r, 13) = Format(Val(Cells(r, 8)) * Val(Cells(r, 9)) * Val(Cells(r, 10)) / 1000000, "0.0000") & "㎡"
        End If

试试。

wzsy2_mrf

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Row > 3 And Target.Column = 13 Then
   
4.         Dim str$, str2$
   
5.         str = Left(Target.Value, Len(Target.Value) - 1)
   
6.         str2 = Right(Target.Value, 1)
   
7.         Select Case str2
   
8.         Case "m"
   
9.             Target = WorksheetFunction.Round(Val(str), 2) & str2
   
10.         Case "㎡"
    
11.             Target = WorksheetFunction.Round(Val(str), 4) & str2
    
12.         Case "个"
    
13.             Target = WorksheetFunction.Round(Val(str), 0) & str2
    
14.         End Select
    
15.     End If
    
16.     Application.EnableEvents = True
    
17. End Sub
    

复制代码

①然如故

hhjjpp 发表于 2016-10-3 20:10
Cells(r, 13) =application.round( Val(Cells(r, 8)) * Val(Cells(r, 10)) / 1000,2) & " m"
Cells(r, 13) ...

您好，感谢您的赐教！

①然如故

zax010 发表于 2016-10-3 20:20
If d.exists(Cells(r, 4).Value) Then
            Cells(r, 13) = Format(Val(Cells(r, 8)) * Va ...

您好，感谢您的赐教！

①然如故

wzsy2_mrf 发表于 2016-10-3 20:23

您好，感谢您的赐教！