[MS Excel]工作表名稱

製作「批量修改工作表名稱」的步驟如下：
1.選取菜單「開發人員(Developer)」> 「Visual Basic」> 「插入(Insert)」>「模組(Module)」
然後位置繪出按鈕。
2. 將以下的程式碼複製至模組空白位置上。
Sub RenameTabs()
'Update by 20150505
Dim s As String, yyyy As String, mmm As String, i As Long, j As Long, y As Integer, m As Integer, d As Integer, dom As Date, m_days As Integer, n As Integer
'Extract the year and month from the first sheet based on hyphen as delimiter
s = Application.Sheets(1).Name
i = InStr(s, "-")
j = InStrRev(s, "-")
yyyy = Left(s, i - 1)
mmm = Mid(s, i + 1, j - i - 1)
If IsNumeric(yyyy) Then
y = CInt(yyyy)
Else
y = 0
End If
If IsNumeric(mmm) Then
m = CInt(mmm)
Else
m = 0
End If
'Proceed only when year and month are valid numbers
If y <> 0 And m <> 0 Then
If m = 12 Then
m = 1
y = y + 1
Else
m = m + 1
End If
MsgBox "Tabs will be renamed to " & y & "-" & m
'Calculate number of days in the new month
dom = CDate("1" & "/" & CStr(m) & "/" & CStr(y))
m_days = Day(DateSerial(Year(dom), Month(dom) + 1, 1) - 1)
'Judge the number of sheets to be renamed
If m_days > Application.Sheets.Count Then
n = Application.Sheets.Count
Else
n = m_days
End If
'Rename the tab of sheets
d = 1
For i = 1 To n
Application.Sheets(i).Name = CStr(y) & "-" & CStr(m) & "-" & CStr(d)
d = d + 1
Next
End If
End Sub

3. 按「執行」鍵測試程式能否正常執行，並檢視修改工作頁名稱是否取得預期結果。如是，可按「檔案(File)」> 「結束及返回微軟試算表(Close and Return to Microsoft Excel)」，然後儲存工作簿。
4. 下次修改工作頁名稱，只需要再次執行此RenameTabs程式即可，但留意因每月日數不同，比日數多出的工作頁名稱將不會作出任何修改或刪除。

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

用人手改就可以，幾分鐘改哂。