返回列表下一主題上一主題發帖

Sheets 使用變數的語法 ?

oliwa

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

返回列表下一主題上一主題