Định dạng ngày, tháng, năm trong Textbox

Liên hệ QC

mymichau

Thành viên hoạt động
Tham gia
28/11/06
Bài viết
172
Được thích
114
Trong Textbox, em gỏ ngày 05/07/2007. Nhưng khi đưa vào cell dử liệu thì trở thàng 07/05/2007. Em đã định dạng trong cell và trong control panel là dd/mm/yyyy nhưng vẫn không được. Xin nhờ các anh - chị chỉ giúp.
 
Câu lệnh trong nút ghi từ textbox xuống cell, nếu có đuôi là .Text hay .Value thì bạ bỏ cái đuôi này đi thử xem sao (Giả sử: .Offset(lRowEnter, 1) = Me.Ngay.Text bạn sửa thành .Offset(lRowEnter, 1) = Me.Ngay)
Nếu vẫn chưa được, bạn nhờ các anh chị trên GPE trợ giúp tiếp.
 
mymichau đã viết:
Trong Textbox, em gỏ ngày 05/07/2007. Nhưng khi đưa vào cell dử liệu thì trở thàng 07/05/2007. Em đã định dạng trong cell và trong control panel là dd/mm/yyyy nhưng vẫn không được. Xin nhờ các anh - chị chỉ giúp.

Chào bạn,

Thí dụ nhập ngày từ textbox1 xuống ô A10 thì câu nhập ngày là:
Mã:
Range("A10") = Format(Textbox1, "dd/mm/yyyy")
Mến
 
Em vẫn không làm được theo cách của Anh - Chị.
Nội dung code như sau
Private Sub Ok_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub
Mong các Anh - Chi giúp
 
mymichau đã viết:
Em vẫn không làm được theo cách của Anh - Chị.
Nội dung code như sau
Private Sub Ok_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub
Mong các Anh - Chi giúp

Bạn thử code sau nhá.

Mã:
[FONT=VNI-Times][I]Private Sub Ok_Click()[/I][/FONT]
[FONT=VNI-Times][I]Dim iRow As Long[/I][/FONT]
[FONT=VNI-Times][I]Dim ws As Worksheet[/I][/FONT]
[FONT=VNI-Times][I]Set ws = Worksheets("sheet1")[/I][/FONT]
[FONT=VNI-Times][I]iRow = ws.Cells(Rows.Count, 2) [/I][/FONT][FONT=VNI-Times][I].End(xlUp).Offset(1, 0).Row[/I][/FONT]
[FONT=VNI-Times][I]ws.Cells(iRow, 2).Value = [B]Format[/B](Me.TextBox1.Value[B], "dd/mm/yyyy")[/B][/I][/FONT]
[FONT=VNI-Times][I]TextBox1 = ""[/I][/FONT]
[FONT=VNI-Times][I]Me.TextBox1.SetFocus[/I][/FONT]
[FONT=VNI-Times][I]End Sub[/I][/FONT]
Mến

Phong
 
mymichau đã viết:
Em vẫn không làm được theo cách của Anh - Chị.
Nội dung code như sau
Private Sub Ok_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub
Mong các Anh - Chi giúp

Bạn thử chữ .Value (tô màu đỏ ở trên) xem sao !
 
Code ca Digita bị báo lổi ở dòng "iRow = ws.Cells(Rows.Count, 2) .End(xlUp).Offset(1, 0).Row". Nếu bỏ value thì định dạng là text chứ không được date
 
Bạn thử đoạn code này xem sao.
(Có tham khảo code của Mr OkeBab và VTT)
Private Sub Ok_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim txbNgay As String
Set ws = Worksheets("sheet1")
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
txbNgay = Me.TextBox1.Value
If Not IsDate(txbNgay) Then
MsgBox "Ngay khong hop le"
Else
ws.Cells(iRow, 2).Value = DateSerial(Year(txbNgay), Month(txbNgay), Day(txbNgay))
End If
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub
 
Mừng quá! Cảm ơn Thunghi nhiều. Code của Thunghi đã giải quyết được rồi. Như vậy chương trình mình mới xử lý được dữ liệu
 
Cái nầy chạy 100%. Bạn thử nhé.

Mã:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
ws.Cells(ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End(xlUp)(2, 1).Row, 2).Value = Format(Me.TextBox1.Value, "dd/mm/yyyy")
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub
 
Dear all,
--------
Em muốn bổ sung một đồ nghề nữa rất hữu dụng trong việc xử lý ngày tháng, đó chính là:mscomct2.ocx (file đính kèm)
DTPicker.jpg



Khỏi cần nói thêm nhiều, hình minh hoạ trên đây chắc sẽ giúp mọi người tương tác dễ dàng với nó. Đây là một ActiveControl (*.OCX) thông dụng nhưng không sẵn có trong Windows. Vì vậy để có món đồ nghề này, chúng ta cần đăng ký mscomct2.ocx RegSVR32 hoặc Add reference vào dự án sau đó Additional Controls như trong hình.
Chúc mọi người thành!
 

File đính kèm

  • mscomct2.zip
    334 KB · Đọc: 244
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom