请问一个文本框显示数据的问题！

Question

   我想把一个form上的所有文本框都设置位保留小数点后2位，请问该怎么设置呢？
是不是非得要每个文本框都用format啊，那样比较麻烦了。

Answer 1

Private Sub Command1_Click()
    Dim ctl As Control, txt As TextBox
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            Set txt = ctl
            If IsNumeric(txt.Text) Then
                txt.Text = Format$(Val(txt.Text), "#,##0.00")
            End If
        End If
    Next
End Sub