Định dạng ngày, tháng, năm trong Textbox (1 người xem)

[mymichau]

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.

 

[vungoc]

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.

 

[ThuNghi]

Bạn nghiên cứu thêm phần này nhé.
http://www.giaiphapexcel.com/forum/showthread.php?t=2656

 

[digita]

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à:

Range("A10") = Format(Textbox1, "dd/mm/yyyy")

Mến

 

[mymichau]

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

 

[digita]

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á.

[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

 

[vungoc]

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 !

 

[mymichau]

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

 

[ThuNghi]

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

 

[mymichau]

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

 

[digita]

Cái nầy chạy 100%. Bạn thử nhé.

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

 

[Đào Việt Cường]

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)

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!

 

[hoangltst]

Bạn thử đoạn code này xem sao.
(Có tham khảo code của Mr OkeBab và VTT)

cam on ban nhieu thu nghi

 

[guitarnguyen1989]

Bạn thử đoạn code này xem sao.
(Có tham khảo code của Mr OkeBab và VTT)

thanks