Thay đổi màu cho hình vẽ trong Excel

[SusuTiny]

Dear Các Sư Phụ!
Em có hình ngôi sao 6 cạnh. Sẽ có 7 khu vực. Từng khu vực sẽ chọn màu theo bảng màu. Sau khi chọn xong nhấn nút "RUN" các khu sẽ được tô màu theo sự lựa chọn. Và Ô text box sẽ thay đổi chữ đang làm thành hoàn tất!



Em xin nhờ các sư phụ chỉ giúp

 

[SusuTiny]

Không có ai giúp mình ahhh

 

[HeSanbi]

Không có ai giúp mình ahhh

Giải Pháp Excel là một cộng đồng chung. Để mọi người giúp bạn tôi nghĩ bài đăng của bạn nên hướng đến mục đích chung. Mọi người đều có thể tìm và học hỏi. Bạn hãy đưa ra một mục đích hay ý nghĩa cụ thể cho bài trên xem sao

 

[giaiphap]

Dear Các Sư Phụ!
Em có hình ngôi sao 6 cạnh. Sẽ có 7 khu vực. Từng khu vực sẽ chọn màu theo bảng màu. Sau khi chọn xong nhấn nút "RUN" các khu sẽ được tô màu theo sự lựa chọn. Và Ô text box sẽ thay đổi chữ đang làm thành hoàn tất!

View attachment 206183

Em xin nhờ các sư phụ chỉ giúp

Bạn xem file, hên thì trúng nhé.

 

[batman1]

Chắc không ai nghĩ mình là sư phụ.

Lần sau cứ viết bình thường thôi: các bạn, anh chị, chú bác ... Đừng dùng sư phụ, tỉ, muội, đại ca, cao nhân, pờ rô, bờ hồ gì cả. Muốn chào thì chào tiếng Việt, vì có những người không biết ngoại ngữ như mình. Mà có biết thì người Việt chào nhau bằng tiếng Việt thôi. Tránh viết tắt và các kiểu "ahhh", vì thứ nhất là trong tiếng Việt không có từ như thế. Thứ nữa là ở bất cứ diễn đàn nào cũng có nhiều loại người ở các độ tuổi khác nhau. Không phải ai cũng ở thế hệ phây sờ búc hay chát chít như giới trẻ bây giờ.

Tôi chả phê bình bạn mà chỉ góp ý tốt cho bạn thôi. Để tránh "bị góp ý" nặng hơn về sau.


1. Click lần lượt vào tam giác 1 (click vào chỗ thích hợp để thấy "Isosceles Triangle 11" trong Name Box - bên cạnh thanh công thức), ..., lục giác 7 -> click Name Box -> trong Name Box đổi thành hinh1, ..., hinh6, hinh7

2. Phải chuột trên tên Sheet1 trên thanh sheet tabs ở cạnh dưới cửa sổ -> chọn View code -> dán code sau

Private Sub CommandButton1_Click()
Dim index As Long
    For index = 1 To 7
        Select Case Me.OLEObjects("ComboBox" & index).Object.Value
            Case "Red": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(255, 0, 0)
            Case "Green": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(0, 128, 0)
            Case "Yellow": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(255, 255, 0)
        End Select
    Next index
    With Me.Shapes("TextBox 18").TextFrame2.TextRange
        .Font.Name = "Times New Roman"
        .Characters.Text = "Ho" & ChrW(224) & "n t" & ChrW(7845) & "t"
    End With
End Sub

 

[SusuTiny]

Chắc không ai nghĩ mình là sư phụ.

Lần sau cứ viết bình thường thôi: các bạn, anh chị, chú bác ... Đừng dùng sư phụ, tỉ, muội, đại ca, cao nhân, pờ rô, bờ hồ gì cả. Muốn chào thì chào tiếng Việt, vì có những người không biết ngoại ngữ như mình. Mà có biết thì người Việt chào nhau bằng tiếng Việt thôi. Tránh viết tắt và các kiểu "ahhh", vì thứ nhất là trong tiếng Việt không có từ như thế. Thứ nữa là ở bất cứ diễn đàn nào cũng có nhiều loại người ở các độ tuổi khác nhau. Không phải ai cũng ở thế hệ phây sờ búc hay chát chít như giới trẻ bây giờ.

Tôi chả phê bình bạn mà chỉ góp ý tốt cho bạn thôi. Để tránh "bị góp ý" nặng hơn về sau.


1. Click lần lượt vào tam giác 1 (click vào chỗ thích hợp để thấy "Isosceles Triangle 11" trong Name Box - bên cạnh thanh công thức), ..., lục giác 7 -> click Name Box -> trong Name Box đổi thành hinh1, ..., hinh6, hinh7

2. Phải chuột trên tên Sheet1 trên thanh sheet tabs ở cạnh dưới cửa sổ -> chọn View code -> dán code sau

Private Sub CommandButton1_Click()
Dim index As Long
    For index = 1 To 7
        Select Case Me.OLEObjects("ComboBox" & index).Object.Value
            Case "Red": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(255, 0, 0)
            Case "Green": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(0, 128, 0)
            Case "Yellow": Me.Shapes("hinh" & index).Fill.ForeColor.RGB = RGB(255, 255, 0)
        End Select
    Next index
    With Me.Shapes("TextBox 18").TextFrame2.TextRange
        .Font.Name = "Times New Roman"
        .Characters.Text = "Ho" & ChrW(224) & "n t" & ChrW(7845) & "t"
    End With
End Sub

Thank bạn nhiều!

Bài đã được tự động gộp: 25/10/18

Bạn xem file, hên thì trúng nhé.

Cám ơn bạn nhiều!