hỏi về cách vẽ hình tròn , vuông , tô màu và group 2 hình này lại với nhau của VBA !!

[cloudtifa]

em dùng 1 textbox và 1 button , em đã thữ dùng macro ghi lại và co được đoạn code này

Sub d()
'
' d Macro
' Macro recorded 06/09/2010 by Kha
'
 
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = False
    End With
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 50
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("H19").Select
    ActiveSheet.Shapes("Oval 1").Select
End Sub

có nghĩ là mình đánh giá trì từ 1 ~ n thì màu sẽ thay đổi ,

Ý đồ : em muốn đánh RED vào textbox thì nó sẽ ra màu đỏ , YELLOW thì ra màu vàng . thì cần phải thêm code gì nữa

với lại cho em hỏi là em dùng macro ghi Group 2 hình lại với nhau . nhưng khi chạy macro thì no' lại báo lỗi

. Em mới làm quen với VBA trong Excel , nên mong ae trong 4rum giúp đỡ ^^!!

tiện thể cho em xin tài liều về VBA trong excel từ căng bản đến nâng cao ạ . em cám ơn nhiều !!!

Em là người mới học nên câu hỏi hơi "ngớ ngẩn" mong các bac' chỉ giúp nhé, rất cảm ơn mọi người