A列包含相关单元格的地址 例如A1指向B15 A2指向B3等等 B列包含数据(数字),其中一些是粗体
我正在尝试创建一个将粗体应用于A列中相关字段的宏。 为了做到这一点,我创建了一个循环来检查col中的单元格。一个接一个,找出B列中相应单元格地址的粗体。
我需要在B列中读取对单元格的引用并将其转换为范围变量,以便我可以在B列中检查它的属性
任何想法如何做到这一点?我是新的
答案 0 :(得分:0)
对于A列中的每个单元格,枚举其.DirectPrecedents
中的单元格,并查看是否有粗体。
答案 1 :(得分:0)
首先,您需要在第一个单元格中检索公式,然后使用公式实例化范围对象。然后使用finalRange
,您可以检查属性值,例如Font.Bold:
Dim initialRangeFormula As String
Dim finalRange As Range
initialRangeFormula = Range("A1").Formula
Set finalRange = Range(initialRangeFormula)
Debug.Print finalRange.Font.Bold