如果另一个单元格符合条件,则使用公式更改单元格方向
Using formula change the cell orientation, if another cell matches a criteria
是否有更改单元格方向的公式?我搜索的所有教程/网页仅显示如何使用方向选项卡更改方向。我试图避免使用 VBA 代码。所以,任何人都可以建议是否有办法使用公式/函数将单元格方向改变 180 度。
我知道你说你想避免 VBA,但别无他法。如果您想主动修改单元格的格式,宏(子)是唯一的方法。 Excel 公式通常不能修改格式,只能修改单元格内容。
如果您想尝试 VBA,这是您应该使用的代码:
右键单击工作表选项卡(标准驾驶场景)并粘贴以下代码:
Private Sub Worksheet_change(ByVal target As Excel.Range)
Dim switchColumn As Integer
Dim vehicleColumnFirst As Integer
Dim vehicleColumnLast As Integer
switchColumn = 12
vehicleColumnFirst = 36
vehicleColumnLast = 39
If target.Column = 12 Then
If target.Value = "Yes" Then
Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = 90
ElseIf target.Value = "No" Then
Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = -90
End If
End If
End Sub
如有任何问题,请不要犹豫。
是否有更改单元格方向的公式?我搜索的所有教程/网页仅显示如何使用方向选项卡更改方向。我试图避免使用 VBA 代码。所以,任何人都可以建议是否有办法使用公式/函数将单元格方向改变 180 度。
我知道你说你想避免 VBA,但别无他法。如果您想主动修改单元格的格式,宏(子)是唯一的方法。 Excel 公式通常不能修改格式,只能修改单元格内容。
如果您想尝试 VBA,这是您应该使用的代码:
右键单击工作表选项卡(标准驾驶场景)并粘贴以下代码:
Private Sub Worksheet_change(ByVal target As Excel.Range)
Dim switchColumn As Integer
Dim vehicleColumnFirst As Integer
Dim vehicleColumnLast As Integer
switchColumn = 12
vehicleColumnFirst = 36
vehicleColumnLast = 39
If target.Column = 12 Then
If target.Value = "Yes" Then
Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = 90
ElseIf target.Value = "No" Then
Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = -90
End If
End If
End Sub
如有任何问题,请不要犹豫。