Form cập nhật quỹ bình ổn cho 3 đơn vị (1 người xem)

[Excel365]

Chào các anh chị!
Hàng tháng em phải cập quỹ lương của 3 đơn vị, nay nhờ các anh chị giúp em code cho Form cập nhật dữ liệu để tiện cho việc cập nhật số liệu ( Trong file em gởi, em đã làm Form sẵn, nhưng chưa biết cách viết code để cập nhật xuống sheet Data, Form em thiết kế, là theo suy nghĩ của em, không biết có hợp lý không, nếu không các anh chị có thể giúp em thiết kế lại Form cho hợp lý hơn).
Trân trọng cảm ơn.
File tại đây

 

[SA_DQ]

Chạy ra tiệm Net thử coi sao?

 

[Excel365]

Chạy ra tiệm Net thử coi sao?

Em bỏ đoạn
[GPECODE=vba]Private Sub UserForm_Initialize()
CbBNgay_Change
End Sub
[/GPECODE]
thì khởi động form lên được, nhưng không thể cập nhật số liệu. (Khởi động xong, thì không thoát được Form)

Em cũng đã thử trên máy khác cùng cơ quan nhưng vẫn không được (Office 2010)

 

[ChanhTQ@]

Thứ nhất, bạn xem lại trong file còn mấy Names?
(Chú trọng Name 'Ngay' =Data!$AA$2:$AA$18 có còn dữ liệu không?)

Chuyện này mới diễn ra fải không? Vài ba ngày trước bạn có fát biểu về vấn đề này đâu?

 

[Excel365]

Thứ nhất, bạn xem lại trong file còn mấy Names?
(Chú trọng Name 'Ngay' =Data!$AA$2:$AA$18 có còn dữ liệu không?)
Chuyện này mới diễn ra fải không? Vài ba ngày trước bạn có fát biểu về vấn đề này đâu?

Dạ đúng rồi, mới phát sinh đây.
Em đã kiểm tra, name vẫn còn đủ. Mà cũng không hiểu sao, khi mới tải file về, load form vẫn có lúc được, lúc không

 

[be_09]

Xem bài viết tôi góp ý tiếp ở Link sau:

http://www.giaiphapexcel.com/forum/showthread.php?115515-Cần-giúp-tạo-form-nhập-liệu/page2

 

[ChanhTQ@]

Em đã kiểm tra, name vẫn còn đủ. Mà cũng không hiểu sao, khi mới tải file về, load form vẫn có lúc được, lúc không

(1) Names còn đủ, nhưng dữ liệu cho Names có còn không?

(2) Quá trình mở Form tiến hành qua các bước sau:

Với File trước, tại ComboBox để chọn ngày sẽ chỉ hiện lên con số như 54320, là con số chỉ của ngày thứ 10 trước ngày hiện hành
Sau đó, để tiện cho bạn trong sử dụng, bọn này có viết thêm vài câu lệnh, nhằm nó hiển thì ngày theo hệ Anh-Mĩ, (MM/DD/yyyy)
Nhưng khi mở Form thì fải đưa cả dòng lệnh này lúc mở form (mà bạn đã vô hiệu hóa đó đi rồ; Nhớ là vô hiệu hóa khác với xóa hẵn dòng lệnh đó nha)

Như vậy, sau khi vô hiệu hóa dòng lệnh, lí ra khi mở form, bạn sẽ thấy con số hàng vạn trong ComboBox đó (khi mở được); Con số này sẽ giống trong 1 ngày & tăng lên 1 khi sang ngày mới

Bạn đọc xong bài viết này & xem xét hết các vấn đề có liên quan đến ComboBox đó & cho biết các trường hợp diễn ra trên máy bạn./.

 

[Excel365]

(1) Names còn đủ, nhưng dữ liệu cho Names có còn không?

(2) Quá trình mở Form tiến hành qua các bước sau:

Với File trước, tại ComboBox để chọn ngày sẽ chỉ hiện lên con số như 54320, là con số chỉ của ngày thứ 10 trước ngày hiện hành
Sau đó, để tiện cho bạn trong sử dụng, bọn này có viết thêm vài câu lệnh, nhằm nó hiển thì ngày theo hệ Anh-Mĩ, (MM/DD/yyyy)
Nhưng khi mở Form thì fải đưa cả dòng lệnh này lúc mở form (mà bạn đã vô hiệu hóa đó đi rồ; Nhớ là vô hiệu hóa khác với xóa hẵn dòng lệnh đó nha)

Như vậy, sau khi vô hiệu hóa dòng lệnh, lí ra khi mở form, bạn sẽ thấy con số hàng vạn trong ComboBox đó (khi mở được); Con số này sẽ giống trong 1 ngày & tăng lên 1 khi sang ngày mới

Bạn đọc xong bài viết này & xem xét hết các vấn đề có liên quan đến ComboBox đó & cho biết các trường hợp diễn ra trên máy bạn./.

Em ghi lại toàn bộ quá trình từ lúc em giải nén ra và mở file. Nhờ ChanhTQ@ xem giúp em.
Khi em xóa đoạn này thì mở form lên được
Cho mình hỏi có thể chọn ngày bằng Control lịch và các Name mình có chuyển thành VBA được không ChanhTQ@
[GPECODE=vba]' CbBNgay.Value = DateSerial(Year(CbBNgay), Month(CbBNgay), Day(CbBNgay))[/GPECODE]
[video=youtube;WmZmBDdjvSo]https://www.youtube.com/watch?v=WmZmBDdjvSo&feature=youtu.be[/video]

 

[SA_DQ]

Bạn vô thử cửa sổ VBE, sau đó mở Form ở chế độ thiết kế lên xem thử tại ComboBox đầu tiên đó đang hiển thị gì?
Có fải 42542 hay không?

 

[Excel365]

Bạn vô thử cửa sổ VBE, sau đó mở Form ở chế độ thiết kế lên xem thử tại ComboBox đầu tiên đó đang hiển thị gì?
Có fải 42542 hay không?

Dạ đúng rồi, 42542
Nó là cái gì vậy bạn

Em thử bỏ cbbNgay đó, em thêm vào textbox chọn ngày và Form lịch, hàm lấy danh sách nguồn Combobox của anh Nghĩa.
https://drive.google.com/file/d/0Bz23-2tBuYb1bjRMb0p4U3J1MG8/view?usp=sharing
Nhưng tới hàm dưới đây, và tìm kiếm theo Tháng, Quý, Ngày, không biết chỉnh như thế nào, mong được giúp đỡ
[GPECODE=vba]Function MaDD(Dat As Date, DVi As String, Dg As String) As String
Dim Wf As Object
Set Wf = Application.WorksheetFunction
MaDD = MaNgay(Dat) & Wf.VLookup(DVi, Range("DVi").Resize(, 2), 2, False)
MaDD = MaDD & Wf.VLookup(Dg, Range("DGiai").Resize(, 2), 2, False)
End Function
[/GPECODE]

[GPECODE=vba]Function MaNgay(Dat As Date) As String
Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

MaNgay = Mid(Alf, Year(Dat) - 2000, 1) & Mid(Alf, 1 + Month(Dat), 1)
MaNgay = MaNgay & Mid(Alf, 1 + Day(Dat), 1)
End Function
[/GPECODE]

 

[SA_DQ]

Bạn lấy 1 ô trống trên trang tính; Nhập trị đó vô & format dạng "DD/MM/yyyy" hay "MM/dd/yy" sẽ hiểu thôi.

Còn cái hàm đó là thế này:

Dữ liệu của bạn có đặc tính cơ bản là chỉ khoảng 3 đơn vị (bộ fận) & các chỉ tiêu đều ít (cỡ 13-15 tiêu chí Thu-Chi-Khác)
Vậy nên hàm người dùng đó tạo ra mã liên hệ để giúp cho việc thống kê trong các báo cáo;
Hàm này sẽ tạo ra mã liên hệ với ngày-tháng-năm nhập liệu, với fân xưỡng & tiêu chí Thu-Chi-Khác
Chữ cái đầu chỉ năm (F: năm 2016); chữ cái thứ 2 chỉ tháng; tháng 10 là 'A'; Chữ cái thứ 3 chỉ ngày
Chử cái thứ 4 & thứ 5 bạn tiếp tục tìm hiểu
Cho nên trong CSDL bạn sẽ thấy các mã này trong cột cuối
Xài nó sẽ đỡ công của bạn & của máy!
Còn nếu bạn bò nó đi (. . .) thì chúng ta tạm chia tay nhau thôi!

 

[Excel365]

Bạn lấy 1 ô trống trên trang tính; Nhập trị đó vô & format dạng "DD/MM/yyyy" hay "MM/dd/yy" sẽ hiểu thôi.

Còn cái hàm đó là thế này:
Dữ liệu của bạn có đặc tính cơ bản là chỉ khoảng 3 đơn vị (bộ fận) & các chỉ tiêu đều ít (cỡ 13-15 tiêu chí Thu-Chi-Khác)
Vậy nên hàm người dùng đó tạo ra mã liên hệ để giúp cho việc thống kê trong các báo cáo;
Hàm này sẽ tạo ra mã liên hệ với ngày-tháng-năm nhập liệu, với fân xưỡng & tiêu chí Thu-Chi-Khác
Chữ cái đầu chỉ năm (F: năm 2016); chữ cái thứ 2 chỉ tháng; tháng 10 là 'A'; Chữ cái thứ 3 chỉ ngày
Chử cái thứ 4 & thứ 5 bạn tiếp tục tìm hiểu
Cho nên trong CSDL bạn sẽ thấy các mã này trong cột cuối
Xài nó sẽ đỡ công của bạn & của máy!
Còn nếu bạn bò nó đi (. . .) thì chúng ta tạm chia tay nhau thôi!

Không phải em bỏ hàm đó đi, mà là em không biết chỉnh sữa như thế nào, mong được giúp đỡ.
Trân trọng cảm ơn

 

[ChanhTQ@]

Cái hàm đó tiện dụng trong công việc thống kê:

Ví dụ để tập hợp toàn bộ hoạt động của 'Sông Đốc', thì chữ cái thứ tư của mã do hàm ấy đưa ra có chữ 'S'
Thay vì đi tìm cụm từ 'Sông đốc', các fương thức nào đóa chỉ cần tìm chữ 'S' ở vị trí thứ 4 của mã; Sẽ nhanh hơn nhiều
(Còn nhiều hơn bao nhiêu thì chưa đo lường; Nhưng chắc sẽ nhanh gọn hơn)

Còn bạn xài Form nhập Ngày tháng của thầy Nghĩa thì có thể sẫy ra xung đột không chừng; Điều này chỉ có bạn hay T. Nghĩa,. . . mới biết & khắc fục mà thôi!