求助：如何设置小数点？

cqy · 发表于 2006-1-10 13:44:00

VBA如何设置小数点？

txtStr = ExcelSheet.cells(1, 1).Value
objText = ThisDrawing.ModelSpace.AddText(txtStr, pt, height)

10.00小数点后的0不见了，如何解决？

流星蔡园 · 发表于 2006-1-11 11:03:00

要不txtStr = cstr(ExcelSheet.cells(1, 1).Value)试试?

cqy · 发表于 2006-1-12 14:13:00

用txtStr = cstr(ExcelSheet.cells(1, 1).Value)

还是一样。

zhuxuhong · 发表于 2006-1-12 15:05:00

txtStr =str(format( ExcelSheet.cells(1, 1).Value,"######.##"))
objText = ThisDrawing.ModelSpace.AddText(txtStr, pt, height)

试试

cqy · 发表于 2006-1-12 17:07:00

感谢二位仁兄!

txtStr =format( ExcelSheet.cells(1, 1).Value,"0.00"))

可用。

账号		自动登录	找回密码
密码			注册