Tô màu ô theo thời gian (1 người xem)

[hungdiep85]

Chào các thầy


Sheet 1 cột A2 đến cột A50 là mã màu theo số
Sheet 1 cột D2 đến cột D701 là thời gian bắt đầu của công việc
Sheet 1 cột E2 đến cột E701 là thời gian Kết Thúc của công việc
Sheet 1 cột F2 đến cột F701 là mã màu của công việc


Sheet 2 D1 đến NV1 là ngày & thời gian của 1 tuần(1 ô là nữa giờ)


Nếu sheet 1 cột D2 có thời gian bắt đầu và cột E2 có thời gian Kết Thúc và cột F2 có số mã màu thì sẽ tô màu theo thời gian bắt đầu cho đến thời gian Kết Thúc theo số mã màu qua sheet 2 tương ứng với thời gian đó




Cảm ơn các Thầy nhiều........

 

[thaoltbds]

thanks bạn nhiều nhé, mình đang tìm kiếm nó

 

[hungdiep85]

thanks bạn nhiều nhé, mình đang tìm kiếm nó

Umh nhưng cũng phải hi vọng các Thầy giúp hihihi...

 

[SA_DQ]

Xem thử file & cho í kiến để chỉnh sửa

 

[hungdiep85]

Thầy ơi
Đúng rùi đó nhưng thòi gian chưa được
Thầy coi giúp sheet 1 23/01 03:30 AM > 23/01 06:30 AM nhưng ở sheet 2 hiển thị 23/01 03:00 AM > 23/01 05:00 AM màu vàng ,


em cảm ơn Thầy nhiều........

 

[SA_DQ]

Đúng là thiếu 1 ô đầu; Bạn sửa câu lệnh dài nhất thành như sau

[thongBao] Cells(3, sRng.Column).Offset(Sh.Cells(Cls.Row, "B") _
.Value, Col - 2).Resize(, 1 + Resiz - Col).Interior.ColorIndex = Cls.Offset(, 2).Value

[/thongBao]

 

[hungdiep85]

[thongBao] Cells(3, sRng.Column).Offset(Sh.Cells(Cls.Row, "B") _
.Value, Col - 2).Resize(, 1 + Resiz - Col).Interior.ColorIndex = Cls.Offset(, 2).Value

[/thongBao]

Thầy ơi...............


đúng là ngày 21 thì ok
nhưng ngày 22 chở đi vẫn thiếu 1 Giờ thầy ơi........


cảm ơn Thầy

 

[SA_DQ]

Cũng 1 fần tại bạn! Múi giờ đầu tiên trong ngày sẽ từ 12:00, chứ không thể 12:30

[ThongBao]
đúng là ngày 21 thì ok
nhưng ngày 22 trở đi vẫn thiếu 1 Giờ thầy ơi........[/ThongBao]

Bạn xem trong file, thấy được thì mình sẽ gỡ bỏ file bài trên.

Biếu kèm theo 1 macro để nhập số trị vô cột [F] thì màu nền tương ứng được tô.

 

[ginkgo36]

Em cũng có 1 vấn đề về tô màu mong mọi người giúp đỡ:
Truyền vào 1 range và kiểm tra trong range đó như sau:
Nếu những cell có chữ AA sẽ tô màu xanh, BB tô màu đỏ, CCC tô màu tím, các cell còn lại mình tô màu vàng.
Mọi người coi file đính kèm giùm em. Thanks cả nhà

 

[Quang_Hải]

Em cũng có 1 vấn đề về tô màu mong mọi người giúp đỡ:
Truyền vào 1 range và kiểm tra trong range đó như sau:
Nếu những cell có chữ AA sẽ tô màu xanh, BB tô màu đỏ, CCC tô màu tím, các cell còn lại mình tô màu vàng.
Mọi người coi file đính kèm giùm em. Thanks cả nhà

Bạn thử thế này, giao trước là không đổi ý rồi đưa dữ liệu thật lên nhá. Tập tính tự xử nha.

Sub tomau()
Dim cell
For Each cell In ActiveSheet.UsedRange
   If cell <> "" Then
      If cell.Value = "AA" Then
         cell.Interior.ColorIndex = 5
      ElseIf cell.Value = "BB" Then
         cell.Interior.ColorIndex = 3
      ElseIf cell.Value = "CCC" Then
         cell.Interior.ColorIndex = 7
      Else
         cell.Interior.ColorIndex = 6
      End If
   End If
Next
End Sub

 

[ginkgo36]

Cám ơn anh, nhưng nếu e chỉ muốn tô màu cho 1 hàng đầu tiên thôi. Khi e chạy hàm thì những hàng bên dưới tất cả được áp màu. A giúp em . Thanks anh

Bạn thử thế này, giao trước là không đổi ý rồi đưa dữ liệu thật lên nhá. Tập tính tự xử nha.

Sub tomau()
Dim cell
For Each cell In ActiveSheet.UsedRange
   If cell <> "" Then
      If cell.Value = "AA" Then
         cell.Interior.ColorIndex = 5
      ElseIf cell.Value = "BB" Then
         cell.Interior.ColorIndex = 3
      ElseIf cell.Value = "CCC" Then
         cell.Interior.ColorIndex = 7
      Else
         cell.Interior.ColorIndex = 6
      End If
   End If
Next
End Sub

 

[hungdiep85]

[ThongBao]
đúng là ngày 21 thì ok
nhưng ngày 22 trở đi vẫn thiếu 1 Giờ thầy ơi........[/ThongBao]

Bạn xem trong file, thấy được thì mình sẽ gỡ bỏ file bài trên.

Biếu kèm theo 1 macro để nhập số trị vô cột [F] thì màu nền tương ứng được tô.

Thầy ơi ...sao em trang trí lại file không biết làm trúng chổ nào giờ nó không chạy được rùi , số cột em sài là tới "NW" ,

cảm ơn Thầy nhiều nhiều........

 

[ChanhTQ@]

Mình làm thế này thì code chạy bình thường nè

Thêm 7 cột đầu vô trang tính Sh1 của mình;
Chép các cột chứa dữ liệu của trang tính Sh1 của bạn sang [A1]...[F65500]
Chạy macro; Macro vẫn tô màu bình thường;
& điều quan trong là cột cuối cùng được tô màu là [iS] (dòng 20 như bạn biết)

Bạn thử theo qui trình của mình & tự rút ra những điều cần thiết, nha.

Chúc vui!

 

[ginkgo36]

Đã làm được, thanks a nhiều

 

[ginkgo36]

Sub tomau()
Dim cell
For Each cell In Range("A1:QL1")
If cell <> "" Then
ElseIf cell.Value.Font.Bold = True Then

' Selection.Font.Bold = True
' Selection.AutoFilter
' Selection.Columns.AutoFit
' ActiveWindow.FreezePanes = True Then


'
ElseIf cell.Value = "AA" Then
cell.Interior.Color = RGB(0, 176, 80)
ElseIf cell.Value = "BB" Then
cell.Interior.Color = RGB(0, 176, 80)
End if
end sub

Mọi người sửa giùm em code này với, em muốn sau ngay khi kiểm tra ( If cell <> "" Then )
thì sẽ tô đậm các chữ, autoFilter, AutoFitcolumns và freeze Top Row. sau đó với kiểm tra các giá trị có phải AA. BB hay không?
Em mò mà chưa ra.
Thanks cả nhà