返回列表 上一主題 發帖

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

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-11 11:25 | 顯示全部帖子

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

我想要建立一個名單的工作表，裏面是名單的表列

請問如何可以按名單(像超連結)就可以新建一個空白的工作表(有舊的格式空白工作表了)，如果工作表名稱已存在，就開啟那個工作表。

例如：工作表(名單)--內有：張三，李四，王五
        工作表(空白工作表)
點擊「張三」儲存格，就可以複製「空白工作表」名稱是「張三」，如果「張三」工作表已存在則開啟「張三」工作表


以上，麻煩各位大大們了~~
----------------
以前有用過「按鈕」方式新建工作表

Private Sub CommandButton1_Click()
Dim I As String
  
    I = InputBox("請輸入客戶姓名.", "Copy Sheet")
    If I <> "" Then
        Sheets(1).Copy After:=Sheets(Sheets.Count) '複製第一個工作表並放到最後一個
        Sheets(Sheets.Count).Name = I              '最後一個工作表的名稱=I
    Else
        MsgBox "複製失敗(資料表未輸入名稱)"
    End If
End Sub

希望要更方便些~~~ 感恩~~~~~
收藏 分享
仁兄

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
2#
發表於 2013-6-11 19:26 | 顯示全部帖子
回復  pitera88

這個是選上任何一個格子時會發生,有需要可以加上指定範圍緊記代碼要放在工作表裡
kimbal 發表於 2013-6-11 13:41



    謝謝大大的提供方法，
不過請問可以：1新生成的工作表是放在最後。
　　　　　　　２已經有的工作表就開啟工作表，不然會新增的是一個「ＳＨＥＥＴ４」

煩請大大了，感恩！！
仁兄

TOP

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
3#
發表於 2013-6-14 12:36 | 顯示全部帖子
回復  pitera88
stillfish00 發表於 2013-6-13 10:20



    stillfish00 大大，我把程式碼貼上去，可是都沒有動作耶~~

有大大可以試看看嗎?? 感恩!!!!!!
仁兄

TOP

pitera88

帖子
59 
主題
15 
精華
0 
積分
108 
點名
0  
作業系統
winXp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
屏東 
註冊時間
2011-12-16 
最後登錄
2018-8-10 
4#
發表於 2013-6-14 12:58 | 顯示全部帖子
回復 5# pitera88


    還是有大大可以告訴我，
1．判斷這個名字的工作表，是否已存在?  這個命今要怎麼寫??

2．開啟指定工作表的命令是不是 「Worksheets("名字").Activate」??


感恩!!!!!
仁兄

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題