Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Access Visual Basic Editor kliknutím na tlačidlo " Nástroje " v hornej časti obrazovky , prejdete do " . editore jazyka Visual Basic " možnosť " makro " a potom kliknutím na
2
skopírujte a vložte nasledujúci Visual Basic programovací modul do editora jazyka Visual Basic , a potom ho uložiť :
funkcie ColorFunction ( rColor ako rozsah , rRange ako rozsah , voliteľne súčet As Boolean )
Dim rCell ako rozsah
Dim lCol As Long Dim
vResult
lCol = rColor.Interior.ColorIndex
Ak súčet = True Then
Pre každý rCell V rRange
Ak rCell.Interior.ColorIndex = lCol Potom
vResult = WorksheetFunction.SUM ( rCell , vResult )
End If
Ďalšie rCell
Else
každý rCell V rRange
ak rCell.Interior.ColorIndex = lCol Potom
vResult = 1 + vResult
End If
Ďalšie rCell
End If
ColorFunction = vResult
End Function
3
Využite užívateľom vytvorené funkcie ColorFunction vypočítať počet farebných buniek . Syntax tejto funkcie je nasledovné :
ColorFunction ( $ A $ 1 , $ B $ 1 : $ B $ 2 , FALSE )
kde $ A $ 1 predstavuje bunku , ktorú chcete porovnať , $ B $ 1 a $ B 2 doláre predstavujú oblasť buniek po jednom stĺpci a TRUE povie funkciu počítať .
Vzhľadom k tomu , že máte fialová buniek , B1 , a ak chcete vypočítať počet fialových buniek medzi riadkami C1 a C12 , mali by ste použiť funkciu takto :
ColorFunction ( B1 , C1 : C12 , FALSE )
Copyright © počítačové znalosti Všetky práva vyhradené