sabertb
2014/04/14, 12:22
اول من وارد محیط VBA شدم و دستور زیرو وارد کردم
Function CountColorIf(rSample As Range, rArea As Range) As Long
Dim rAreaCell As Range
Dim lMatchColor As Long
Dim lCounter As Long
lMatchColor = rSample.Interior.Color
For Each rAreaCell In rArea
If rAreaCell.Interior.Color = lMatchColor Then
lCounter = lCounter + 1
End If
Next rAreaCell
CountColorIf = lCounter
End Function
به صورت صحیح .ارد کردم :)
بعد اجرا کردم درست بود و کار کرد
حالا که می خواهم این فرمول برای همیشه در این Workbook باقی به ماند بعد از ذخیره کردن این پیقام رو می دهد و وقتی فایل رو می بندم دوباره باز میکنم می بینم غیر فعال شده و سلول ها بهم ریخته
تصویر پیغام :
http://www.xum.ir/images/2014/04/14/Untitledwb6h1.jpg
چه کار کنم ؟
Function CountColorIf(rSample As Range, rArea As Range) As Long
Dim rAreaCell As Range
Dim lMatchColor As Long
Dim lCounter As Long
lMatchColor = rSample.Interior.Color
For Each rAreaCell In rArea
If rAreaCell.Interior.Color = lMatchColor Then
lCounter = lCounter + 1
End If
Next rAreaCell
CountColorIf = lCounter
End Function
به صورت صحیح .ارد کردم :)
بعد اجرا کردم درست بود و کار کرد
حالا که می خواهم این فرمول برای همیشه در این Workbook باقی به ماند بعد از ذخیره کردن این پیقام رو می دهد و وقتی فایل رو می بندم دوباره باز میکنم می بینم غیر فعال شده و سلول ها بهم ریخته
تصویر پیغام :
http://www.xum.ir/images/2014/04/14/Untitledwb6h1.jpg
چه کار کنم ؟