请问怎样TEXTBOX控件中设置格式，使输入198803保存并显示为1988年03月

woheniheta

请问怎样设置TEXTBOX控件的文本格式，使输入的纯数字按用户设置的格式显示和保存。如图：在窗体中，输入日期数字和视力数字后，点击保存或查询，日期就会以“年月日”格式保存在SHEET1中，窗体也立即改变格式显示。这样做目的是提高录入速度和直观度。谢谢！

向東

不用更改textbox中的格式，只要更改活动单元格的格式就行了。

zhaogang1960

试试看：
Private Sub TextBox1_Change()
    Dim temp As String
    With TextBox1
        temp = .Text
        If Not IsNumeric(temp) Then Exit Sub
        If Len(temp) <> 8 Then Exit Sub
        If IsDate(Left(temp, 4) & "-" & Mid(temp, 5, 2) & "-" & Right(temp, 2)) Then
            .Text = Left(temp, 4) & "年" & Mid(temp, 5, 2) & "月" & Right(temp, 2) & "日"
        Else
            MsgBox "请输入8位日期数字"
        End If
    End With
End Sub

woheniheta

感谢2楼，不过你写的代码有一定的局限性，如果是视力的那种文本格式，那你的代码就无能为力了，结合你的代码，经过我几分钟的思考，我把你的代码推广一下，这样就可以随意设置文本格式了。如下：

Private Sub TextBox1_Change()
    Dim temp As String
    With TextBox1
        temp = .Text
        If Not IsNumeric(temp) Then Exit Sub
        If Len(temp) <> 8 Then Exit Sub
        
        If IsNumeric(temp) Then
        TextBox1.Text = VBA.Format(temp, "####年##月##日")
     

        End If
    End With
End Sub

feiaoli

woheniheta 发表于 2009-7-4 22:12
感谢2楼，不过你写的代码有一定的局限性，如果是视力的那种文本格式，那你的代码就无能为力了，结合你的代码 ...

收藏备用、、、、、、

yxrlqy

学习了，先收下了。