فونت جواب فرمول

[hamed_85]

با سلام خدمت دوستان عزیز
میخواستم بپرسم چطور میشه فونت حاصل از جواب فرمولها رو شخصی سازی کرد بطوری که دائمی ذخیره بشه و هر بار نخوام فونت رو تغییر بدم(شبیه کاری که تو قسمت options برای فونت پیش فرض انجام میشه)
مثلا رنگ فونت برای عدد منفی قرمز که میخوام طوری باشه که مثلاً مشکی باشه و هر بار نخوام دستی تغییر بدم
ممنون میشم اگه کسی بتونه راهنماییم کنه
با تشکر

[iranweld]

با سلام

در فایل پیوست هر سلولی که حاوی فرمول باشد و جواب آن منفی شود فونت آن به رنگ قرمز میگردد و در صورت مثبت بودن به رنگ سیاه
در قسمت کدنویسی شیت مورد نظر کدهای ذیل را کپی کنید
برای سرعت عمل بیشتر محدوده ورودی دیتای فرمول را تعریف کنید تا زمان کمتری برای بررسی صرف شود (فایل دوم)
برای مثال:

If Not Intersect(Target, Me.Range("B1:C100")) Is Nothing Then 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rRange As Range, Cell As Range

    Set rRange = ActiveSheet.usedRange.SpecialCells(xlCellTypeFormulas, xlNumbers)


     For Each Cell In rRange

       If Cell.Value < 0 Then
       
       Cell.Font.ColorIndex = 3
       
       ElseIf Cell.Value >= 0 Then
       
       Cell.Font.ColorIndex = 1
       
       End If

     Next Cell

End Sub 

[generalsamad]

با سلام
برای اینکه عدد منفی تون رو نمیخواهید قرمز رنگ بشه باید از طریق فرمت سل قالب مورد نظرتون رو وارد کنید که در فرمت سل Number این قالب موجود هست و میتونید قالبی که متن اعداد منفی رو به رنگ سیاه نمایش میده رو انتخاب کنید

واسه قسمت فونت هم به روش ساده میتونید با ضبط یک ماکرو فونت مورد نظر رو برای محدوده مورد نظرتون انتخاب کنید