Giúp đỡ vẽ đường thẳng tự động (1 người xem)

[viehoai]

Xin các anh chị giúp cách vẽ đường thẳng theo số liệu cho trước. Khi số liệu thay đổi thì kích thước thay đổi theo như mô tả trong file. Xin chân thành cảm ơn các anh chị.

 

[ndu96081631]

Xin các anh chị giúp cách vẽ đường thẳng theo số liệu cho trước. Khi số liệu thay đổi thì kích thước thay đổi theo như mô tả trong file. Xin chân thành cảm ơn các anh chị.

Vầy được không bạn
Xem file nhé

 

[viehoai]

Vầy được không bạn
Xem file nhé

Em cảm ơn anh nhiều. Xin Anh hướng dẫn cách làm cho em với. Hơn nữa nhập số liệu lẻ và đường thẳng đậm hơn được không ạ. Chúc anh luôn khỏe, hạnh phúc.

 

[dat_butmuc]

Xin các anh chị giúp cách vẽ đường thẳng theo số liệu cho trước. Khi số liệu thay đổi thì kích thước thay đổi theo như mô tả trong file. Xin chân thành cảm ơn các anh chị.

Xin hỏi, bạn muốn vẽ như vậy để theo dõi dự án à?
- Nếu làm dự án thì nên dùng: MS Project trong bộ Office
- Còn nếu vẽ bình thường thì vào chart mà vẽ (như file đính kèm), đảm bảo không thay đổi "kích thước" - không tính tiền !)
- Riêng của Bác Ndu thì quá hay !

 

[ndu96081631]

Em cảm ơn anh nhiều. Xin Anh hướng dẫn cách làm cho em với. Hơn nữa nhập số liệu lẻ và đường thẳng đậm hơn được không ạ. Chúc anh luôn khỏe, hạnh phúc.

Cách của tôi là dùng hàm REPT để nhân bản ký tự "__" ---> Ký tự này bạn tìm trong mục Insert\Symbol (xem công thức tại cell C3 và C4)
Nếu số bạn nhập là số lẻ, tôi nghĩ hàm này không đáp ứng được rồi ---> Bạn nên đưa file thật lên đây xem để tìm cách khác nhé

 

[thanh_tks]

Thêm một cách nữa: dùng conditionnal forrmatting.

 

[viehoai]

Thêm một cách nữa: dùng conditionnal forrmatting.

Xin cảm ơn anh. Xin anh hướng dẫn cách làm. Cách làm anh ndu tuyệt vời, tuy nhiên vẫn chưa hoàn thiện về nhập số lẽ và độ chính xác vẽ không cao nhất là khi các số liệu chênh lệch đáng kể. Cách làm của anh có độ chính xác nhưng vẫn chưa kể đến số liệu lẽ, nhờ anh khắc phục. Hơn nữa nhập số 3 thì sao lại vẽ 1 ô thôi, nhập số 1 lại không có, xin anh giúp đỡ tiếp nhé. Xin cảm ơn anh nhiều.

 

[ndu96081631]

Xin cảm ơn anh. Xin anh hướng dẫn cách làm. Cách làm anh ndu tuyệt vời, tuy nhiên vẫn chưa hoàn thiện về nhập số lẽ và độ chính xác vẽ không cao nhất là khi các số liệu chênh lệch đáng kể. Cách làm của anh có độ chính xác nhưng vẫn chưa kể đến số liệu lẽ, nhờ anh khắc phục. Hơn nữa nhập số 3 thì sao lại vẽ 1 ô thôi, nhập số 1 lại không có, xin anh giúp đỡ tiếp nhé. Xin cảm ơn anh nhiều.

Bạn vui lòng cho biết số lẻ mà bạn nói là LẺ ĐẾN BAO NHIÊU (bao nhiêu số thập phân)?
Sao bạn không cho file thật lên cho dể làm việc nhỉ?

 

[sealand]

Mình dùng công thức của Ndu bổ xung hệ số nhân , số lẻ là hệ số nhân tuỳ bạn định.Bạn xem thử (Theo mình bạn dùng mã ký tự 127,141 là đẹp nhất)

 

[viehoai]

Bạn vui lòng cho biết số lẻ mà bạn nói là LẺ ĐẾN BAO NHIÊU (bao nhiêu số thập phân)?
Sao bạn không cho file thật lên cho dể làm việc nhỉ?

Dạ chỉ cần một số thập phân là được. File cũng giống như em đã đưa trên thôi, nhưng chỉ khắc phục khi nhập số lẽ (ví dụ khi em nhập số 3,5 thì vẽ đoạn thẳng gồm 3,5 ô ngang như em đã minh hoạ như file ở trên. Cảm ơn anh nhé.

 

[ndu96081631]

Dạ chỉ cần một số thập phân là được. File cũng giống như em đã đưa trên thôi, nhưng chỉ khắc phục khi nhập số lẽ (ví dụ khi em nhập số 3,5 thì vẽ đoạn thẳng gồm 3,5 ô ngang như em đã minh hoạ như file ở trên. Cảm ơn anh nhé.

Thì giống như anh Sealand đưa lên đấy: Nhân thêm hệ số 10 là xong!
Bạn xem file này nhé

 

[hoangdanh282vn]

Xin các anh chị giúp cách vẽ đường thẳng theo số liệu cho trước. Khi số liệu thay đổi thì kích thước thay đổi theo như mô tả trong file. Xin chân thành cảm ơn các anh chị.

Bạn dùng thử cái Line trong sheet nha.

Sub worksheet_change(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
With target
If .Column = 1 And IsNumeric(.Value) And .Value >= 0 Then Shapes(.Row).Width = target * 100
End With
Application.ScreenUpdating = True
End Sub

 

[Trần Văn Bình]

Hỏi cách vẽ nằm trong cell

Bạn dùng thử cái Line trong sheet nha.

Sub worksheet_change(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
With target
If .Column = 1 And IsNumeric(.Value) And .Value >= 0 Then Shapes(.Row).Width = target * 100
End With
Application.ScreenUpdating = True
End Sub

Bạn cho biết nếu muốn vẽ đường thẳng đó nằm trong cell thì làm thế nào
ví dụ tại a1 nhập 1 thì đường thảng đó nằm trọn trong cột B1
tại A2 nhập 3 thì đường thảng đó nằm trọn trong cột B2 - C2 ......
Vậy làm cách nào ?

 

[hoangdanh282vn]

Bạn thử code này xem sao :

Sub worksheet_change(ByVal target As Range)
Application.EnableEvents = False
On Error Resume Next
With target
    If .Column = 1 And IsNumeric(.Value) And .Value >= 0 Then
        target.Resize(, 255).ClearFormats
        With target.Offset(, 1).Resize(, target).Borders(xlEdgeBottom)
            .Weight = xlThick
            .ColorIndex = target.Row Mod 56
        End With
    End If
End With
Application.EnableEvents = True
End Sub

 

[raisoldier]

Bạn Hoàng Danh ơi, mình thử dùng file của bạn, mình có chỗ này muốn hỏi
- Bạn có thể thêm số thập phân được không, ví dụ 6 thì nó hiểu, còn 2.5 thì nó không hiểu, nó vẽ thành 3 luôn.
- Còn nếu không, bạn có thể chỉnh giúp mình ví dụ nhập 1 thì nó sẽ 2 ô thay vì 1 ô được không
Mình k biết nhiều, mong bạn làm giúp.
Cảm ơn bạn

 

[raisoldier]

Nếu như tiến độ không bắt đầu như nhau, thì phải làm thế nào???