求助：如何设置小数点？

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