セルの内容の色はどのように検出できますか？

Question

私は優れた細胞を持っています。 セルでは、段落が少なく、各段落で異なるフォント色を使用しています。 VBAを使用して各段落のフォントカラー値を取得するにはどうすればよいですか？ここで

Answer 1

は私のソリューション、Webページが文字で与えられたセルの文字でコンテンツの色を検出する方法について説明します

sheetName = "sheet1" 
Set sheet1 = Worksheets(sheetName) 
Set theCell = sheet1.Range("G18") 
text = theCell.Value 

For i = 1 To Len(text) 
    If (theCell.Characters(Start:=i, Length:=1).Font.Color = vbBlack) Then 
     '....... if the character is in black, do normal procedure 
    else 
     '........if the character does not in black, handle the exceptional case 
    end if 
next