جمع اعداد بر حسب رنگ فونت سلول‌ها در اکسل

کد VBA زیر مقادیر سلولهای موجود در ستون اول و ردیفهای ۱ تا ۱۲ این ستون را با هم جمع میکند. البته فقط مقادیر سلولهایی جمع میشوند که رنگ فونت آنها قرمز باشد.

 

Private Sub CommandButton1_Click()
Dim toReceive As Integer, i As Integer
toReceive = 0
For i = 1 To 12
    If Cells(i, 1).Font.Color = vbRed Then
        toReceive = toReceive + Cells(i, 1).Value
    End If
Next i
MsgBox "Still to receive " & toReceive & " dollars"
End Sub

منبع: محمد تبریزی

برچسب ها

حسین صابری

عضو هیئت علمی دانشگاه آزاد ارشد حسابداری (دانشجوی دکتری حسابداری) کارشناس رسمی قوه قضاییه (حسابداری و حسابرسی) برنامه نویس و مدرس کامپیوتر

نوشته های مشابه

پاسخی بگذارید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

دکمه بازگشت به بالا

بستن
بستن