shape color change

**M_ExceL** · 2019/07/22, 12:36

نوشته اصلی توسط 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

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

کد:

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

shape color change

پرسش shape color change

کامنت