我們今天分享的VBA小代碼的內(nèi)容有兩個(gè),分別是:
1. 批量取消隱藏工作表
2. 批量提取單元格內(nèi)的超鏈接地址
● 如何批量取消隱藏工作表
先說(shuō)一下如何批量隱藏工作表。
我們可以按住Ctrl鍵,用鼠標(biāo)分別選取需要隱藏的工作表標(biāo)簽(如果所隱藏是連續(xù)的表格,可以使用Shift鍵),使之成為一個(gè)工作表組合,然后通過(guò)右鍵菜單的【隱藏】功能,將該工作表組合中的工作表一次性隱藏起來(lái)~
可是,反過(guò)來(lái),如果一個(gè)工作薄的部分工作表隱藏了,需要批量取消隱藏, EXCEL就沒(méi)有提供這樣的功能。大家就要一個(gè)一個(gè)去進(jìn)行手工操作:
右鍵單擊任意工作表標(biāo)簽,在右鍵菜單中,選擇【取消隱藏工作表】,在彈出的對(duì)話框中,選擇相應(yīng)的表名,做【確認(rèn)】操作。
如果需要取消隱藏的工作表很多,這樣操作就很煩瑣。
如何一次性全部取消隱藏表格呢?有一個(gè)技巧是通過(guò)預(yù)先設(shè)置【自定義月視圖】,但依然有局限性。
可以使用以下VBA小代碼:
Sub qxyc()
Dim sht As Worksheet
‘定義變量
For Each sht In Worksheets
‘循環(huán)工作簿里的每一個(gè)工作表
sht.Visible = xlSheetVisible
‘將工作表的狀態(tài)設(shè)置為非隱藏
Next
End Sub
代碼一兩行,工作不用忙斷腸,說(shuō)的就是這種情況了。您也動(dòng)手試一下吧!
● 如何批量提取單元格內(nèi)的超鏈接網(wǎng)址
如上圖,A列單元格的數(shù)據(jù)設(shè)置了超鏈接,現(xiàn)在需要把超鏈接的網(wǎng)址提取出來(lái),結(jié)果參考B列。
Excel本身并沒(méi)有提供這樣的函數(shù),所以通常還是使用到VBA編程,下面是一個(gè)VBA自定義函數(shù)GetAdrs。
Function GetAdrs(Rng)
Application.Volatile True
With Rng.Hyperlinks(1)
GetAdrs = IIf(.Address = “”, .SubAddress, .Address)
End With
End Function
將代碼復(fù)制黏貼到工作簿的VBE界面新建的模塊中,在B1單元格輸入公式=getadrs(A1),并復(fù)制填充到B3單元格,就可以得到結(jié)果了。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。