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

This post is also available in: arالعربية deDeutsch zh-hans简体中文 enEnglish hiहिन्दी ruРусский esEspañol

کد 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

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

برچسب ها

حسین صابری

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

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

دیدگاهتان را بنویسید

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

همچنین ببینید

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

بستن
بستن