返回列表 上一主題 發帖

Sheets 使用變數的語法 ?

oliwa

帖子
40 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-9 
最後登錄
2021-7-2 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-6 00:07 | 只看該作者

Sheets 使用變數的語法 ?

Sheets("temp") , 指 temp 為名的 Sheet ,
如果 temp 是由使用者輸入時 , 那語法應該如何寫 ??
因 Sheets(temp) , 都顯示錯誤 ....
    Sheets("temp") , 又指定為 temp , 非使用者所輸入的
收藏 分享

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
2#
發表於 2015-4-7 22:57 | 只看該作者
回復 1# oliwa

不知是否是你要的功能

Sub test()
   Dim temp$
   temp = InputBox("Please input sheet Name")
   Sheet2.Name = temp
End Sub

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
3#
發表於 2015-4-8 11:31 | 只看該作者
假設你將想要設定的名稱依序放在一個叫做sheet3的sheet 的a1, a2, a3......
那他就可以依序幫你直接寫入每個sheet的Name
Sub xx()
For sh = 1 To 10
Sheets(sh).Name = Sheets("sheet3").Range("a" & sh)
Next

End Sub

TOP

oliwa

帖子
40 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-9 
最後登錄
2021-7-2 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2015-4-9 19:07 | 只看該作者
我後來試到
With Sheets("" & Data_Comp & "")
就成功了 , 但我不知何意 ?
Data_Comp是另一個程序呼叫時的參數 .....
感謝各位協助 ....

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題