excel有效数字

在外企工作的黄铭遇到了一个问题，在做财务报表时，无法保留excel有效数字，因为在excel的有效数字字位只有15位，超过这个数就自动变成零，非常苦恼的他在网上求助，小编看到后决定帮助和他。

excel有效数字解决办法如下

方法一：设置单元格格式为文本，或是在前面加一个符号

方法二：在工作表界面中按 +,进入代码页面，然后再 WORKBOOK中插入模块，把以下代码COPY入模块中。就可以在工作表中使用 =YXSZ(数值，保留位数)。如：A1=456.789B1=YXSZ(A1,4) =456.8

代码如下：

• Public Function YXSZ(X, n As Integer) ‘n为有效数字位数
• Dim jk, j
• Dim Y As Single
• Dim temp As String
• Dim zfh As Integer
• zfh = 1
• If X = “” Or (Not Application.WorksheetFunction.IsNumber(X)) Then mYX = “?Value!”: Exit Function
• X = Val(X)
• If n < 1 Then mYX = X: Exit Function
• If X <= 0 Then
• zfh = -1
• X = X * zfh
• End If
• If X < 1 Then
• j = 1
• Do
• temp = CStr(X)
• j = j + 1
• Loop Until Val(Mid$(temp, j, 1)) > 0
• j = j + n
• X = X * 10 ^ j
• jk = Len(CStr(Int(X))) – n
• Y = X / 10 ^ jk + 0.5
• YXSZ = Int(Y) * 10 ^ jk / 10 ^ j* zfh
• X = X / 10 ^ j
• Else
• jk = Len(CStr(Int(X))) – n
• Y = X / 10 ^ jk + 0.5
• YXSZ = Int(Y) * 10 ^ jk * zfh
• End If
• End Function

亲测有效!有需要的朋友赶紧尝试一下吧，以上就是excel有效数字的全部内容，希望能帮助到大家。其实，在职场中碰到问题最佳的处理方法就是，和同事一起协同办公完成领导安排，说到协同办公，目前最好用的协同办公网盘就是坚果云。

坚果云网盘优势：

1.兼容Office格式

2.文件加密存储，免去后顾之忧

3.自动保存，无需担心断电、浏览器闪退

4.支持多人同时编辑，让办公更加方便

5.无需导入导出，轻松打开保存在云上的文件

6.可灵活设置分享权限，分享出去的文件更加安全