我目前正在尝试制作一个程序,该程序需要用户输入并将值存储在名为FastenerNumbers的数组中。然后,基于这些值,程序会用绿色填充特定的单元格,以便用户知道在其中输入值。问题是,如果数组中的值为0,我想删除该列,以使工作表更整洁。
我遇到的问题是,在for循环中删除列时,单元格向左移动。因此,某些单元格实际上被跳过了。为了解决这个问题,我基本上不得不蛮力地执行该程序,以便它循环几次以解决所有跳过的列。
这是代码:
'Make cells green for user to put inputs into
For i = 0 To UBound(FastenerNumbers)
If FastenerNumbers(i) <> 0 Then
With Range(Range("A14").Offset(0, 2 * i), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * i) + 1))
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 4
End With
End If
Next
'Define initial counter variable
j = 1
' Do Until j = 5
' For i = 0 To UBound(FastenerNumbers)
' If FastenerNumbers(i) = 0 Then
' Range(Range("A14").Offset(0, 2 * i), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * i) + 1)).EntireColumn.Delete
' End If
' Next
' Loop
'
Do
For Each cell In Range("A14", Range("A14").Offset(, (UBound(FastenerNumbers) + 1) * 2))
If cell.Interior.ColorIndex <> 4 Then
cell.EntireColumn.Delete
End If
j = j + 1
If j >= (5 * (UBound(FastenerNumbers) + 1) * 2) Then
Exit Do
End If
Next
Loop
伪代码是我要使用的另一种方法。我认为这两种方法都不比另一种方法明显好。我希望循环更干净,更高效。
最佳答案
就像使用一个单独的变量(j
)计算有效FastenerNumbers()
值的数量一样简单,如下所示
'Make cells green for user to put inputs into
For i = 0 To UBound(FastenerNumbers)
If FastenerNumbers(i) <> 0 Then
With Range(Range("A14").Offset(0, 2 * j), Range("A14").Offset(FastenerNumbers(i) - 1, (2 * j) + 1)) ' use j as the column relevant variable
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 4
End With
j = j + 1 'update column relevant variable
End If
Next