[英]Set Alignment of cell in range based on text value in cell
我是 VBA 新手,我有一个电子表格,如果单元格中的值等于“本月总计:”,我试图将文本格式设置为右对齐。 我只需要它为工作簿中的 Worksheet1 工作。 如果单元格 C3 中的值发生变化,我希望代码查看 B 列中的所有单元格并找到任何等于“本月总计:”的值,然后将其右对齐。 但是,我的代码不起作用。 当我修改单元格 C3 时,没有任何反应。
我的代码如下:
Dim SrchRng As Range, cel As Range
Set SrchRng = Range("$B1:$B1000")
If Target.Address = "C3" Then
For Each WS In Worksheets
With WS
For Each cel In SrchRng
If InStr(1, cel.Value, "Total For The Month: ") > 0 Then
cel.HorizontalAlignment = xlRight
End If
Next cel
End With
Next WS
End If
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.