0
فك
الأصوات
شكرًا مقدمًا على أي مساعدة يمكنك تقديمها في هذا الشأن.
بمساعدة هذا الموقع ، قمت بإنشاء الوظيفة التالية ؛
الوظيفة ColorFunction (rColor As Range ، r Range As Range ، SUM اختياريًا مثل Boolean)
خافت rCell As Range
خافت lCol طويل
خافت vResult
lCol = r اللون الداخلي اللون الفهرس
إذا كان SUM = صحيحًا إذن
لكل rCell في النطاق
إذا كانت rCell.Interior.ColorIndex = lCol ثم
vResult = WorksheetFunction.SUM (rCell ، vResult)
إنهاء حالة
التالي rCell
آخر
لكل rCell في النطاق
إذا كانت rCell.Interior.ColorIndex = lCol ثم
vResult = 1 + vResult
إنهاء حالة
التالي rCell
إنهاء حالة
ColorFunction = vResult
نهاية وظيفة
في كل خلية مستهدفة أريد مجموع كل الخلايا الموجودة في هذا الصف والتي تحتوي على لون الخلية المحددة ؛
= وظيفة اللون (AR4، H5: AP5، TRUE)
كيف يمكنني الحصول على بيع الهدف للتحديث عندما يتغير لون أي خلية أخرى في الصف (H5: AP5)؟
بمساعدة هذا الموقع ، قمت بإنشاء الوظيفة التالية ؛
الوظيفة ColorFunction (rColor As Range ، r Range As Range ، SUM اختياريًا مثل Boolean)
خافت rCell As Range
خافت lCol طويل
خافت vResult
lCol = r اللون الداخلي اللون الفهرس
إذا كان SUM = صحيحًا إذن
لكل rCell في النطاق
إذا كانت rCell.Interior.ColorIndex = lCol ثم
vResult = WorksheetFunction.SUM (rCell ، vResult)
إنهاء حالة
التالي rCell
آخر
لكل rCell في النطاق
إذا كانت rCell.Interior.ColorIndex = lCol ثم
vResult = 1 + vResult
إنهاء حالة
التالي rCell
إنهاء حالة
ColorFunction = vResult
نهاية وظيفة
في كل خلية مستهدفة أريد مجموع كل الخلايا الموجودة في هذا الصف والتي تحتوي على لون الخلية المحددة ؛
= وظيفة اللون (AR4، H5: AP5، TRUE)
كيف يمكنني الحصول على بيع الهدف للتحديث عندما يتغير لون أي خلية أخرى في الصف (H5: AP5)؟
مرحبا هناك،
يمكنك إضافة الكود: التطبيق.الحساب = xlAutomatic إلى وظيفتك:
يرجى محاولة إعطائها.
أماندا
يمكنك إضافة الكود: التطبيق.الحساب = xlAutomatic إلى وظيفتك:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
Application.Calculation = xlAutomatic
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Functionيرجى محاولة إعطائها.
أماندا
- الصفحة:
- 1
لا توجد ردود لهذا المنصب حتى الآن.