راه چهارم ( که شبیه به چرخوندن لقمه به دور دهان هست ) چند مرحله داره ( واقعا ً شاخ غولا شکستی با این راه حلت
)
اول کد زیر را تو یه ماژول وارد می کنیم
کد PHP:
Public Function ColorCode(rg As Range) As Integer
Application.Volatile True
ColorCode = rg.Interior.Colorindex
End Function
مرحله بعد کد زیر را به باتومی در شیت اختصاص میدم که بتونم به کد رنگ برسم ( من رنگ نارنجی را انتخاب کردم)
کد PHP:
Sub Rectangle1_Click()
Dim c As Range
For Each c In Sheet1.Range("a1:a100")
If c <> "" And c.Value > 4 And c.Value < 12 Then
c.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next c
End Sub
مرحله بعد ( به فرض اینکه اعداد من تو ستون A باشن ) تو خونه B1 کد زیر را می نویسم و درگ می کنم
و مرحله آخر با یه sumif و تقسیم تعداد به دست میاد
کد PHP:
=SUMIF(B1:B12,44,B1:B12)/44
علاقه مندی ها (Bookmarks)