主题：关于全角半角数字输入的问题

能否做到在一单元格中，遇到输入数字，就自动切换到全角数字

 DataColChanging事件

 

Dim str As String = ""
For Each s As String In e.NewValue
    If cstr(val(s)) = s Then
        str &= StrToWide(s)
    Else
        str &= s
    End If
Next
e.NewValue = str

大红袍，你真神了，哪路神仙，有问必答，还见奇效

不是所有单元格都这样

那就加上列名的判断。

 

Select Case e.DataCol.Name
    Case "第一列", "第二列"
        Dim str As String = ""
        For Each s As String In e.NewValue
            If cstr(val(s)) = s Then
                str &= StrToWide(s)
            Else
                str &= s
            End If
        Next
        e.NewValue = str
End Select

 

老大，其中还含有字母，也转成全角

Select Case e.DataCol.Name
    Case "第一列", "第二列"
        Dim str As String = ""
        For Each s As String In e.NewValue
            Dim reg As new System.Text.RegularExpressions.Regex("[0-9a-zA-Z]")
            If reg.IsMatch(s) Then
                str &= StrToWide(s)
            Else
                str &= s
            End If
        Next
        e.NewValue = str
End Select