通过 Excel VBA 按钮隐藏包含具有特定值的单元格的列

Question

我有一个电子表格，其中包含与 2015 年至 2020 年周一至周六日期相关的列。当我打印这张表时，我只想看到“星期一”栏，而不是星期二至星期六。第 14 行包含日期 (dd/mm)，第 15 行包含星期几（例如，“M”代表星期一，“T”代表星期二，等等）。我希望能够在隐藏所有非星期一列和查看所有列之间切换。下面的 VBA 按钮代码给了我“运行时错误 '13' - 类型不匹配”。这个按钮有一个简单的修复方法，还是有更好的方法来完成这个？

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 11 To 222
        If Cells(14, i).Value = "T" Or "W" Or "R" Or "F" Or "S" Then
            Columns(i).EntireColumn.Hidden = True
        Else
            Columns(i).EntireColumn.Hidden = False
        End If
    Next i
End Sub

Answer 1

您的代码很接近，但 IF ... OR ... OR 语法已关闭。您的OR 条件是独立的，它们必须包含一个计算结果为True 或False 的表达式。

因此，它应该改为：

If Cells(14, i).Value = "T" Or Cells(14, i).Value = "W" Or Cells(14, i).Value = "R" Or Cells(14, i).Value = "F" Or Cells(14, i).Value = "S" Then

诚然，这更麻烦，但它应该可以解决问题。

由于您要查找的值是单个字符，因此您可以在这里作弊并使用INSTR()：

If Instr(1, "TWRFS", Cells(14,i).value) > 0 Then

因此，如果您的单元格的值在该字符串中的工作日字母，那么......做任何事情

Answer 2

您的叙述与您的代码所讲述的故事不同。描述将 M、T、W、Th、F、Sa、Su 放在第 15 行，但代码在第 14 行。

无论如何，我正在根据我希望第 14 行中的实际日期确定数字 Weekday function。

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 11 To 222
        If Weekday(Cells(14, i).Value, vbMonday) > 1 Then
            Columns(i).EntireColumn.Hidden = _
                Not Columns(i).EntireColumn.Hidden
        End If
    Next i
End Sub

要打开或关闭某项功能，只需反转其布尔值即可。