excel_VBA工作表名稱自動跟著儲存格同步異動

excel vba

johannachang1004 2024-01-12 13:50:38 ‧ 1150 瀏覽

分享至

VBA好難>_<
請問各位先進，一個檔案有多個工作表，僅一個工作表名稱需要自動跟著儲存格異動，有上網作功課，Sub RenameSheet()可以手動執行，但自動跟著儲存格同步，一直搞不出來。請各位大大們指教，謝謝。

froce iT邦大師 1 級 ‧ 2024-01-12 14:06:30 檢舉

看不懂你要啥...

johannachang1004 iT邦新手 5 級 ‧ 2024-01-12 14:46:05 檢舉

我有換一個圖檔，再麻煩高手們幫忙，謝謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

froce

iT邦大師 1 級 ‧ 2024-01-12 15:54:14

最佳解答

放在你要放表名的那張工作表的code區塊，不要放錯。
從B2到B65535都會動作，然後必須依序
值更新後就會自動更新

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("B2:B65535")
   
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        If Sheets.Count >= Target.Row Then
            Sheets(Target.Row).Name = Target.Value
        ElseIf Sheets.Count = Target.Row - 1 Then
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = Target.Value
            Me.Activate
        Else
            MsgBox "請依序輸入"
        End If
    End If
End Sub

回應 3
分享
檢舉

johannachang1004 iT邦新手 5 級 ‧ 2024-01-12 17:08:16 檢舉

請問若要變更自動更名的工作表(目前是工作表2，可改成工作表3或工作表4)，請問要修改哪一個內容?

froce iT邦大師 1 級 ‧ 2024-01-12 18:47:28 檢舉

往下key in就行了，會自動新增

johannachang1004 iT邦新手 5 級 ‧ 2024-01-15 17:09:59 檢舉

謝謝

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙