洺柯 2021-05-21 19:07 采纳率: 0%
浏览 11

像这种类型的程序怎么简化

' 遍历数组1
For i = LBound(Arr_1) To UBound(Arr_1)
    
    If Arr_1(i) <> "" Then
        For j = LBound(arr_4) To UBound(arr_4)
            If Arr_1(i) = arr_4(j) And Sheet2.Cells(j, m).Interior.Color <> 65535 And Sheet1.Cells(i, n).Interior.Color <> 65535 Then
                Sheet1.Select
                Sheet1.Cells(i, n).Select
                Selection.Interior.Color = 65535
                Sheet2.Select
                Sheet2.Cells(j, m).Select
                Selection.Interior.Color = 65535
            End If
            
        
        Next
        
    End If
Next

' 遍历数组2
For a = LBound(Arr_2) To UBound(Arr_2)
    If Arr_2(a) <> "" Then
        For b = LBound(Arr_3) To UBound(Arr_3)
            If Arr_2(a) = Arr_3(b) And Sheet2.Cells(a, y).Interior.Color <> 65535 And Sheet1.Cells(b, x).Interior.Color <> 65535 Then
                Sheet1.Select
                Sheet1.Cells(b, x).Select
                Selection.Interior.Color = 65535
                Sheet2.Select
                Sheet2.Cells(a, y).Select
                Selection.Interior.Color = 65535
            End If
        Next
    End If
Next

  • 写回答

1条回答 默认 最新

  • camel78 2023-05-24 22:15
    关注

    条件逻辑不用再变化了,但是执行逻辑可以优化。不需要每个都选中,再修改选中的,直接修改即可。
    下面代码:

                    Sheet1.Select
                     Sheet1.Cells(b, x).Select
                    Selection.Interior.Color = 65535
                    Sheet2.Select
                    Sheet2.Cells(a, y).Select
                    Selection.Interior.Color = 65535
    

    变更为:

    Sheet1.Cells(b, x).Interior.Color = 65535
    Sheet2.Cells(a, y).Interior.Color = 65535
    

    这样就简洁了一些。

    评论

报告相同问题?

悬赏问题

  • ¥15 h3.6m 人类行为预测论文复现
  • ¥50 wordpress项目注册报失败刷新后其实是成功状态,请求排查原因
  • ¥20 linxu服务器僵尸进程不释放,代码如何修改?
  • ¥15 pycharm激活不成功
  • ¥40 如果update 一个列名为参数的value
  • ¥15 基于51单片机的水位检测系统设计中LCD1602一直不显示
  • ¥15 OCS2安装出现问题,请大家给点意见
  • ¥15 ros小车启动launch文件报错
  • ¥15 vs2015到期想登陆但是登陆不上
  • ¥15 IPQ5018制作烧录固件,boot运行失败(操作系统-linux)(相关搜索:操作系统)(相关搜索:操作系统)