請教要如何更改excel工作表索引標籤名稱的問題??

Question

如題 但我的問題不是點選工作表索引標籤按右鍵去更改,我希望能在儲存格中輸入後直接會更改索引標籤的名稱
如 我在第一張工作表A1輸入甲,在A2輸入乙,在A3輸入丙
這時在工作表索引標籤的名稱會自動更改為甲,乙,丙
不知是否有方法做得到??

Answer 1

用VBA可達成! 按Alt+F11,會跳出一個視窗  在視窗的左上附近,點ThisWorkBook兩下 貼上以下程式到右邊空白處 再按Alt+F11回到excel工作表即可 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)    TC = Target.Row    TR = Target.Column    If (TR = 1 And TC = 1) And (Cells(TR, TC).Value <> "") Then        ActiveSheet.Name = Cells(TR, TC).Value    End IfEnd Sub

2006-09-28 10:18:32 補充：
我的OK耶...您是貼在ThisWorkBook嗎?

2006-09-28 11:35:52 補充：
我誤會了..sorry,將以下Copy到sheet1下:
Private Sub Worksheet_Change(ByVal Target As Range)
TR = Target.Row
TC = Target.Column
If (TR = 1 And TC = 1) And (Cells(TR, TC).Value <> "") Then
Sheet1.Name = Cells(TR, TC).Value
End If

2006-09-28 11:35:58 補充：
If (TR = 2 And TC = 1) And (Cells(TR, TC).Value <> "") Then
Sheet2.Name = Cells(TR, TC).Value
End If
If (TR = 3 And TC = 1) And (Cells(TR, TC).Value <> "") Then
Sheet3.Name = Cells(TR, TC).Value
End If
End Sub

2006-09-28 11:37:16 補充：
我本來以為是在每個sheet的A1輸入文字,就將該sheet的名稱改成該文字...我可能沒睡飽^_^

2006-10-02 09:04:48 補充：
哈哈,我昨天真的去配眼鏡了耶..花了5000現大洋...GOD~

Answer 2

讚～～
又學了一招^^

Answer 3

Nice ya.........

2006-09-28 10:05:30 補充：
大師，我貼過去那ㄟ沒效？

2006-09-28 10:40:17 補充：
目前只有 Sheet1 會改變耶～
其他乙、丙，也就是 Sheet2, Sheet3 不會動喔～

2006-09-30 01:42:33 補充：
jackylu, 你的眼鏡要換一下唷～
看「寶島」的有無較優？