پرسش shape color change

[mehranmohajeri]

با عرض سلام

بنده می خوام رنگ مقدار داخل یک تکست یا شیپ بعد از آپدیت شدن دیتا تو سلول مرجع تغییر کنه به عنوان مثال می خوام رنگ فونت عدد داخل تکست وقتی کوچکتر از صفر شد به رنگ قرمز در بیاد. می دونم فقط از طریق کد نویسی میشه اینکار رو انجام داد منم یه کد نوشتم ولی به درستی کار نمیکنه. در واقع این فرمول رنگ تکست رو عوض میکنه نه رنگ فونت رو



rivate Sub Worksheet_Change(ByVal Target As Range)

If Range("D6").Value < 0 Then
ActiveSheet.Shapes("TextBox 10").Fill.ForeColor.RGB = vbRed
ElseIf Range("D6").Value >= 0 Then
ActiveSheet.Shapes("TextBox 10").Fill.ForeColor.RGB = vbWhite

End If

End Sub

[M_ExceL]

با عرض سلام

بنده می خوام رنگ مقدار داخل یک تکست یا شیپ بعد از آپدیت شدن دیتا تو سلول مرجع تغییر کنه به عنوان مثال می خوام رنگ فونت عدد داخل تکست وقتی کوچکتر از صفر شد به رنگ قرمز در بیاد. می دونم فقط از طریق کد نویسی میشه اینکار رو انجام داد منم یه کد نوشتم ولی به درستی کار نمیکنه. در واقع این فرمول رنگ تکست رو عوض میکنه نه رنگ فونت رو



rivate Sub Worksheet_Change(ByVal Target As Range)

If Range("D6").Value < 0 Then
ActiveSheet.Shapes("TextBox 10").Fill.ForeColor.RGB = vbRed
ElseIf Range("D6").Value >= 0 Then
ActiveSheet.Shapes("TextBox 10").Fill.ForeColor.RGB = vbWhite

End If

End Sub

سلام،
کد زیر رو تست بفرمایید :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D6").Value < 0 Then
    ActiveSheet.Shapes("TextBox 10").Select
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
    Target.Select
ElseIf Range("D6").Value >= 0 Then
    ActiveSheet.Shapes("TextBox 10").Select
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .ForeColor.RGB = RGB(255, 255, 255)
    End With
    Target.Select
End If
End Sub