关于隐藏指定列的求助。

马小呆

请看一下附加，谢谢啦。

清风竹-

请看附件。

马小呆

清风竹- 发表于 2024-3-29 09:51
请看附件。

谢谢。

追问一下，我想修改成根据我设置的日，在("a12:ah12")区域里找，如果找到设定日，就显示设定日和前后各两天，我这样修改为什么不对呢？

清风竹-

马小呆 发表于 2024-3-30 12:33
谢谢。

追问一下，我想修改成根据我设置的日，在("a12:ah12")区域里找，如果找到设定日，就显示设定日 ...

Sub 隐藏()
Dim i, rng As Range
Range("D:AH").EntireColumn.Hidden = True
arr = Range("a12:ah12")
rq1 = Cells(8, 3)
For i = 4 To UBound(arr, 2)
       If arr(1, i) <> "" Then
              rq = --Split(arr(1, i), "日")(0)
              If rq = rq1 Then
                   If rng Is Nothing Then Set rng = Cells(1, i) Else Set rng = Union(rng, Cells(1, i))
                 For j = 1 To 5
                     If arr(1, i + j) = "" Then
                     Else
                        n = n + 1
                        Set rng = Union(rng, Cells(1, i + j))
                        If n = 2 Then Exit For
                     End If
                 Next
                 n = 0
                  For j = 1 To 5
                     If arr(1, i - j) = "" Then
                     Else
                        n = n + 1
                        Set rng = Union(rng, Cells(1, i - j))
                        If n = 2 Then Exit For
                     End If
                 Next
                 Exit For
               End If
        End If
Next
If Not rng Is Nothing Then rng.EntireColumn.Hidden = False
End Sub

清风竹-

马小呆 发表于 2024-3-30 12:33
谢谢。

追问一下，我想修改成根据我设置的日，在("a12:ah12")区域里找，如果找到设定日，就显示设定日 ...

日期算法和数学算法有差异。
1-2=-1 ，31+2=33
3月1日减2日 是2月28（闰）或是2月27日。6月1日减2日 是5月30日…………你的代码是单纯数学算法。

马小呆

清风竹- 发表于 2024-3-30 20:21
日期算法和数学算法有差异。
1-2=-1 ，31+2=33
3月1日减2日 是2月28（闰）或是2月27日。6月1日减2日 是 ...

不好意思又要麻烦你了，有个问题，输入24、25、26、27就会报错。

清风竹-

马小呆 发表于 2024-3-31 15:19
不好意思又要麻烦你了，有个问题，输入24、25、26、27就会报错。

我这里测试正常不报错。
这句 rq = --Split(arr(1, i) , "日")(0)    改为： rq = --Split(arr(1, i) & "日", "日")(0)   
试试。

马小呆

清风竹- 发表于 2024-3-31 17:07
我这里测试正常不报错。
这句 rq = --Split(arr(1, i) , "日")(0)    改为： rq = --Split(arr(1, i) &  ...

谢谢你。
还是不行。

清风竹-

马小呆 发表于 2024-3-31 17:46
谢谢你。
还是不行。

请看附件。

ooluckydog

试试这个，参考附件