最新亚洲人成无码网站,夜夜操夜夜操夜夜爽,中文字日产幕乱五区,在线成人看片黄a免费看,亚洲自偷自拍另类11p

首頁(yè) >> 綜合經(jīng)驗(yàn) >

EXCEl索引是什么意思(excel索引)

2024-09-26 18:00:33 來源: 用戶: 

哈嘍,大家好~~~我是小編田甜,關(guān)于EXCEl索引是什么意思,excel索引這個(gè)很多人還不知道,那么現(xiàn)在讓田甜帶著大家一起來看看吧!

1、先可新建一個(gè)工作表《索引》。

2、插入名稱-定義。

3、運(yùn)用transpose(get,wordbook(1)提取足夠多的工作表名再用超鏈接公式鏈接用宏就比較簡(jiǎn)單了 我給你個(gè)宏的例子根據(jù)你表格的情況 還要做部分修改Sub mulu()On Error GoTo TuichuDim i As IntegerDim ShtCount As IntegerDim SelectionCell As RangeShtCount = Worksheets.CountIf ShtCount = 0 Or ShtCount = 1 Then Exit SubApplication.ScreenUpdating = FalseFor i = 1 To ShtCountIf Sheets(i).Name = "目錄" ThenSheets("目錄").Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name <> "目錄" ThenShtCount = ShtCount + 1Sheets(1).SelectSheets.AddSheets(1).Name = "目錄"End IfSheets("目錄").SelectColumns("B:B").Delete Shift:=xlToLeftApplication.StatusBar = "正在生成目錄…………請(qǐng)等待!"For i = 2 To ShtCountActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目錄").Cells(i, 2), Address:="", SubAddress:= _Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets("目錄").SelectColumns("B:B").AutoFitCells(1, 2) = "目錄"Set SelectionCell = Worksheets("目錄").Range("B1")With SelectionCell.HorizontalAlignment = xlDistributed.VerticalAlignment = xlCenter.AddIndent = True.Font.Bold = True.Interior.ColorIndex = 34End WithApplication.StatusBar = FalseApplication.ScreenUpdating = TrueTuichu:End Sub。

本文分享完畢,希望對(duì)大家有所幫助哦。

  免責(zé)聲明:本文由用戶上傳,與本網(wǎng)站立場(chǎng)無關(guān)。財(cái)經(jīng)信息僅供讀者參考,并不構(gòu)成投資建議。投資者據(jù)此操作,風(fēng)險(xiǎn)自擔(dān)。 如有侵權(quán)請(qǐng)聯(lián)系刪除!

 
分享:
最新文章