返回列表 上一主題 發帖

變更工作表名稱

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-31 16:26 | 顯示全部帖子

變更工作表名稱

各位前輩你們好!!
         Sub 變更名稱()
Dim Z
    If MsgBox("您確定要變更工作表名稱嗎?", vbYesNo) = vbYes Then
Again:
       Z = Application.InputBox("輸入名稱", "        請輸入工作表名稱", " 必須是文字 ", Type:=2)
          If Z = "" Or Z = False Then GoTo Again
          ' MsgBox("你所輸入名稱已存在請重新輸入!")
          [C3] = ActiveCell.Row
          If [C3] = 7 Then
          Sheet2.Select
          ElseIf [C3] = 8 Then
          Sheet4.Select
          ElseIf [C3] = 9 Then
          Sheet6.Select
          ElseIf [C3] = 10 Then
          Sheet8.Select
          End If
          ActiveSheet.Name = Z
    ElseIf vbNo Then
          Exit Sub
    End If
         清除工作表
End Sub
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

LeoV66.rar (12.32 KB)

收藏 分享

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2013-3-31 17:41 | 顯示全部帖子
回復 2# Hsieh
偶像前輩!謝謝!
       程式無法辨別相同名
       執行階段錯誤為1004
       還有判定是否為文字加入下面幾行為何無法判定是字串呢?
       For I = 1 To Len(Z)
                If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: '判定是字串
            Next
          If Z < False Then GoTo Again
          If Z > False Then GoTo Again
          If Z = False Then Exit Sub
        再麻煩前輩!指導謝謝再三!!

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2013-3-31 22:57 | 顯示全部帖子
回復 4# Hsieh
像前輩!辛苦囉謝謝再三!!

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題