请教一个关于文本框数值保存的问题。

OKI4 发布于 2013-04-20 10:23， 710 次点击

文本框中的数值保存到EXCEL中时，如果第一位数为0时，怎么将0也保存？？
Text1输入 000123 时，保存到EXCEL中，就变成了 123
.Cells(1, i) = Text1.text 只能保存非0的数值，
如果要把0也保存，要怎么改代码？？
请大家帮个忙，谢谢！

6 回复

Artless2013-04-21 14:12

修改.Cells(1, i)属性

OKI42013-04-21 16:52

能具体说下吗？

W114006612013-04-21 18:38

format

mpy20032013-04-24 13:29

只要把那句改一下，
.Cells(1, i) = "'" & Text1.text
当然调用的时候也要记得用
Text1.text = Replay(.cell(1,i),"'","")

lowxiong2013-04-24 19:48

.Cells(1, i).numberformat="@"
.Cells(1, i)="000123"

wube2013-04-24 19:59

应该是要改变储存格的预设属性为文字模式～
不然不管VB6怎么作格式化～
EXCEL还是会把它还原成数字～