Nhờ các bạn/anh/chị giúp đoạn code vẽ đường tiến độ

[denell_tran]

Chào các anh/chị/các bạn,
Tôi xin nhờ mọi người giúp đỡ đoạn code để làm tiến độ, trước đây tôi cũng dùng ConditionFormat nhưng mà trông không đẹp và khá lằng nhằng.
Nay cóp nhặt được mấy đoạn code này, nhưng mà vì không chuyên sâu nên chạy chẳng được, mong mọi người giúp với ạ.
Ý muốn như thế này ạ. (Có file đính kèm).
Khi số liệu ở cột B và cột C thay đổi, thì code sẽ nhận biết để vẽ một đường biểu diễn tiến độ từ ngày bắt đầu đến ngày kết thúc bên cửa số hiển thị tiến độ.

Và nếu có thể thêm code để nếu có đường cũ, thì còn phải xóa đường cũ xong code sẽ vẽ đường mới ạ. (cái này nếu không được thì chấp nhận làm bằng tay - Xóa thủ công trước).

Xin mọi người giúp đỡ và chỉ bảo ạ.

 

[denell_tran]

Up lên để mọi người giúp với ạ.

 

[denell_tran]

Up lần nữa. Xin lỗi nếu làm phiền ai đó ạ.

 

[dhn46]

Bạn dùng code này nhé

Sub VeTienDo()
Dim RngTimeLine As Range
Dim RngSoLieu As Range
Dim sPointX As Long, ePointX As Long, PointY As Long
Dim ClsTL As Range, ClsSL As Range

Set RngTimeLine = [E7:Q8]
Set RngSoLieu = Range("B8:B" & Range("B65536").End(3).Row)
'Xoa Shape
ActiveSheet.DrawingObjects.Delete
For Each ClsSL In RngSoLieu
    For Each ClsTL In RngTimeLine
        If ClsSL.Value2 = ClsTL.Value2 Then
            sPointX = ClsTL.Left
            ePointX = ClsTL.Offset(, ClsSL.Offset(, 1) - ClsSL + 1).Left
            PointY = ClsSL.Top + (ClsSL.Offset(1, 0).Top - ClsSL.Top) / 2
            'Ve Tien do
            ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sPointX, PointY, ePointX, PointY).Select
            Selection.ShapeRange.Line.Style = msoLineThinThick
            Selection.ShapeRange.Line.Weight = 5
            Exit For
        End If
    Next
Next
End Sub

 

[denell_tran]

@dhn46: mình vừa chạy thử, code chay chuẩn và rất nhanh. Cám ơn bạn rất rất nhiều. Chúc bạn luôn thành công.

 

[PacificPR]

Trước em cũng nghịc cái này. Về sau chán nên chưa hoàn thiện được. Gửi bạn tham khảo

 

[denell_tran]

Trước em cũng nghịc cái này. Về sau chán nên chưa hoàn thiện được. Gửi bạn tham khảo

Cám ơn bạn rất nhiều, mình đang mở a nghiên cứu, chắc lâu lâu mới hiểu, có gì mình xin phép làm phiền tiếp nhé.

 

[PacificPR]

Cám ơn bạn rất nhiều, mình đang mở a nghiên cứu, chắc lâu lâu mới hiểu, có gì mình xin phép làm phiền tiếp nhé.

Em trả lời nhầm . Mà nó la lá giống như Bác đang làm vậy thôi

 

[TheThienChu]

Em trả lời nhầm . Mà nó la lá giống như Bác đang làm vậy thôi

Đọc bài này thấy thật êm tai, nghe như âm nhạc vậy