蘋果電腦強制退出程序快捷鍵是什么(蘋果電腦怎么退出程序快捷鍵)
前沿拓展:
蘋果電腦強制退出程序快捷鍵是什
D
當我們平時在處理excel表格時,有時候不需要程序運行完,中途某一步需要強制退出程序。下面將介紹在VBA中如何強制退出程序。因為上次在發布動態數組的使用方法時有點點小錯誤,在此給大家說聲抱歉,所以這次還是舉動態數組的例子。
例如下圖所示,我們需要將A列中內容為“c”的整行提取出來,然后放在以“e1”單元格為首的單元格中。
我們先看看沒有使用退出程序的代碼:
Sub t1()
Dim arr, arr1()
Dim x As Integer, k As Integer
arr = Range("a2:d11")
For x = 1 To UBound(arr)
If arr(x, 1) = "c" Then
k = k + 1
ReDim Preserve arr1(1 To 4, 1 To k)
arr1(1, k) = arr(x, 1)
arr1(2, k) = arr(x, 2)
arr1(3, k) = arr(x, 3)
arr1(4, k) = arr(x, 4)
End If
Next x
Range("e1").Resize(k, 4) = Application.Transpose(arr1)
End Sub
運行完之后的結果如下圖:
下面使用強制退出程序的語句。我們的目的是只需要提取"A"列第一次出現“c”的那一行,代碼如下:
Sub t2()
Dim arr, arr1()
Dim x As Integer, k As Integer
arr = Range("a2:d11")
For x = 1 To UBound(arr)
If arr(x, 1) = "c" Then
k = k + 1
ReDim Preserve arr1(1 To 4, 1 To k)
arr1(1, k) = arr(x, 1)
arr1(2, k) = arr(x, 2)
arr1(3, k) = arr(x, 3)
arr1(4, k) = arr(x, 4)
Range("e1").Resize(k, 4) = Application.Transpose(arr1)
Exit Sub '此處表示強制退出sub程序
End If
Next x
End Sub
運行結果如下:
強制退出for循環的使用方法是雷同的,大家可以根據自己的需要靈活使用。
拓展知識:
原創文章,作者:九賢互聯網實用分享網小編,如若轉載,請注明出處:http://www.uuuxu.com/20220927474713.html