Định dạng ngày tháng và số trên User form (1 người xem)

[minhcong.tckt]

Em có 1 user_form để nhập liệu: em muốn hỏi anh chị 2 điểm
1/ khi mình đánh vào textbox1 thì làm thế nào để số VD 1000000 tự động tách thành 1.000.000 để cho dễ nhìn
2/ Khi hiển thị, hoặc đánh trực tiếp vào textbox2 thì luôn có định dạng: dd/mm/yyyy

Mong nhận được sự giúp đỡ của anh chị!!!

 

[thang314]

hình như không được đâu bạn à. ít nhất thì cũng phải gõ xong thì mới hiển thị như vậy được do textbox là hiển thị dữ liệu dạng text. ( có thể định dạng lại sau khi đã gõ xong giá trị)

 

[tvquan41]

Bạn dùng thử cái này xem hiển thị phần ngàn

Option Explicit
Public Function FD(TxtBox)
Dim Value As String
Dim strFmt As String
Dim i As Integer
Value = TxtBox
strFmt = ""
If Value Like "*" & "." & "*" & "." & "*" Then Value = Left(Value, Len(Value) - 1)
'check valid character
If Not (IsNumeric(Value) _
Or Value = "-" _
Or Value = "." _
Or Value = "-0" _
Or Value = "-." _
Or Value = "-0.") _
Or Right(Value, 1) = "," Then
If Len(Value) > 0 Then Value = Left(Value, Len(Value) - 1)
Else
' Check Negative value with many 0 leader
If Not (Left(Value, 1) = "-" And Val(Value) = 0) Then
'start string Format
strFmt = "#,##0"
'check if it is Decimal or not
If Value Like "*" & "." & "*" Then
strFmt = strFmt & "."
For i = 1 To Len(Value) - InStr(1, Value, ".")
'Increse Zero Number after Decimal
strFmt = strFmt & 0
Next
End If
strFmt = strFmt ' & ";-" & strFmt
Value = Format(Value, strFmt)
End If ' End check negative value with many 0 leader
End If ' End check valid Character
FD = CStr(Value)
End Function

Sub TxtBox1_Change()
TxtBox1= FD(TxtBox1)
end sub

Bạn cũng có thể dùng ngay hàm có sẵn của excel
Sub TxtBox1_Change()
TxtBox1= Application.WorksheetFunction.Text (Val(TxtBox1))
end sub

Còn định dạng ngày thì mình bó tay!
Hjhj

 

[tranthanhktt]

bạn gõ dòng lệnh này vào thử xem
Private Sub textbox1_Change()
Me.textbox1 = Format(Me.textbox1, "#,##")
End Sub

 

[tvquan41]

Cách đó cũng hay! Nhưng không thể đánh phần lẻ được. VD 1,050.25 chẳng hạn!