Thay đổi màu các Shape khi giá trị Cell thay đổi theo điều kiện

[wuchengcai]

Mình có bản đồ 63 tỉnh thành VN, khi ấn A:B chọn TỈNH thì bản đồ của tỉnh đó sẽ tô màu đỏ.
Hiện tại mình muốn thực hiện như yêu cầu trong file, các bạn giúp mình với.

 

[saobekhonglac]

Mình có bản đồ 63 tỉnh thành VN, khi ấn A:B chọn TỈNH thì bản đồ của tỉnh đó sẽ tô màu đỏ.
Hiện tại mình muốn thực hiện như yêu cầu trong file, các bạn giúp mình với.

Cái này hay nè, cập nhật thêm diện tích, doanh số và mã diện thoại, biển số xe nữa là tiện lợi.

 

[vanaccex]

Bạn thử tham khảo bài viết này xem

https://www.giaiphapexcel.com/diendan/threads/target-address-l%E1%BA%A5y-gi%C3%A1-tr%E1%BB%8B-sheet-kh%C3%A1c.140534/

 

[excel_lv1.5]

Mình có bản đồ 63 tỉnh thành VN, khi ấn A:B chọn TỈNH thì bản đồ của tỉnh đó sẽ tô màu đỏ.
Hiện tại mình muốn thực hiện như yêu cầu trong file, các bạn giúp mình với.

Bạn chép code này vào sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
    Dim sh As Shape
    For Each sh In Me.Shapes
        sh.Fill.ForeColor.RGB = 16764057
    Next
    Me.Shapes(Target.Offset(, -1).Value).Fill.ForeColor.RGB = 255
End If
End Sub

 

[saobekhonglac]

Bạn chép code này vào sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
    Dim sh As Shape
    For Each sh In Me.Shapes
        sh.Fill.ForeColor.RGB = 16764057
    Next
    Me.Shapes(Target.Offset(, -1).Value).Fill.ForeColor.RGB = 255
End If
End Sub

Code trong file bị lỗi dòng này

Shapes(strShapeName).Fill.ForeColor.RGB = RGB(255, 0, 0)

 

[aroma07]

Bạn thay đổi target thành ô f2 rồi sau khi thay đôi g2 chịu khó click lên ô f2 một cái là được rồi

 

[excel_lv1.5]

Code trong file bị lỗi dòng này

Shapes(strShapeName).Fill.ForeColor.RGB = RGB(255, 0, 0)

Bỏ code cũ đi bạn.

 

[wuchengcai]

Bạn chép code này vào sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
    Dim sh As Shape
    For Each sh In Me.Shapes
        sh.Fill.ForeColor.RGB = 16764057
    Next
    Me.Shapes(Target.Offset(, -1).Value).Fill.ForeColor.RGB = 255
End If
End Sub

Code này mình thấy chạy ngon mà. Đâu có lỗi gì đâu.

 

[saobekhonglac]

Bỏ code cũ đi bạn.

Bỏ code cũ

Code này mình thấy chạy ngon mà. Đâu có lỗi gì đâu.

Báo lỗi này

 

[wuchengcai]

Cái này hay nè, cập nhật thêm diện tích, doanh số và mã diện thoại, biển số xe nữa là tiện lợi.

Mình đang làm tiện ích excel nhỏ như ý bạn nè. Trên Google Play có app "Tỉnh thành" (https://play.google.com/store/apps/details?id=com.vizion.city) xem ra cũng hay nhưng nội dung đơn giản quá, nếu bạn nào biết cách chỉnh code app này để chèn bổ sung nội dung như file của mình thì mình sẵn sàng chia sẻ dữ liệu file này, và share lên Google Play để cộng đồng được dùng.

Bài đã được tự động gộp: 28/3/19

Bỏ code cũ


Báo lỗi này
View attachment 214201

Mình kiểm tra rùi, bên mình 63 tỉnh thành chạy ok hết.

 

[hoangtuaotrang_hp_vn]

Mình đang làm tiện ích excel nhỏ như ý bạn nè. Trên Google Play có app "Tỉnh thành" (https://play.google.com/store/apps/details?id=com.vizion.city) xem ra cũng hay nhưng nội dung đơn giản quá, nếu bạn nào biết cách chỉnh code app này để chèn bổ sung nội dung như file của mình thì mình sẵn sàng chia sẻ dữ liệu file này, và share lên Google Play để cộng đồng được dùng.

Bài đã được tự động gộp: 28/3/19

bác chia sẻ file excel này được không ạ?

 

[excel_lv1.5]

Bỏ code cũ


Báo lỗi này
View attachment 214201

Tôi chạy bình thường.

 

[aroma07]

Mọi người cho mình hỏi làm sao để có được hình bản đồ Việt Nam như trong file excel như trên vậy. Cảm ơn!

 

[wuchengcai]

Mọi người cho mình hỏi làm sao để có được hình bản đồ Việt Nam như trong file excel như trên vậy. Cảm ơn!

Vào đây nè bạn: https://yourfreetemplates.com/

 

[aroma07]

Vào đây nè bạn: https://yourfreetemplates.com/

Cảm ơn bạn

 

[leonguyenz]

Bản đồ Việt Nam, vui lòng add thêm Trường Sa và Hoàng Sa vào nữa nha các bạn.

 

[saobekhonglac]

Đã cập nhật thêm diện tích, dân số, mã vùng điện thoại, biển số xe và các quận/huyện, phường/xã. Nhưng không hiểu sao chỗ chọn danh sách lại bị lỗi font, tìm hoài không ra (J1-->J3).