ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel §PÂ_¦rÅéÃC¦â¦@¦³¥X²{´X¦¸

[µo°Ý] Excel §PÂ_¦rÅéÃC¦â¦@¦³¥X²{´X¦¸

Dear all,
§Ú¦@¦³3ºØÃC¦â(¬õ¡Bºñ¡B¶Â)¡A§Ú·Q­n­pºâ·íÀx¦s®æ¤ºªº­^¤åD(¬õ¡Bºñ¡B¶Â)¡BL(¬õ¡Bºñ¡B¶Â)¨äÃC¦â¦@¥X²{´X¦¸
¦³­þ¨Ç¤½¦¡¬O¥i¥H§äªº¡H
·PÁ¤j®a¡I



¦rÅéÃC¦â°Ï¤À.rar (8.14 KB)
Just do it.

Function GetFontCount(xArea As Range, xA As Range)
Dim xR As Range
For Each xR In xArea
    If xR = xA And xR.Font.ColorIndex = xA.Font.ColorIndex Then
       GetFontCount = GetFontCount + 1
    End If
Next
End Function

Xl0000063.rar (11.26 KB)

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 2# ­ã´£³¡ªL

Dear ­ã´£³¡ªL,
·PÁ±zªºÀ°¦£¡Aªü¨½¹Ç¤æ
Just do it.

TOP

¦^´_ 3# hcm19522

Dear  hcm19522,

·PÁ±z©Ò´£¨Ñªº¥t¤@ºØ¤è¦¡¡Aªü¨½¹Ç¤æ
Just do it.

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD