Xin giúp code TextBox Value định dạng dd/mm/yyyy (1 người xem)

[mabuap1]

Gửi GPE !
Em đang làm TextBox để hỗ trợ nhập liệu cho nhanh, tuy nhiên khi nhập vào form lưu vào trong bảng tính thì định dạng ngày trong bảng tính không hiển thị đúng theo định dạng của TextBox.
Định dạng TextBox2 em nhập là: dd/mm/yyyy, nhưng khi lưu vào bảng tính lại là: mm/dd/yyyy . Ví dụ: em nhập trên form là: 04/12/2015 thì bảng hiển thị sai là 12/04/2015 con nếu nhập trên form có ngày là từ hàng chục trở lên thì bình thường: 16/12/2015 thì bảng hiển thị đúng 16/12/2015
Em mới tập tành Excel nên nhờ a/c GPE giúp em. Em xin cảm ơn rất nhiều.

 

[DMQ]

Bạn vào Control Panel chỉnh lại định dạng ngày của Windows

 

[mabuap1]

Em đã chỉnh rồi nhưng vẫn không được

 

[doveandrose]

.Cells(Dongcuoi, 2).Value = CDate(Main.TextBox2.Value)

 

[DMQ]

bạn thử chỉnh lại như vầy coi xem sao

.Cells(Dongcuoi, 2).Value = CDate(TextBox2.Value)

Vừa đưa lên thì Anh Chim hồng đã đưa trước rồi.

 

[vu_tuan_manh_linh]

Bạn vào Control Panel chỉnh lại định dạng ngày của Windows

Định dạng trong VBA vẫn luôn là chuẩn Mỹ, không thay đổi khi thiết lập trên windows.
Cách làm đơn giản thôi bạn! Dùng hàm này để chuyển dữ liệu text của Textbox thành dữ liệu ngày tháng nhé!

Function Ngay(a)
Ngay=DateSerial(Right(GH.HT.Value, 4), Mid(a, 4, 2), Left(a, 2))
End Function

Yêu cầu nhập ngày tháng đúng định dạng dd/mm/yyyy nhé! VD: 04/09/2015

 

[mabuap1]

Vẫn không được ạ
Hoặc anh chị giúp em code trong TextBox2 mặc định là ngày trên hệ thống luôn cũng được ạ

 

[vu_tuan_manh_linh]

Vẫn không được ạ
Hoặc anh chị giúp em code trong TextBox2 mặc định là ngày trên hệ thống luôn cũng được ạ

Test kỹ đi bạn! Cả 2 cách đều ổn cả đấy!!!

 

[mabuap1]

bạn thử chỉnh lại như vầy coi xem sao

.Cells(Dongcuoi, 2).Value = CDate(TextBox2.Value)

Vừa đưa lên thì Anh Chim hồng đã đưa trước rồi.

Em cảm ơn 2 anh nhiều, em đã làm được rồi, cảm ơn GPE.... cảm thấy vui, hạnh phúc

 

[mabuap1]

Định dạng trong VBA vẫn luôn là chuẩn Mỹ, không thay đổi khi thiết lập trên windows.
Cách làm đơn giản thôi bạn! Dùng hàm này để chuyển dữ liệu text của Textbox thành dữ liệu ngày tháng nhé!

Function Ngay(a)
Ngay=DateSerial(Right(GH.HT.Value, 4), Mid(a, 4, 2), Left(a, 2))
End Function

Yêu cầu nhập ngày tháng đúng định dạng dd/mm/yyyy nhé! VD: 04/09/2015

Cảm ơn anh đã trợ giúp, chúc anh chị GPE luôn mạnh khỏe. ^^ cảm thấy iu GPE

 

[mabuap1]

Hi, GIAI PHAP EXCEL

Hôm nọ ở bái viết bên trên, các anh đã giúp em edit lại code theo yêu cầu. Do thời gian sử dụng em thấy còn nhiều bất cập ở form nên hôm nay mạo muội gửi tin nhắn mong anh giúp em thêm lần nữa.
Anh giúp em edit lại chút xíu code nha anh.

1.Sau khi ấn nút NHẬP THÔNG TIN, ở form ngày sẽ tự động lấy ngày mặc định của máy tính, hiển thị kiểu định dạng dd/mm/yyyy trong bảng DATA
2. Ở Form: Họ và tên và form Địa Chỉ viết chữ bất kỳ ví dụ như: NGUYỄN VĂN HÙNG thì sau khi ấn lưu, form được nhập vào bảng DATA được hiển thị là: Nguyễn Văn Hùng (viết hoa đầu mổi từ)
3. Do file excel của em có 4 bảng gồm DATA, SO1, SO2, SO3, quá trình sử dụng, em chỉ thao tác ở bảng DATA thôi, kết thúc công việc, em save lại mà dạo này mất 5-10 giây mới lưu xong, trong khi bảng DATA mới có khoảng 200 dòng. Em muốn khi bấm save chỉ lưu mổi bảng DATA thôi, vì mấy bảng SO1 SO2 SO3 em không sử dụng tới

Chân thành cảm ơn GPE đã bỏ chút thời gian giúp em.

 

[vu_tuan_manh_linh]

Hi, GIAI PHAP EXCEL

Hôm nọ ở bái viết bên trên, các anh đã giúp em edit lại code theo yêu cầu. Do thời gian sử dụng em thấy còn nhiều bất cập ở form nên hôm nay mạo muội gửi tin nhắn mong anh giúp em thêm lần nữa.
Anh giúp em edit lại chút xíu code nha anh.

1.Sau khi ấn nút NHẬP THÔNG TIN, ở form ngày sẽ tự động lấy ngày mặc định của máy tính, hiển thị kiểu định dạng dd/mm/yyyy trong bảng DATA
2. Ở Form: Họ và tên và form Địa Chỉ viết chữ bất kỳ ví dụ như: NGUYỄN VĂN HÙNG thì sau khi ấn lưu, form được nhập vào bảng DATA được hiển thị là: Nguyễn Văn Hùng (viết hoa đầu mổi từ)
3. Do file excel của em có 4 bảng gồm DATA, SO1, SO2, SO3, quá trình sử dụng, em chỉ thao tác ở bảng DATA thôi, kết thúc công việc, em save lại mà dạo này mất 5-10 giây mới lưu xong, trong khi bảng DATA mới có khoảng 200 dòng. Em muốn khi bấm save chỉ lưu mổi bảng DATA thôi, vì mấy bảng SO1 SO2 SO3 em không sử dụng tới

Chân thành cảm ơn GPE đã bỏ chút thời gian giúp em.

1. Bạn dùng hàm now() để lấy ngày tháng hiện tại nhé!
2. Bạn tham khảo code sau: Giá trị gốc ghi tại A1, sau khi chạy code sẽ ghi giá trị ra ô A2.

Sub ProperFist()
Dim i, Ht
Ht = Cells(1, 1).Value
Ht = LTrim(RTrim(Trim(Ht)))
Ht = LCase(Ht)
Ht = UCase(Left(Ht, 1)) & Right(Ht, Len(Ht) - 1)
For i = 1 To Len(Ht)
    If Mid(Ht, i, 1) = Chr(32) Then
        Ht = Left(Ht, i) & UCase(Mid(Ht, i + 1, 1)) & Right(Ht, Len(Ht) - i - 1)
    End If
Next i
Cells(2, 1).Value = Ht
End Sub

3. Những bảng bạn không dùng tới thì không cần quan tâm tới nó làm gì. Nếu muốn xóa chúng trước khi lưu thì bạn dùng thủ tục Workbook_BeforeSave xóa những vùng bạn muốn.