国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
EXCEL VBA用For Each給表格加目錄


綠色字體是注釋

操作動(dòng)態(tài)圖

For Each是變量在某個(gè)集合里面循環(huán),這個(gè)集合可以是單元格,可以是工作表,也可以是工作薄,客官可以自行修改代碼進(jìn)行嘗試。

代碼如下:

Dim a As Byte, d As Byte

    Dim arr As Range, str As String

    Sub xjclj()

    a = ActiveWorkbook.Sheets.Count

    d = 2

    For Each arr In Selection.Resize(a - 1, 1)

    str = ActiveWorkbook.Sheets(d).Name

    ActiveSheet.Hyperlinks.Add Anchor:=arr, Address:="", SubAddress:= _

    str & "!A1", TextToDisplay:=str

    d = d + 1

    Next

End Sub


轉(zhuǎn)發(fā)后可以幫助更多的人。

上一篇精彩內(nèi)容鏈接,點(diǎn)擊查看

Excel合并計(jì)算,領(lǐng)導(dǎo)再也不用擔(dān)心我的學(xué)習(xí)!

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
《神奇的VBA》編程:批量替換表格文字(1)
VBA編程,工作薄打開,兩個(gè)工作薄之間表格復(fù)制,Range的copy方法
利用VBA在Excel和Word中完成復(fù)雜的數(shù)據(jù)引用
Excel常見宏命令詳解
VBA:opentext方法處理處理txt文件數(shù)據(jù)
Excel VBA 7.16規(guī)則多個(gè)Excel表格合并-指定不連續(xù)列,通用性再升級(jí)
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服