欧美精品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://m.uuuxu.com/20220927474713.html

贊 (0)
上一篇 2022年9月27日 am7:00
下一篇 2022年9月27日 am7:06

相關推薦

主站蜘蛛池模板： 寿阳县| 余江县| 黄平县| 汉寿县| 北辰区| 新郑市| 桦南县| 青岛市| 靖江市| 吉安市| 富锦市| 中西区| 长汀县| 固安县| 会东县| 鹰潭市| 遵义县| 永靖县| 定远县| 武定县| 芮城县| 沁水县| 通许县| 抚州市| 青铜峡市| 海盐县| 丘北县| 嘉黎县| 缙云县| 涟水县| 彩票| 平罗县| 泸定县| 舟山市| 渑池县| 扎兰屯市| 新郑市| 通许县| 始兴县| 沧州市| 阿拉善盟|