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

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

九賢互聯(lián)網(wǎng)實(shí)用分享網(wǎng)小編 ? ? 實(shí)用分享

前沿拓展：

蘋果電腦強(qiáng)制退出程序快捷鍵是什

D

當(dāng)我們平時(shí)在處理excel表格時(shí)，有時(shí)候不需要程序運(yùn)行完，中途某一步需要強(qiáng)制退出程序。下面將介紹在VBA中如何強(qiáng)制退出程序。因?yàn)樯洗卧诎l(fā)布動(dòng)態(tài)數(shù)組的使用方法時(shí)有點(diǎn)點(diǎn)小錯(cuò)誤，在此給大家說聲抱歉，所以這次還是舉動(dòng)態(tài)數(shù)組的例子。

例如下圖所示，我們需要將A列中內(nèi)容為“c”的整行提取出來，然后放在以“e1”單元格為首的單元格中。

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

我們先看看沒有使用退出程序的代碼：

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

運(yùn)行完之后的結(jié)果如下圖：

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

下面使用強(qiáng)制退出程序的語句。我們的目的是只需要提取"A"列第一次出現(xiàn)“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 '此處表示強(qiáng)制退出sub程序

End If

Next x

End Sub

運(yùn)行結(jié)果如下：

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

強(qiáng)制退出for循環(huán)的使用方法是雷同的，大家可以根據(jù)自己的需要靈活使用。

拓展知識(shí)：

原創(chuàng)文章，作者：九賢互聯(lián)網(wǎng)實(shí)用分享網(wǎng)小編，如若轉(zhuǎn)載，請(qǐng)注明出處：http://www.uuuxu.com/20220927474713.html

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

相關(guān)推薦

主站蜘蛛池模板： 崇左市| 北川| 鄂托克旗| 吉林省| 五华县| 柳河县| 麦盖提县| 英超| 虞城县| 黄梅县| 驻马店市| 泌阳县| 济南市| 尤溪县| 岳池县| 庐江县| 老河口市| 安吉县| 洪雅县| 新化县| 石景山区| 修武县| 祁阳县| 永德县| 丹凤县| 怀柔区| 改则县| 水城县| 瓮安县| 丹巴县| 华容县| 晋州市| 嵊泗县| 比如县| 汉寿县| 荣昌县| 桐梓县| 双牌县| 淮阳县| 高安市| 武穴市|