excel利用自定義函數獲取工作表名稱

excel利用自定義函數獲取工作表名稱

有時需要在工作表中引用同一工作簿中其他工作表名稱，當工作表數量較多時，逐一手工輸入有些繁瑣，這時可以添加一個自定義函數來快速獲取工作表名稱，方法如下：

按Alt+F11，打開VBA編輯器，單擊菜單“插入→模塊”，在代碼窗口中輸入下列代碼：

Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As StringApplication.VolatileGetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).NameEnd Function

上述代碼定義了一個自定義函數GetSheetName，有兩個參數：“idx”為工作表的索引號，“relative_position ”為邏輯型可選參數。“relative_position ”參數為“0”或省略時表示按工作表的絕對位置來獲取工作表名稱，其取值范圍為“1,2,3，……”，當“idx”取這些值時依次獲取工作簿中從左到右的第1,2,3，……個工作表的名稱；該參數為真時按相對位置來獲取工作表名稱，即“idx”參數為“0”時取得當前工作表名稱，為“-1”時取得其左側第一個工作表名稱，為“1”時取得其右側第一個工作表名稱。

示例：

取得第一個工作表的名稱：

=getsheetname(ROW(A1))

向下拖到填充柄填充公式即可依次取得各工作表名稱。

在G11單元格取得當前工作表的名稱：

=getsheetname(ROW()-11,1)

向上填充公式可獲取其左側工作表名稱，向下填充公式可獲取其右側工作表名稱。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。