Giúp ứng dụng excel trong việc cấp phát BHLĐ

[dqt_nt]

Gửi các anh chị file bài toán em nêu, mong các anh chị giúp đỡ.

 

[Cao Mạnh Sơn]

Gửi các anh chị file bài toán em nêu, mong các anh chị giúp đỡ.

Bạn dùng hàm index kết hợp với Match nhé.
gửi file cho bạn tham khảo

 

[dqt_nt]

Bạn sơn!!!
Giờ tôi muốn chuyển cái nút chọn tháng sang vị trí khác thì phải lầm thế nào???
ý tôi muốn là làm một cái biểu mẫu để in ra luôn:

Ví dụ :
TRANG BỊ BHLĐ CẤP CHO ĐƠN VỊ KCS ..... (DẤU ... LÀ Ô CHỌN ĐỂ IN RA LUÔN)

Sory, tôi cũng gà mờ excel lắm

 

[Cao Mạnh Sơn]

Bạn sơn!!!
Giờ tôi muốn chuyển cái nút chọn tháng sang vị trí khác thì phải lầm thế nào???
ý tôi muốn là làm một cái biểu mẫu để in ra luôn:

Ví dụ :
TRANG BỊ BHLĐ CẤP CHO ĐƠN VỊ KCS ..... (DẤU ... LÀ Ô CHỌN ĐỂ IN RA LUÔN)

Sory, tôi cũng gà mờ excel lắm

Vậy bạn cứ Cut và Paste là được

 

[dqt_nt]

Hix, bạn Sơn off rồi.
Bạn vui lòng giúp tôi cái này nhé, vì thật sự tôi đã nghiên cứu hàm của bạn mà không biết sử dụng. Đã copy công thức bạn đưa nhưng gắn vào nó không như ý.

 

[Cao Mạnh Sơn]

Hix, bạn Sơn off rồi.
Bạn vui lòng giúp tôi cái này nhé, vì thật sự tôi đã nghiên cứu hàm của bạn mà không biết sử dụng. Đã copy công thức bạn đưa nhưng gắn vào nó không như ý.

Trước hết bạn nên tạo mã số cho mỗi CBCNV,sẽ tránh việc trùng lập tên.
Tôi đưa ví dụ cách tạo mã số như file đính kèm không biết bạn đồng ý không.
Dữ liệu lập tạm cho bạn 1 Sheet QAL.sau này nếu có thêm chủng loại BHLĐ bạn cứ thêm Sheet đằng sau.Chú ý tên Sheet và tên loại BHLĐ trong Sheet Tổng phải giống nhau(Xem trong File sẽ hiểu).
Bạn tìm hiểu thêm cách đặt tên vùng dữ liệu áp dụng cho các tổ tiếp theo.
các tháng tiếp theo bạn có thể mở rộng thêm các cột về bên trái.giới hạn đến cột Z.
Các dòng trong mỗi Sheet giới hạn là 1000 dòng,Nếu muốn thêm hãy sửa lại vùng giới hạn trong Name STT.Không giới hạn số Sheet.
Bạn tham khảo và cho ý kiến nhé

 

[dqt_nt]

Trước hết bạn nên tạo mã số cho mỗi CBCNV,sẽ tránh việc trùng lập tên.
Tôi đưa ví dụ cách tạo mã số như file đính kèm không biết bạn đồng ý không.
Dữ liệu lập tạm cho bạn 1 Sheet QAL.sau này nếu có thêm chủng loại BHLĐ bạn cứ thêm Sheet đằng sau.Chú ý tên Sheet và tên loại BHLĐ trong Sheet Tổng phải giống nhau(Xem trong File sẽ hiểu).
Bạn tìm hiểu thêm cách đặt tên vùng dữ liệu áp dụng cho các tổ tiếp theo.
các tháng tiếp theo bạn có thể mở rộng thêm các cột về bên trái.giới hạn đến cột Z.
Các dòng trong mỗi Sheet giới hạn là 1000 dòng,Nếu muốn thêm hãy sửa lại vùng giới hạn trong Name STT.Không giới hạn số Sheet.
Bạn tham khảo và cho ý kiến nhé

Trước hết tôi xin cảm ơn sự nhiệt tình của bạn. Quả thật xem qua nó quá hoàn hảo hơn tôi tưởng. Tuy nhiên tôi chưa nghiên cứu kỹ. Muốn viết vài dòng cho bạn trước rồi làm hoàn thiện sau.
Có gì mong bạn giúp, hàng tháng tôi phải vật lộn với việc cấp phát này, giờ có cái này chắc chắn sẽ đỡ cho tôi hơn.
Thank bạn lần nữa.... chắc tôi còn phải làm phiền bạn

 

[Cao Mạnh Sơn]

Trước hết tôi xin cảm ơn sự nhiệt tình của bạn. Quả thật xem qua nó quá hoàn hảo hơn tôi tưởng. Tuy nhiên tôi chưa nghiên cứu kỹ. Muốn viết vài dòng cho bạn trước rồi làm hoàn thiện sau.
Có gì mong bạn giúp, hàng tháng tôi phải vật lộn với việc cấp phát này, giờ có cái này chắc chắn sẽ đỡ cho tôi hơn.
Thank bạn lần nữa.... chắc tôi còn phải làm phiền bạn

Sửa lại File một chút cho chính xác hơn.Tuy nhiên thưc tế công việc của bạn có thể yêu cầu không như tôi nghĩ nên có gì bạn cứ thông tin,giúp được tôi rất vui.

 

[dqt_nt]

Tôi lại làm phiền bạn đây!!!!
Có 2 vấn đề tôi gặp phải:
- Nếu tôi thêm 1 tổ mới vào sheet danh sach thì bên sheet tổng không nhận được tên.
- Nếu muốn thay hạn sử dụng thì tôi phải thay như thế nào: Ví dụ: Mũ cứng sau 12 tháng cấp mới, Kính 0 độ sau ba tháng cấp mới.
- Nếu ví dụ mình cấp cho họ kính O độ tháng 8 năm nay, thì làm thế nào để khi chọn tháng 1 (năm sau) nó lại hiện? (thời hạn 3 tháng)
- Mình gửi bạn file mình đã thêm và sửa đúng danh sách phân xưởng vỏ 1, mong bạn giúp khắc phục những vấn đề trên.
- Còn 6 phân xưởng như thế bạn ạ, nên mình muốn học hỏi luôn để hoàn thành những phân xưởng còn lại.
- Bạn giúp nha!!!! Thank bạn!!!

 

[Cao Mạnh Sơn]

- Nếu tôi thêm 1 tổ mới vào sheet danh sach thì bên sheet tổng không nhận được tên.
Bạn chọn insert/Name/difine tại khung Name in work book bạn nhập tên tổ(Lưu ý tên tổ đó phải trùng với mã số ở cột A Sheet danhsach.thư tôi đã làm lừ TV6,TV7...).Tại khung Referto ban nhập vùng chứa mã số và tên công nhân của tổ đó ,Add/OK
- Nếu muốn thay hạn sử dụng thì tôi phải thay như thế nào: Ví dụ: Mũ cứng sau 12 tháng cấp mới, Kính 0 độ sau ba tháng cấp mới.
IF(ISNA(MATCH(1,$C33,0)),"",IF(MOD(COLUMN()-MATCH(1,$C33,0)-2,6)=0,1,""))
Bạn thay hạn cấp tại vị trí số 6 tương ứng với thời hạn của bạn
- Nếu ví dụ mình cấp cho họ kính O độ tháng 8 năm nay, thì làm thế nào để khi chọn tháng 1 (năm sau) nó lại hiện? (thời hạn 3 tháng)
Bạn có thể nối tiếp các tháng của năm sau vào các cột tiếp theo rồi copy công thức
VD:T11,T12,T1/09,T2/09...
- Mình gửi bạn file mình đã thêm và sửa đúng danh sách phân xưởng vỏ 1, mong bạn giúp khắc phục những vấn đề trên.
Mình sẽ xem sau
- Còn 6 phân xưởng như thế bạn ạ, nên mình muốn học hỏi luôn để hoàn thành những phân xưởng còn lại.

 

[Cao Mạnh Sơn]

Tôi gửi file đã chỉnh theo ý bạn

 

[nguyen_0907]

Tôi rất muốn biết cách làm của bài này
Cao Mạnh Sơn có thể giúp được chứ?
Bạn chỉ từng bước thiết kế để tất cả mọi người cùng làm được và nhân rộng kiến thức ra bạn nhỉ?
Tôi đã tham khảo nhưng không hiểu các bước làm lắm.
Cảm ơn bạn về sự giúp đơn nhé!!!!!!!

 

[Cao Mạnh Sơn]

Tôi rất muốn biết cách làm của bài này
Cao Mạnh Sơn có thể giúp được chứ?
Bạn chỉ từng bước thiết kế để tất cả mọi người cùng làm được và nhân rộng kiến thức ra bạn nhỉ?
Tôi đã tham khảo nhưng không hiểu các bước làm lắm.
Cảm ơn bạn về sự giúp đơn nhé!!!!!!!

Bạn có thể đưa ra câu hỏi cụ thể, tôi không ngại trả lời bạn, còn chỉ ra tỉ mỉ cách tạo ra file này thì tôi chỉ làm giúp cho bạn dqt_nt thôi, khó có thể làm hài lòng bạn.

 

[SA_DQ]

Thêm 1 tham khảo cho bạn đây; théc méc chổ nào thì hỏi nha!

Tôi rất muốn biết cách làm của bài này Bạn C M Sơn có thể giúp được chứ?
Tôi đã tham khảo nhưng không hiểu các bước làm lắm.
!

Option Explicit
 Dim Sh As Worksheet, Rng As Range
 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim sRng As Range, Clls As Range, Cls As Range
 Dim MyAdd As String:                                          Dim eRw As Long
 
 Set Sh = Sheets("DSach")
 If Not Intersect(Target, [c3]) Is Nothing Then
   Sheets("Nhap").[b2].Value = [c3].Value
   Sh.[f73].Resize(Sh.[F200].End(xlUp).Row, 2).Copy Destination:=[B6]
   [d6].Resize(43, 9).Clear
 ElseIf Not Intersect(Target, [k3]) Is Nothing Then
   Sh.Columns("I:o").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.[R1:R2], _
      CopyToRange:=Sh.[s1].Resize(, 6), Unique:=False
   eRw = [B50].End(xlUp).Row:             [d6].Resize(eRw, 9).Clear
   Set Rng = Sh.[s1].Resize(Sh.[s1].CurrentRegion.Rows.Count)
   For Each Clls In [C6].Resize(eRw)
      Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            For Each Cls In [d4].Resize(, 13)
               If Cls.Value = sRng.Offset(, 2).Value Then
                  Cells(Clls.Row, Cls.Column).Value = sRng.Offset(, 4).Value
                  Exit For
               End If
            Next Cls
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Clls
 End If
End Sub