Excelmacros可更改单元格alignment方式，边框和换行文本（如果已将值input到同一行中的另一个单元格中）

我正在尝试创build一个Excelmacros，更新单元格alignment，如果一个值被input到该特定行中的一个单元格中，则在每行中包装单元格的文本和边框。 例如，如果一个值input到单元格A1中，那么我希望macros更新单元格A1：O1的换行文本，单元格alignment和边框。 不幸的是，对电子表格中的每一行应用条件格式化是相当麻烦的，只能处理更新单元格边界，所以我认为一个可以更新所有3个单元格格式元素并dynamicsearch整个工作表的macros是最好的。

感谢你的协助！

Answer 1

我不知道你要如何触发这个macros，也不知道你想要应用什么格式，但是我会这样做：

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 

编辑：添加button和分配macros窗口应该出现。 select新build并将代码放在那里。

 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