Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA：当范围中的值太小时自动隐藏列_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel VBA：当范围中的值太小时自动隐藏列

Excel VBA：当范围中的值太小时自动隐藏列

excel vba

Excel VBA：当范围中的值太小时自动隐藏列,excel,vba,Excel,Vba,我有一个时间线，我的目标是，如果时间线中的值小于PredevStart，则自动隐藏不需要的列 在这个场景中，PredevStart=-11，因此需要隐藏时间线中所有值小于-11的列 我在下面准备了一个sub，它在第4行产生了一个1004错误-我的错误在哪里 Option Explicit Sub Hide_DevCol() Dim i, PredevStart As Long For i = 11 To 100 If Worksheets(&quo

我有一个时间线，我的目标是，如果时间线中的值小于PredevStart，则自动隐藏不需要的列

在这个场景中，PredevStart=-11，因此需要隐藏时间线中所有值小于-11的列

我在下面准备了一个sub，它在第4行产生了一个1004错误-我的错误在哪里

Option Explicit

Sub Hide_DevCol()

    Dim i, PredevStart As Long
    
    For i = 11 To 100
    
    If Worksheets("Projections").Cells(14, i).Value < Range(PredevStart).Value Then
    Worksheets("Projections").columns(i).Hidden = True
    
    End If
    
    Next

End Sub

选项显式
次级开发工具（）
Dim i，启动前尽可能长
对于i=11到100
如果工作表（“投影”）。单元格（14，i）。值<范围（PredevStart）。值，则
工作表（“投影”）.列（i）.隐藏=真
如果结束
下一个
端接头

PredevStart
（未分配的
Long
）不是
范围的有效地址。猜测您只是想要
如果工作表（“投影”）.Cells（14，i）.Value