Excel宏，如果在同一行的另一个单元格中输入了一个值，则可以更改单元格的对齐方式，边框和自动换行

Question

我正在尝试创建一个excel宏，如果将值输入到该特定行内的一个单元格中，则该宏将更新单元格对齐方式，在每行中换行文本和边框。 例如，如果在单元格A1中输入了一个值，则我希望宏更新单元格A1：O1的换行文本，单元格对齐方式和边框。 不幸的是，将条件格式应用于电子表格中的每一行都非常麻烦，并且只能处理单元格边界的更新，因此，我认为最好是可以更新所有3个单元格格式元素并动态搜索整个工作表的宏。

谢谢你的协助！

Answer 1

我不知道您想如何触发此宏，也不知道要应用哪种确切格式，但是我将做以下事情：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        With Range(Target, Target.Offset(0,14)
            .HorizontalAlignment = xlCenter
            .WrapText = True
            .Font.Bold = True
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
        End with
    end if
End Sub

编辑：添加按钮和分配宏窗口将出现。 选择新建，然后将代码放在此处。

For Each Target in Range(Cells(1,1), Cells(65536, 1).End(xlUp))
  If Target <> "" Then
     With Range(Target, Target.Offset(0,14)
        .HorizontalAlignment = xlCenter
        .WrapText = True
        .Font.Bold = True
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
     End With
  End If
Next