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

 

[be_09]

Chào các anh chị!
Hàng tháng em phải cập quỹ lương của 3 đơn vị, ......................em đã làm Form sẵn, .....................anh chị có thể giúp em thiết kế lại Form cho hợp lý hơn)..............

.

Góp ý cho bạn:

1/ Sheet Data sao không có tiêu đề gì ráo vậy bạn, theo tôi sheet này còn thiếu cột số phiếu chi.

2/ Thiết kế Form sao không thấy ăn nhậu gì với tiêu đề sheet vậy, theo tôi Sheet Data có 4 cột thì chơi 4 Control, còn muốn hiện nhiều dòng của loại gì đó thì dùng ListBox.

3/ Nếu sử dụng phiếu thu, phiếu chi thì nên sử dụng Sheet Form để còn in phiếu (còn sử dụng Form thì in bằng cách nào) ????

4/ Muốn làm cái gì thì cần nêu tất cả vấn đề cho cụ thể, rỏ ràng để các thành viên có được cái nhìn tổng quát hơn, chứ nêu như bài 1 chắc còn phải góp ý và sửa dài dài, sẽ làm mất thời gian của bạn cũng như mất công sức của mọi người.

 

[Excel365]

1/ Sheet Data sao không có tiêu đề gì ráo vậy bạn, theo tôi sheet này còn thiếu cột số phiếu chi.

Sheet Data, dòng 1 là tiêu đề đó anh. Do đây là sheet Data để Tổng hợp sang Pivot table (sheet2) và em cũng không có in phiếu chi.

2/ Thiết kế Form sao không thấy ăn nhậu gì với tiêu đề sheet vậy, theo tôi Sheet Data có 4 cột thì chơi 4 Control, còn muốn hiện nhiều dòng của loại gì đó thì dùng ListBox.

-> Nhờ anh thiết kế giùm em Form để cập nhật dữ liệu như Sheet Data

3/ Nếu sử dụng phiếu thu, phiếu chi thì nên sử dụng Sheet Form để còn in phiếu (còn sử dụng Form thì in bằng cách nào)

-> Em không in dữ liệu từ Data, mà chỉ in Báo cáo ở Sheet2

Mong anh giúp đỡ

 

[Excel365]

.

Góp ý cho bạn:
4/ Muốn làm cái gì thì cần nêu tất cả vấn đề cho cụ thể, rỏ ràng để các thành viên có được cái nhìn tổng quát hơn, chứ nêu như bài 1 chắc còn phải góp ý và sửa dài dài, sẽ làm mất thời gian của bạn cũng như mất công sức của mọi người.

Ý em chỉ cần làm Form nhập liệu cho 3 đơn vị (NF, Đầm Dơi, Sông đốc) như Form mẩu trong File.
Form nhập liệu cần gồm có các thông tin như sau:

Tháng: Số liệu của tháng nhập liệu (mm/yyyy)
Đơn vị: Có 3 đơn vị (NF, Đầm Dơi, Sông đốc).
Diễn giải gồm:

Trích:​

Trích Quỹ bình ổn
Trích Quỹ Trang phục​

Chi:​

Chi bình ổn lương
Chi bình ổn lương từ quỹ năm trước (2015)​

Chi khác gồm:​

Thưởng tiết kiệm dầu DO
Tiền lương chăm sóc cây cảnh
Tiền lương trực tết
Tiền lương HTX MT lấy rác
Tiền lương Công nhân xử lý nước thải​

Số tiền: Số tiền của từng mục ở cột Diễn giải​

................

 

[be_09]

Ý em chỉ cần làm Form nhập liệu cho 3 đơn vị (NF, Đầm Dơi, Sông đốc) như Form mẩu trong File.
Form nhập liệu cần gồm có các thông tin như sau:

Tháng: Số liệu của tháng nhập liệu (mm/yyyy)
Đơn vị: Có 3 đơn vị (NF, Đầm Dơi, Sông đốc).
Diễn giải gồm:

Trích:​

Trích Quỹ bình ổn
Trích Quỹ Trang phục​

Chi:​

Chi bình ổn lương
Chi bình ổn lương từ quỹ năm trước (2015)​

Chi khác gồm:​

Thưởng tiết kiệm dầu DO
Tiền lương chăm sóc cây cảnh
Tiền lương trực tết
Tiền lương HTX MT lấy rác
Tiền lương Công nhân xử lý nước thải​

Số tiền: Số tiền của từng mục ở cột Diễn giải​

................

- Nếu diễn giải nội dung của các đơn vị giống nhau thì chỉ cần 1 Combo, với 1 List danh sách riêng (NF, Đầm Dơi, Sông đốc) và đặt cho nó 1 cái Name và dùng Name này gán cho Combo, khi click vao combo thì nó hiện ra 3 cái tên muốn nhập liệu cho tên nào thì ta chọn tên đó.

- Nếu cần diễn giải nội dung riêng biệt của đơn vị nào thì ta làm 1 cái Combo phụ thuộc, nghĩa là khi chọn đơn vị nào thì các diễn giải chi tiết của đơn vị đó hiện ra để ta chọn (mà không hiện chi tiết của các đơn vị khác), nội dung phụ thuộc phải có 1 sheet thống kê chi tiết riêng của từng đơn vị.

- Còn cái Combo tháng mục đích làm gì tôi không hiểu?????????
Tôi chỉ hiểu man mán là vầy: Chọn tháng, chọn đơn vị nó sẽ lọc ra danh sách diễn giải nội dung của đơn vị theo tháng vừa chọn, muốn thêm bớt hay sửa cái gì thì nó Load vào Form để thao tác.

 

[ChanhTQ@]

Theo mình Form của bạn thiết kế là fức tạp & rườm rà quá!
Để nhập vố 'Data' thì hiện 'Data' chỉ có 4 trường, ta cũng chỉ nên dựng 1 form có 4 Control thôi; (Cùng lắm là 5, đó là loại diễn giải (Trích, Chi & Khác))
[Ngày tháng] ta nên làm 1 ComboBox để chọn 1 trong các ngày từ ngày thứ 10 trước ngày hiện hành (NHH) & ngày thứ 5 sau NHH;
[Đơn vị] Cũng là 1 ComboBox chọn từ 3 đơn vị của bạn;
[Diễn giải] cũng là ComboBox chọn từ các diễn giải; Nếu là rất nhiều diễn giải có thêm nữa trong thức tế, thì ta fân ra 3 nhóm như mình đã gợi í trên.
[Số tiền] là 1 TextBox nhập chuỗi số
Tất nhiên còn vài nút lệnh nữa, như nút [Lưu], [Sửa] hay [Xóa],. . .
(Hai nút sau sau này ta bàn tiếp nếu cần
& có thể ta thêm 1 ListBox để xem lại những gì đã nhập)

Còn như cách của bạn thì nên lấy 1 trang tính làm SheetForm để nhập liệu thì hơn.

Những mong tiếp tục được trau đổi cùng bạn!

 

[be_09]

Nhất trí với giải pháp của bác (ChanhTQ).

 

[Excel365]

Theo mình Form của bạn thiết kế là fức tạp & rườm rà quá!
Để nhập vố 'Data' thì hiện 'Data' chỉ có 4 trường, ta cũng chỉ nên dựng 1 form có 4 Control thôi; (Cùng lắm là 5, đó là loại diễn giải (Trích, Chi & Khác))
[Ngày tháng] ta nên làm 1 ComboBox để chọn 1 trong các ngày từ ngày thứ 10 trước ngày hiện hành (NHH) & ngày thứ 5 sau NHH;
[Đơn vị] Cũng là 1 ComboBox chọn từ 3 đơn vị của bạn;
[Diễn giải] cũng là ComboBox chọn từ các diễn giải; Nếu là rất nhiều diễn giải có thêm nữa trong thức tế, thì ta fân ra 3 nhóm như mình đã gợi í trên.
[Số tiền] là 1 TextBox nhập chuỗi số
Tất nhiên còn vài nút lệnh nữa, như nút [Lưu], [Sửa] hay [Xóa],. . .
(Hai nút sau sau này ta bàn tiếp nếu cần
& có thể ta thêm 1 ListBox để xem lại những gì đã nhập)

Còn như cách của bạn thì nên lấy 1 trang tính làm SheetForm để nhập liệu thì hơn.

Những mong tiếp tục được trau đổi cùng bạn!

Vậy nhờ bạn giúp mình làm theo cách của bạn nhe
Trân trọng cám ơn

 

[SA_DQ]

& đây, xin mời!
. . . . . . . . . . .

 

[be_09]

& đây, xin mời!
. . . . . . . . . . .

Cũng tốn nhiều công sức với Form này, nhưng chủ Topic chạy mất tiêu rồi bác SA_DQ ơi, chỉ có anh em ta nhìn nhau cười trừ mà thôi.

 

[be_09]

& đây, xin mời!
. . . . . . . . . . .

Cũng tốn nhiều công sức với Form này, nhưng chủ Topic chạy mất tiêu rồi bác SA_DQ ơi, chỉ có anh em ta nhìn nhau cười trừ mà thôi.

 

[SA_DQ]

Cũng tốn nhiều công sức với Form này, nhưng chủ Topic chạy mất tiêu rồi bác SA_DQ ơi, chỉ có anh em ta nhìn nhau cười trừ mà thôi.

& cũng đã có thời gian để thêm thắt vài mòn đồ chơi cho rôm rã hơn!
(Sẽ tháo file bài trên, xin các bạn thông cảm!)

 

[Excel365]

Cũng tốn nhiều công sức với Form này, nhưng chủ Topic chạy mất tiêu rồi bác SA_DQ ơi, chỉ có anh em ta nhìn nhau cười trừ mà thôi.

Hôm qua em bận quá, không check được. Chứ không bỏ chạy đâu anh

 

[be_09]

.........Nhờ anh thiết kế giùm em Form để cập nhật dữ liệu như Sheet Data.........

Hôm qua em bận quá, không check được. Chứ không bỏ chạy đâu anh

Muốn cập nhật dữ liệu vào Sheet Data là sao???? Tôi không hiểu.

Vì cập nhật dữ liệu thì có nhiều nghĩa:

1/ Tìm đơn vị, chọn loại diễn giải nhập liệu (bác SA_DQ đã làm rồi).

2/ Tìm đơn vị, chọn loại diễn giải Load dữ liệu lên Form để sửa, xóa.

3/ Nến nêu ý kiến về Form của bác SA_DQ cái nào được, cái nào chưa được để bác ấy biết mà giúp làm thì sẽ phù hợp và hiệu quả hơn.

 

[Excel365]

Muốn cập nhật dữ liệu vào Sheet Data là sao???? Tôi không hiểu.

Vì cập nhật dữ liệu thì có nhiều nghĩa:

1/ Tìm đơn vị, chọn loại diễn giải nhập liệu (bác SA_DQ đã làm rồi).

2/ Tìm đơn vị, chọn loại diễn giải Load dữ liệu lên Form để sửa, xóa.

3/ Nến nêu ý kiến về Form của bác SA_DQ cái nào được, cái nào chưa được để bác ấy biết mà giúp làm thì sẽ phù hợp và hiệu quả hơn.

Em sẽ test và hồi âm sau.

 

[ChanhTQ@]

Rãnh rỗi làm thêm bảng số liệu báo cáo tháng; Xin gởi lên để bạn nào cần thì tham khảo.

 

[Excel365]

Rãnh rỗi làm thêm bảng số liệu báo cáo tháng; Xin gởi lên để bạn nào cần thì tham khảo.

& cũng đã có thời gian để thêm thắt vài món đồ chơi cho rôm rã hơn!

Dạ đúng ý em rồi. Cám ơn tất cả các anh, chị rất nhiều.
Ban đầu em chỉ nhờ các anh chị giúp em form cập nhật sô liệu, không ngờ lại được khuyến mãi thêm các tiêu chí Tìm theo ngày, Báo cáo theo tháng, ...

Trân trọng!

 

[Excel365]

Rãnh rỗi làm thêm bảng số liệu báo cáo tháng; Xin gởi lên để bạn nào cần thì tham khảo.

Cho em hỏi, file của[INFO1] ChanhTQ@[/INFO1] khi em tải về thì load Form lên được. Nhưng khi bổ sung thêm sheet mới vào thì không thể mở form lên được. Mặc dù đã bấm Alt + F11 vào để load Form, nhưng vẫn không được.
Mong được giúp đỡ.
Trân trọng

 

[SA_DQ]

? Nhưng mình vẫn đưa thêm trang tính tổng hợp theo quí được đây nè!

 

[Excel365]

? Nhưng mình vẫn đưa thêm trang tính tổng hợp theo quí được đây nè!

Mình mở vẫn không được (mình đang sử dụng Office 2016, không biết có ánh hưởng gì không).

[video=youtube;f5NVrZe4bco]https://www.youtube.com/watch?v=f5NVrZe4bco&feature=youtu.be[/video]

 

[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!