Xin giúp đỡ, bảng chấm công trong bệnh viện (2 người xem)

[thienthanut]

tôi có 3 bảng chấm công là chấm công thời gian, chấm công trực, chấm công độc hại.
bảng chấm công độc hại được tổng hợp từ bảng chấm công trực và bảng chấm công thời gian
tôi muốn khi bảng chấm công trực và công thời gian được tổng hợp thì bảng chấm công độc hại sẽ tự tổng hợp kết quả từ hai bảng trên, tôi không biết làm cái nè sao nữa mong mọi người giúp đỡ tôi bằng cách nào cũng được công thức hoặc VBA...hix
tôi có gửi kèm theo file trong topic nè mọi người xem giúp có ai có cách gì giúp đỡ tôi với
tôi xin chân thành cảm ơn

 

[SA_DQ]

Bạn kiểm theo file

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

[thienthanut]

bạn SA_DQ xin cho mình hỏi thêm 1 chút, còn điều kiện để điền là (-) hoặc là (0) nữa

 

[SA_DQ]

[thongbao]bạn xin cho mình hỏi thêm 1 chút, còn điều kiện để điền là (-) hoặc là (0) nữa [/Thongbao]

Chưa hiểu í bạn cho lắm;

Vấn đề bạn iêu cầu gồm:

Bảng chấm công độc hại (bí chỗ nè hok biết làm nên hỏi mọi người)
Tôi tổng hợp độc hại dựa trên bảng chấm công thời gian và chấm công trực với các điều kiện
Đối với chấm công thời gian các điều kiện như bảng điều kiện1 bên trên
Đối với chấm công trực thì cứ trực buổi nào thì thêm dấu + vào bảng chấm độc hại

Tôi muốn khi bảng chấm công thời gian và bảng chấm công trực (Chỉ có nhân viên A,B,C) được điền các giá trị thì bảng chấm độc hại cũng sẽ được điền các giá trị tương ứng ở các ô tượng ứng trong bảng
Những trường hợp trực và công thời gian trùng nhau thì để là dấu +
Nhưng tôi không biết làm sao để cả 2 bảng đó tổng hợp theo điều kiện để ra kết quả trong bảng chấm công độc hai
Mong mọi người giúp đỡ tôi, xin cảm ơn.

Hay là bạn muốn chép thêm từ BCC thời gian các trị - & 0 sang DocHai(?)

 

[SA_DQ]

Không đủ kiên nhẫn chờ bạn, nên làm thí

Có chi làm lại!
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\//\\\\\\\\\\\\\\\,

 

[thienthanut]

[thongbao]bạn xin cho mình hỏi thêm 1 chút, còn điều kiện để điền là (-) hoặc là (0) nữa [/thongbao]

Chưa hiểu í bạn cho lắm;

Vấn đề bạn iêu cầu gồm:


Hay là bạn muốn chép thêm từ BCC thời gian các trị - & 0 sang DocHai(?)

mình muốn thêm giá trị 0 và - theo đk từ bảng cham cong thoi gian vào bảng độc hại, còn bảng trực thì lúc nào cũng điền là +, khi mà bảng trực và bảng thời gian trùng nhau thì điền là +....cảm ơn ban HYen17

 

[thienthanut]

ban SA_DQ ơi vậy giờ tôi muốn thêm 2 đối tượng ở bảng công thời gian là (-CT = +) và (CT- = -) với

 

[SA_DQ]

Sau khi ĐT mất, mình fải về trấn an ông già, Bạn thông cảm vì sự chậm trễ này nha!

ban SA_DQ ơi vậy giờ tôi muốn thêm 2 đối tượng ở bảng công thời gian là (-CT = +) và (CT- = -) với

Bạn copy toàn bộ macro này & chép đè lên cái cũ;
Những mong là không fải đưa file lên!

Option Explicit
Sub DocHai()
 Dim Sh As Worksheet, Cls As Range, Rg0 As Range, Cll As Range, Sht As Worksheet
 Const ThGn As String = "+ ;-P -H DB Nb -NbNb--CT@@@@@@" & "P- H- CT-"     '<=|'
                        '123456789012345678901234567890"   "12345678901'
 Const Truc As String = "T  C  L  Te "
 Dim VTr As Byte, Tmr As Double
 
 Tmr = Timer():                                 Sheets("DocHai").Select
 Set Sh = ThisWorkbook.Worksheets("ThoiGian")
 Set Sht = ThisWorkbook.Worksheets("Truc")
 Application.ScreenUpdating = False
 For Each Cls In Range([B11], [B11].End(xlDown))
    For Each Cll In Range(Cls.Offset(, 2), Cls.Offset(, 32))
        With Sh.Cells(Cll.Row, Cll.Column)
            If .Value <> "" Then
                VTr = InStr(ThGn, .Value)
                If VTr And (VTr - 1) Mod 3 = 0 Then
                    Cll.Value = IIf(VTr < 30, "+", "-")
                Else
                    Cll.Value = "0"
                End If
            End If
        End With
        With Sht.Cells(Cll.Row, Cll.Column)
            If .Value <> "" Then
                VTr = InStr(Truc, .Value)
                If VTr And (VTr - 1) Mod 3 = 0 Then
                    If Cll.Value = "+" Then
                        Cll.Interior.ColorIndex = 38
                    Else
                        Cll.Value = "+"
                        Cll.Interior.ColorIndex = 39
                    End If
                End If
            End If
        End With
    Next Cll
 Next Cls
 Application.ScreenUpdating = True
 [Am1].Value = Timer() - Tmr
End Sub

Mình cũng fải tự khen mình là đã trù liệu vấn đề này!

 

[SA_DQ]

To: Thienthanut

trc đây bạn có giúp đỡ mình làm bài này
hôm nay mình lại mạo muội xin nhờ bạn giúp mình chut nữa đc ko!
chả là thế này, hiện nay ngoài 2 bảng công thời gian và công trực, mình còn thêm 1 bảng công làm thêm giờ với điều kiện (nếu làm thêm từ 3tiếng trở lên thì được hưởng độc hại biểu diễn bằng dấu + trong bảng độc hại còn dưới 3 tiếng thì biểu diễn bằng 0 trong bảng độc hai)
nhưng vấn đề là khi 1 người làm cả ngày hôm đó và làm thêm 2 tiếng của ngày đó thì hưởng độc hai là + nhưng mình không thể làm được mà đk là 2 tiếng thì nó chuyển thành 0 hết.
bạn giúp mình với nhé
cảm ơn bạn rất nhiều!

Bạn đưa file lên đây đi nha!

 

[thienthanut]

Bạn đưa file lên đây đi nha!

xin cảm ơn bạn SA_DQ mình xin gửi lên file của mình mong bạn giúp đỡ mình, mình xin cảm ơn

 

[ChanhTQ@]

Bạn xem trong file đính kèm

 

[thienthanut]

cảm ơn bạn chanhTQ nhưng mà trong này chỉ hiển thị các giá trị (+) trong bảng độc hại còn các giá trị (0) thì ko hiển thị đc ah
bạn giúp mình với

 

[ChanhTQ@]

cảm ơn bạn chanhTQ nhưng mà trong này chỉ hiển thị các giá trị (+) trong bảng độc hại còn các giá trị (0) thì ko hiển thị đc ah
bạn giúp mình với

File này mình vẫn mở & có đủ các số 0 trong 1 số dòng của trang 'độc hại'
Cụ thể dòng 17 của chàng Đỗ Văn Chương có 7 con zerô mà.

Bạn vô menu Tool -> Option xem sao? (E2003 nha)

 

[thienthanut]

File này mình vẫn mở & có đủ các số 0 trong 1 số dòng của trang 'độc hại'
Cụ thể dòng 17 của chàng Đỗ Văn Chương có 7 con zerô mà.

Bạn vô menu Tool -> Option xem sao? (E2003 nha)

đấy chỉ là các đối tượng khi có cùng giá trị là 0 trong bảng chấm công thời gian thôi, chứ còn nếu ko trùng, vd như làm thêm ngày T7 và CN thì ko trùng với công thời gian, những đối tượng có thời gian làm nhỏ hơn 3 thì ko hiện giá trị gì hết đâu, bạn xem lại giúp mình với