主题：全角字符怎么转半角

请问怎样才能把输入的全角字符自动转半角？

我是要在输入内容时候自动转换，因为我同事整天用全角来输入数字，例如金钱什么的，我要统一！！

If e.Col.Name = "产品" Then
    If e.Text = "tv" Then
        e.Text = "电视机"
    ElseIf e.Text = "tel"
        e.Text = "电话机"
    End If
End If

用这个不行...

例如我要输入一个尺寸，列的属性时char

但是他会输入１２*１２，但是我要的是12*12

函数是什么？

貌似不行噢～

我放到表属性的 valiadedit 里面怎么写参数？

谢谢啊，不过我自己改了一下，呵呵～
我写就不会了，看就会看一点，改也能改……

'''
  if e.Text > "" Then
     dim s1 as string="０１２３４５６７８９＊＋－％＃＝ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
     dim s2 as string="0123456789*+-%#=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
     for i as  integer =0 to 67
         e.Text =e.Text .Replace(s1.SubString(i,1),s2.SubString(i,1))
     next
  End If

精简了一下，谢谢楼上两位的帮助，本人编程很菜啲，呵呵～

  if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
  End If

这段代码放到这里有问题，如果单击单元格输入的话，会输入错误，如输入１，就出现１１
但是双击单元格编辑的话就没有问题，请问怎样解决呢？
放到changedit里面提示text为只读