Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2787|回复: 11

[已解决]这代码有什么问题?

[复制链接]
发表于 2013-3-6 20:37 | 显示全部楼层 |阅读模式
本帖最后由 dadasdas 于 2013-3-6 20:46 编辑

看看这代码有什么问题,怎么"0"不显示?
附件: Book.rar (6.83 KB, 下载次数: 9)
发表于 2013-3-6 20:40 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-6 20:42 | 显示全部楼层    本楼为最佳答案   
  1. Dim r&
  2.     For r = 5 To Range("G65536").End(3).Row
  3.         If Cells(r, "M") <> "" Then
  4.             Cells(r, "P") = "(" & Cells(r, "G") & "/" & Format(Cells(r, "H"), "0.0") & "*" & Cells(r, "I") & ")" & Cells(r, "M")
  5.         End If
  6.     Next
  7. End Sub
复制代码
回复

使用道具 举报

发表于 2013-3-6 20:42 | 显示全部楼层
用format函数就成了。和工作表中的TEXT功能差不多。
回复

使用道具 举报

发表于 2013-3-6 20:48 | 显示全部楼层
希望楼下次学习如何设置最佳。
这次3楼已有正确解答,我给提前评了
回复

使用道具 举报

发表于 2013-3-6 20:48 | 显示全部楼层
晕,怎么我又晚了
回复

使用道具 举报

 楼主| 发表于 2013-3-7 15:48 | 显示全部楼层

请问#.00

hwc2ycy 发表于 2013-3-6 20:42
用format函数就成了。和工作表中的TEXT功能差不多。


遇到新问题,怎么四舍五入?
附件: Book.rar (7.07 KB, 下载次数: 3)
回复

使用道具 举报

发表于 2013-3-7 16:12 | 显示全部楼层
Round函数
请参阅     示例     特性

描述

返回一个数值,该数值是按照指定的小数位数进行四舍五入运算的结果。

语法

Round(expression [,numdecimalplaces])

Round函数语法有如下几部分:

部分 描述
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值,表示进行四舍五入运算时,小数点右边应保留的位数。如果忽略,则Round函数返回整数。
回复

使用道具 举报

 楼主| 发表于 2013-3-7 16:15 | 显示全部楼层
hwc2ycy 发表于 2013-3-7 16:12
Round函数
请参阅     示例     特性

代码怎么改,不让它四舍五入
回复

使用道具 举报

发表于 2013-3-7 16:32 | 显示全部楼层
  1. Cells(r, "P") = "(" & Cells(r, "G") & "/" & 0 & Cells(r, "H") & "*" & Cells(r, "I") & ")" & Cells(r, "M")
复制代码
偷懒的办法,如果数字是大于1的话,前面就会有个0。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:13 , Processed in 0.465209 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表