欧美精品123_精品露脸国产偷人在视频_日韩美女免费线视频_成人av三级

蘋果電腦強制退出程序快捷鍵是什么(蘋果電腦怎么退出程序快捷鍵)

前沿拓展:

蘋果電腦強制退出程序快捷鍵是什

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

主站蜘蛛池模板: 利辛县| 福清市| 隆昌县| 奈曼旗| 个旧市| 页游| 历史| 涞水县| 怀来县| 泰顺县| 南陵县| 双牌县| 巴林左旗| 思茅市| 洪雅县| 泰兴市| 于都县| 淳安县| 沁水县| 临猗县| 阜城县| 富宁县| 东辽县| 志丹县| 望城县| 泰来县| 商都县| 鱼台县| 潮州市| 嘉荫县| 监利县| 梁河县| 韩城市| 北辰区| 青海省| 鹿泉市| 扶风县| 长沙县| 黄浦区| 商河县| 定兴县|