社区 › VB › 求助：如何设置小数点？

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"))
可用。

查看完整版本: 求助：如何设置小数点？