问VBA -优化隐藏列的运行时
EN

Stack Overflow用户

提问于 2017-03-24 22:31:03

回答 1查看 50关注 0票数 1

从2017年到2066年，我有一张50年的工作表。这个宏为头10年制作了一个打印区域，第十年是用户输入并隐藏任何其他列。如果用户输入大于2026年，我们将删除连续第10年(2026年)，并将其替换为用户输入。

我发现我的宏非常慢，我正在寻找关于如何加速它的反馈。

With Sheet1
  If userinputyear > 2026 Then
    c = 10 'column index corresponding to consecutive 10th year 2026
    Do While .Cells(5, c) <> userinputyear
       .Cells(5, c).EntireColumn.Hidden = True
       c = c + 1
    Loop
    Do While c + 1 <> 50 'column index corresponding to year 2066
      .Cells(5, c + 1).EntireColumn.Hidden = True
       c = c + 1
    Loop
end with

vba

optimization

回答 1

Stack Overflow用户

回答已采纳

发布于 2017-03-24 23:22:00

这会更快吗？(假设您的列是根据年份排序的)

With Sheet1
    If userInputYear > 2026 Then
        .Cells(1, 10).Resize(, 41).EntireColumn.Hidden = True
        .Columns(userInputYear - 2016).Hidden = False
    End If
End With

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/43010165

复制

相似问题

问VBA -优化隐藏列的运行时
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA -优化隐藏列的运行时EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA -优化隐藏列的运行时
EN