返回列表 上一主題 發帖

[發問] 從儲存格中資料，新建或找到一個工作表

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-6-13 10:20 | 顯示全部帖子
本帖最後由 stillfish00 於 2013-6-13 10:23 編輯

回復 3# pitera88
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Target.Cells(1, 1).Value = "" Then Exit Sub
  3.    
  4.     On Error GoTo ADD_SH
  5.     Sheets(Target.Cells(1, 1).Value).Select
  6.     On Error GoTo 0
  7.    
  8.     Exit Sub
  9.    
  10. 'Error handle
  11. ADD_SH:
  12.     With Sheets.Add(After:=Sheets(Sheets.Count))
  13.         .Name = Target.Cells(1, 1).Value
  14.     End With
  15.     Resume Next
  16. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-6-14 15:38 | 顯示全部帖子
回復 5# pitera88
Sorry，Resume Next 前面漏掉Err.Clear
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Application.EnableEvents = False

  4.     If Target.Cells(1, 1).Value = "" Then Exit Sub   
  5.     On Error GoTo ADD_SH
  6.     Sheets(Target.Cells(1, 1).Value).Select
  7.     On Error GoTo 0

  9.     Application.EnableEvents = True   
  10.     Exit Sub
  11.    
  12. 'Error handle
  13. ADD_SH:
  14.     With Sheets.Add(After:=Sheets(Sheets.Count))
  15.         .Name = Target.Cells(1, 1).Value
  16.     End With
  17.     Err.Clear
  18.     Resume Next
  19. End Sub
複製代碼
。

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題