Tạo liên kết giữa symbol và giá trị của một ô

[mangat060083]

Hi, chào cả nhà

Nhờ cả nhà giúp em chỗ này với ak.
Em có một hàng 11 điểm (từ 0 đến 10), em muốn nếu mình nhập một số bất kỳ vào ô màu vàng, thì vòng tròn màu đỏ sẽ xuất hiện ở điểm tương ứng.
Giống như ảnh đính kèm.
Nhờ cả nhà hướng dẫn giúp em thực hiện với ak.
Em cảm ơn nhiều.

 

[ongke0711]

Cái này chắc phải ngồi chịu khó vẽ 11 cái shape tròn rồi code di chuyển shape thôi.

Sub Test()
    
    Dim oShape As Shape, oShape1 As Shape
    
    Set oShape = ActiveSheet.Shapes("circle")
    Set oShape1 = ActiveSheet.Shapes("Oval 1")
    
    oShape.Top = oShape1.Top - 5
    oShape.Left = oShape1.Left - 5
    
End Sub

 

[htin1997]

Dùng chart sẽ nhanh hơn và không cần code

 

[mangat060083]

Cái này chắc phải ngồi chịu khó vẽ 11 cái shape tròn rồi code di chuyển shape thôi.

Sub Test()
   
    Dim oShape As Shape, oShape1 As Shape
   
    Set oShape = ActiveSheet.Shapes("circle")
    Set oShape1 = ActiveSheet.Shapes("Oval 1")
   
    oShape.Top = oShape1.Top - 5
    oShape.Left = oShape1.Left - 5
   
End Sub

hi, Cảm ơn anh nhiều ak
Anh có thể chỉ giúp em với, trong sheet excel này em có nhiều hàng giống như vậy, mỗi hàng sẽ có những giá trị ngẫu nhiên khác nhau (từ 0 đến 10). Thì đoạn code này có hiểu được của từng hàng không ak.
Hay mình chỉ dùng được cho một hàng này thôi anh.

Bài đã được tự động gộp: 6/6/24

Dùng chart sẽ nhanh hơn và không cần code

hi, nhờ bạn chỉ giúp cho mình rõ hơn với

 

[ongke0711]

hi, Cảm ơn anh nhiều ak
Anh có thể chỉ giúp em với, trong sheet excel này em có nhiều hàng giống như vậy, mỗi hàng sẽ có những giá trị ngẫu nhiên khác nhau (từ 0 đến 10). Thì đoạn code này có hiểu được của từng hàng không ak.
Hay mình chỉ dùng được cho một hàng này thôi anh.
View attachment 301448

Bài đã được tự động gộp: 6/6/24

hi, nhờ bạn chỉ giúp cho mình rõ hơn với

Bạn chọn giải pháp vẽ chart của bạn @htin1997 đề xuất đi, tôi không rành vụ chart này , chứ code thì nó chắc là rắc rối lắm à.

 

[mangat060083]

Bạn chọn giải pháp vẽ chart của bạn @htin1997 đề xuất đi, tôi không rành vụ chart này , chứ code thì nó chắc là rắc rối lắm à.

hi, cảm ơn bạn,
mình vừa thử vẽ chart, số 0 thì mình làm được rồi, nhưng số 1, 2, 3....,10 nó nhảy lung tung quá, mình chưa kiểm soát được
Chắc nghiên cứu thêm.
Cảm ơn bạn nhiều

 

[Mr.hieudoanxd]

Hi, chào cả nhà

Nhờ cả nhà giúp em chỗ này với ak.
Em có một hàng 11 điểm (từ 0 đến 10), em muốn nếu mình nhập một số bất kỳ vào ô màu vàng, thì vòng tròn màu đỏ sẽ xuất hiện ở điểm tương ứng.
Giống như ảnh đính kèm.
Nhờ cả nhà hướng dẫn giúp em thực hiện với ak.
Em cảm ơn nhiều.


View attachment 301444

Bác gửi thử file lên, thử xem nào, lười tạo dữ liệu quá

 

[mangat060083]

dạ vâng, nhờ bác chỉ giúp mình với.
mình làm dạng chart rồi, nhưng chưa mượt lắm và vẫn còn cái viền của chart nó che ô màu vàng (ô nhập dữ liệu).
Không biết có thể để ở chế độ nào để đường viền của chart ẩn hẳn luôn ak

Bài đã được tự động gộp: 6/6/24

Bác gửi thử file lên, thử xem nào, lười tạo dữ liệu quá

dạ vâng, nhờ bác chỉ giúp mình với.
mình làm dạng chart rồi, nhưng chưa mượt lắm và vẫn còn cái viền của chart nó che ô màu vàng (ô nhập dữ liệu).
Không biết có thể để ở chế độ nào để đường viền của chart ẩn hẳn luôn ak

 

[Mr.hieudoanxd]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 And Target.Row = 12 Then
        With ActiveSheet.Shapes
            .Range(Array("So")).Left = .Range(Array("Shp")).Left + _
                                        .Range(Array("Shp")).Width * Range("M12") / 10 - _
                                        .Range(Array("So")).Width / 4 - _
                                        .Range(Array("So")).Width / 2 * Range("M12") / 10
        End With
    End If
End Sub

Bác để trong sheet nhé. Cá nhân em vẫn thấy giải pháp dùng chart của bác ở trên kia xịn xò hơn

Bài đã được tự động gộp: 6/6/24

À em tạo thêm 1 Shape đặt là "So" đổi tên Group kia thành "Shp" nữa nhé

 

[htin1997]

hi, nhờ bạn chỉ giúp cho mình rõ hơn với

Đây nha anh. Dùng chart line với marker.

 

[ongke0711]

Đây nha anh. Dùng chart line với marker.

Quá đẹp rồi . . . .

 

[mangat060083]

Dạ vâng, em cảm ơn các bác đã nhiệt tình giúp đỡ
Em đã làm theo kiểu chart như bác @htinn1997 chỉ. Bác ơn bác nhiều nhé.