Mình cần giúp đỡ tạo User form và chèn lịch vào userform để nhập ngày tháng năm trong excel

[cucaitrang25]

Em chào các anh chị
Em vừa mới bắt đầu học VBA và cần tạo một User form để nhập liệu ạ. Giống như file đính kèm vậy ạ. Anh chị có thể hướng dẫn giúp em cách tạo user form giống như file đính kèm được không ạ? File đính kèm đặt mật khẩu khẩu có code VBA nên em không xem được.
Em cám ơn các anh chị nhiều ạ

 

[Maika8008]

Em chào các anh chị
Em vừa mới bắt đầu học VBA và cần tạo một User form để nhập liệu ạ. Giống như file đính kèm vậy ạ. Anh chị có thể hướng dẫn giúp em cách tạo user form giống như file đính kèm được không ạ? File đính kèm đặt mật khẩu khẩu có code VBA nên em không xem được.
Em cám ơn các anh chị nhiều ạ

Nói thiệt, trước đây tôi từng làm User Form để cố cho có vẻ chuyên nghiệp. Sau tôi nhận ra rằng sự chuyên nghiệp không phải ở đó. Đã là Excel thì phải để cho người dùng nhập liệu thoải mái kiểu Excel chứ đi gò theo Access thì thôi dùng Access cho rồi

 

[SA_DQ]

Dùng lịch để nhập liệu kiểu ngày-tháng-năm chỉ thích hợp cho việc làm hóa đơn hay phiếu xuất nhập mà thôi; Nhưng cũng tốn thời gian nữa là đằng khác.
Nếu nhập liệu cho ngày sinh hay ngày vô cơ quan thì thà nhập tay còn nhanh hơn, chắc vậy.

 

[1+1=2]

Em chào các anh chị
Em vừa mới bắt đầu học VBA và cần tạo một User form để nhập liệu ạ. Giống như file đính kèm vậy ạ. Anh chị có thể hướng dẫn giúp em cách tạo user form giống như file đính kèm được không ạ? File đính kèm đặt mật khẩu khẩu có code VBA nên em không xem được.
Em cám ơn các anh chị nhiều ạ

Dùng textbox được rồi cần chi Combobox vậy

Public Function SuaNgay(NgayBatKy)

On Error Resume Next

   ws = NgayBatKy

    If Not IsDate(ws) Then

        MsgBox ("Ngay thang nam khong hop Le. Vi du: 14/12/2020")

        SuaNgay = Date

    Else

        If InStr(1, ws, "/") > 0 Then

        KT = "/"

        ElseIf InStr(1, ws, "-") > 0 Then

        KT = "-"

        End If

              

        WP = InStr(1, ws, KT)

        WDD = Left(ws, WP - 1)

        ws = Mid(ws, WP + 1)

        WP = InStr(1, ws, KT)

        If WP = 0 Then

            WMM = ws

            WYY = Year(Date)

        Else

            WMM = Left(ws, WP - 1)

            WYY = Mid(ws, WP + 1)

        End If

        SuaNgay = DateSerial(WYY, WMM, WDD)

    End If

End Function





Private Sub txtngayhen_AfterUpdate()

txtngayhen = SuaNgay(txtngayhen)

txtngayhen = Format(txtngayhen, "dd/mm/yyyy")

txtngayhen.SetFocus

End Sub

 

[SA_DQ]

Nhập số liệu ngày-tháng-năm bằng ComboBox có lợi hơn TextBox trong 1 số trường hợp nhập phiếu xuất nhập kho, phiếu thu chi (hay giao nhận,. . . )
Lí do là chọn từ 1 danh sách cỡ 7 hay mươi dòng ngày gần đây để lập phiếu nhanh hơn nhiều so với nhập mươi kí tự số & "/" (hay "-")

 

[thanhphongtslocphat]

Bây giờ thì xem được rồi

 

[cucaitrang25]

Nói thiệt, trước đây tôi từng làm User Form để cố cho có vẻ chuyên nghiệp. Sau tôi nhận ra rằng sự chuyên nghiệp không phải ở đó. Đã là Excel thì phải để cho người dùng nhập liệu thoải mái kiểu Excel chứ đi gò theo Access thì thôi dùng Access cho rồi

Tại vì form này mình làm để các anh công nhân vận hành máy nhập data thời gian của máy, nhưng mà các anh các anh cứ hay nhập sai thứ tự ngày và tháng ạ. Nên mình muốn để chèn kiểu lịch để các anh nhập đúng.

Bài đã được tự động gộp: 30/7/20

Bây giờ thì xem được rồi

cám ơn bạn nhiều ạ

 

[Maika8008]

Tại vì form này mình làm để các anh công nhân vận hành máy nhập data thời gian của máy, nhưng mà các anh các anh cứ hay nhập sai thứ tự ngày và tháng ạ. Nên mình muốn để chèn kiểu lịch để các anh nhập đúng.

Hình như trên sheet cũng chèn kiểu lịch được mà. Bạn tìm GPE xem!

 

[cucaitrang25]

Nhập số liệu ngày-tháng-năm bằng ComboBox có lợi hơn TextBox trong 1 số trường hợp nhập phiếu xuất nhập kho, phiếu thu chi (hay giao nhận,. . . )
Lí do là chọn từ 1 danh sách cỡ 7 hay mươi dòng ngày gần đây để lập phiếu nhanh hơn nhiều so với nhập mươi kí tự số & "/" (hay "-")

Nhập số liệu ngày-tháng-năm bằng ComboBox có lợi hơn TextBox trong 1 số trường hợp nhập phiếu xuất nhập kho, phiếu thu chi (hay giao nhận,. . . )
Lí do là chọn từ 1 danh sách cỡ 7 hay mươi dòng ngày gần đây để lập phiếu nhanh hơn nhiều so với nhập mươi kí tự số & "/" (hay "-")

HI bạn,cái này là mình xin bạn mình cái file mà nó làm để tham khảo làm cái user form cho các anh công nhân trong xưởng mình nhập data hằng ngày của máy móc, các anh hay nhập sai thứ tự ngày tháng. Nhưng bạn đó đạt mật khẩu code VBA.

Bài đã được tự động gộp: 30/7/20

Hình như trên sheet cũng chèn kiểu lịch được mà. Bạn tìm GPE xem!

Cám ơn bạn

 

[ndu96081631]

Hình như trên sheet cũng chèn kiểu lịch được mà. Bạn tìm GPE xem!

Chèn được nhưng nó không ổn định như trên form

 

[cucaitrang25]

Chèn được nhưng nó không ổn định như trên form

Em đính kèm là một cái sheets cũng là nhập liệu có sử dụng một chút VBA em mới học hỏi để làm cho các anh em công nhân trong xưởng em nhập data thời gian máy chạy hằng ngày. Nhưng mà hiện tại các anh em nhập data trực tiếp trên sheets hay nhập sai ngày tháng (thứ tự) và thời gian. Anh có thể giúp em cách tạo user form và chèn lịch vào user form thật đơn giản được ko anh? Em thì mới học VBA nên chỉ biết sơ sơ mấy code đơn giản ạ hic. Thanks anh ạ

 

[dongducnhiem]

Em đính kèm là một cái sheets cũng là nhập liệu có sử dụng một chút VBA em mới học hỏi để làm cho các anh em công nhân trong xưởng em nhập data thời gian máy chạy hằng ngày. Nhưng mà hiện tại các anh em nhập data trực tiếp trên sheets hay nhập sai ngày tháng (thứ tự) và thời gian. Anh có thể giúp em cách tạo user form và chèn lịch vào user form thật đơn giản được ko anh? Em thì mới học VBA nên chỉ biết sơ sơ mấy code đơn giản ạ hic. Thanks anh ạ

Bây giờ bạn thử bấm vào E3 sheet Form

 

[cucaitrang25]

Bây giờ bạn thử bấm vào E3 sheet Form

Cám ơn bạn, mình bấm vào rồi nhưng nó bị lỗi ạ.

 

[thnghiachau]

Em chào các anh chị
Em vừa mới bắt đầu học VBA và cần tạo một User form để nhập liệu ạ. Giống như file đính kèm vậy ạ. Anh chị có thể hướng dẫn giúp em cách tạo user form giống như file đính kèm được không ạ? File đính kèm đặt mật khẩu khẩu có code VBA nên em không xem được.
Em cám ơn các anh chị nhiều ạ

Lâu rùi mình có ngụp lặn nhào nặng từ nhiều nguồn khác nhau và ra được cái Date Picker yêu thích...
Mình đưa lên đây cho bạn thao khảo nha...

Bài đã được tự động gộp: 30/7/20

Bây giờ bạn thử bấm vào E3 sheet Form

Ứng dụng DatePicker vào cái của bạn nha...
bạn double click vào ô E3 trong sheet "Form" nha!!!

 

[Maika8008]

Lâu rùi mình có ngụp lặn nhào nặng từ nhiều nguồn khác nhau và ra được cái Date Picker yêu thích...
Mình đưa lên đây cho bạn thao khảo nha...

Bài đã được tự động gộp: 30/7/20

Ứng dụng DatePicker vào cái của bạn nha...
bạn double click vào ô E3 trong sheet "Form" nha!!!

Bấm Today sao không nhập được ngày hôm nay vậy bạn?

 

[thnghiachau]

Bấm Today sao không nhập được ngày hôm nay vậy bạn?

Khi bấm today là nó trở về tháng và ngày hôm nay trên cái form Calendar mà thôi bạn ah.
Muốn lấy giá trị today thì phải nhấn vào ngày có ô màu hồng mới dc.
trước kia mình cũng làm là nhấn today là lấy liền giá trị hôm nay, nhưng vì nhiều người kêu bỏ cái dzụ này mà chỉ muốn cái calendar trở về ngày tháng năm hôm nay, nên mình mới bỏ nó.
nếu bạn muốn thì tùy biến lại thôi

 

[Maika8008]

Khi bấm today là nó trở về tháng và ngày hôm nay trên cái form Calendar mà thôi bạn ah.
Muốn lấy giá trị today thì phải nhấn vào ngày có ô màu hồng mới dc.
trước kia mình cũng làm là nhấn today là lấy liền giá trị hôm nay, nhưng vì nhiều người kêu bỏ cái dzụ này mà chỉ muốn cái calendar trở về ngày tháng năm hôm nay, nên mình mới bỏ nó.
nếu bạn muốn thì tùy biến lại thôi

Ờ nhỉ! Mà cái màu hồng nhạt quá khó thấy thiệt.

 

[hoangtuaotrang_hp_vn]

Khi bấm today là nó trở về tháng và ngày hôm nay trên cái form Calendar mà thôi bạn ah.
Muốn lấy giá trị today thì phải nhấn vào ngày có ô màu hồng mới dc.
trước kia mình cũng làm là nhấn today là lấy liền giá trị hôm nay, nhưng vì nhiều người kêu bỏ cái dzụ này mà chỉ muốn cái calendar trở về ngày tháng năm hôm nay, nên mình mới bỏ nó.
nếu bạn muốn thì tùy biến lại thôi

Bác có thể làm giúp cái chức năng: nhấn vào Today thì nó lấy liền giá trị hôm nay được không ạ?

 

[ongke0711]

Bác có thể làm giúp cái chức năng: nhấn vào Today thì nó lấy liền giá trị hôm nay được không ạ?

Sao bạn không thiết lập ngày mặc định của textbox là Date() luôn thì khi mở Form khỏi phải chọn Today chi cho mất công.

 

[tigertiger]

Muốn lấy today() ngày hôm nay thì tại cell đó, chỉ cần bấm Ctrl+;
Là có ngay today