我有一个包含一系列单元格(B15:BL15)的工作表,其中的公式返回“显示”或“隐藏”。当我从表单控件(不是 ActiveX)组合框中进行选择并将下面的宏分配给组合框时,值会发生变化。该宏应该根据单元格值显示或隐藏列。
我第一次进行选择时,无论单元格中的值如何,所有列最终都会隐藏。当我再次选择它时,代码工作正常(即我选择选项 A 并且范围内的所有列都被隐藏。我选择选项 B 然后返回选项 A 并且现在显示和隐藏正确的列。)。我在这里缺少什么吗?
Option Explicit
Sub ShowHide()
Cells.Columns.EntireColumn.Hidden = False ' Added to unhide all of the columns first.
Dim c As Range
For Each c In Range("B15:BL15").Cells ' Range of cells containing the formulas
With c
If .Value = "Hide" Then
.EntireColumn.Hidden = True
Else
.EntireColumn.Hidden = False
End If
End With
Next c
End Sub
非常感谢任何帮助!
最佳答案
希望这对某人有帮助!
该问题是由在所有计算完成和更新范围之前运行的代码引起的。在计算期间,范围内的单元格短暂默认为“隐藏”,这会触发该列被隐藏。
我找到了Application.CalculateUntilAsyncQueriesDone
这迫使代码在所有计算完成并更新范围后运行。修改后的代码如下:
Sub ShowHide()
Dim c As Long
Application.ScreenUpdating = False
Application.CalculateUntilAsyncQueriesDone
For c = 2 To 64
If Cells(16, c).Value = "Hide" Then
Columns(c).Hidden = True
Else
Columns(c).Hidden = False
End If
Next c
Application.ScreenUpdating = True
End Sub
注:我看到多个线程使用和 IF 语句,然后
Application.CalculationState = xlDone
但这没有用。如果有人知道为什么我很想了解。
关于excel - 基于单元格值动态隐藏列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59756267/