行 Target.row 有问题
Issue with line Target.row
我有一个运行良好的宏。此宏更改字符的大小和 selected 单元格的颜色,当取消 selecting 单元格以 select 一个新单元格时,它返回到默认参数unselected 单元格并更改 selected 单元格的字符大小和颜色…
现在我想将这个宏不仅扩展到新的 selected 单元格,而且扩展到与 selected 单元格相关的完整行。
在我的 VBA 代码中,我尝试通过向以下行添加“.Row”来修改代码:With target
所以通过这个修改,我的新行是:With Target.Row
不幸的是,当 select 在我的工作表中创建一个新单元格时,我收到以下错误消息:
编译错误:With Object must be user-defined type, Object, or Variant
请在下面找到我的宏代码。
预先感谢您的帮助。
Const FontSize As Integer = 12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LargeSize = FontSize * 1.2
With Cells
.Font.Size = FontSize
.Interior.Color = xlNone
End With
With Target.Row
.Font.Size = LargeSize
.Interior.Color = 49407
End With
End Sub
一个Range
returns行号Row
-属性。
您需要的是一个包含一行中所有单元格的范围。您可以为此使用 Range.EntireRow
:
With Target.EntireRow
.Font.Size = LargeSize
.Interior.Color = 49407
End With
我有一个运行良好的宏。此宏更改字符的大小和 selected 单元格的颜色,当取消 selecting 单元格以 select 一个新单元格时,它返回到默认参数unselected 单元格并更改 selected 单元格的字符大小和颜色… 现在我想将这个宏不仅扩展到新的 selected 单元格,而且扩展到与 selected 单元格相关的完整行。
在我的 VBA 代码中,我尝试通过向以下行添加“.Row”来修改代码:With target 所以通过这个修改,我的新行是:With Target.Row 不幸的是,当 select 在我的工作表中创建一个新单元格时,我收到以下错误消息: 编译错误:With Object must be user-defined type, Object, or Variant
请在下面找到我的宏代码。 预先感谢您的帮助。
Const FontSize As Integer = 12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LargeSize = FontSize * 1.2
With Cells
.Font.Size = FontSize
.Interior.Color = xlNone
End With
With Target.Row
.Font.Size = LargeSize
.Interior.Color = 49407
End With
End Sub
一个Range
returns行号Row
-属性。
您需要的是一个包含一行中所有单元格的范围。您可以为此使用 Range.EntireRow
:
With Target.EntireRow
.Font.Size = LargeSize
.Interior.Color = 49407
End With