Target.row行的问题

Question

我有一个效果很好的宏。此宏会更改字符的大小和所选单元格的颜色，并且当取消选择该单元格以选择新的单元格时，它将返回未选择单元格的默认参数，并更改字符的大小和颜色。选定的单元格...现在，我不仅要将此宏扩展到新的选定单元格，还要扩展到与选定单元格相关的整行。

在我的VBA代码中，我试图通过在行中添加“ .Row”来修改代码：因此，通过此修改，我的新行是：使用Target.Row不幸的是，当在工作表中选择一个新的单元格时，出现以下错误消息：编译错误：With Object必须是用户定义的类型，Object或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

Answer 1

Row的Range属性返回行号。您需要一个包含行中所有单元格的范围。您可以使用Range.EntireRow：

 With Target.EntireRow
    .Font.Size = LargeSize
    .Interior.Color = 49407
End With