[發問] 如何將模組內的變數Set為變數? (例如controls的功能)

假設我有s1~s100的變數
在userform上面可以使用
For j = 1 To 100
Set ctrl1 = ("s" & j)
If ctrl1 = " " Then ctrl1 = ""
Next

但是在模組內(非userform)卻無法這樣使用
該使用何種相關功能的關鍵字呢~?

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-12-14 16:47 | 顯示全部帖子

回復 2# GBKEE

超版大大您好,抱歉,我說明的不夠清楚

我想問的是:

在模組內的變數假設有100個
分別命名為S1~S100
我希望透過判斷是IF S1 ="HH" THEN S1 = "YY"
但這簡單的程式碼要寫一百行(S1~S100)也挺辛苦的
是否有辦法可以

FOR I = 1 TO 100
SET Sxx="S" & I
IF Sxx ="HH" THEN Sxx = "YY"
NEXT

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-12-15 07:29 | 顯示全部帖子

回復 2# GBKEE

超版大大您好,主要是檔案裡面的這段程式碼

With Sheets("資料庫")
If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
c = .Cells.Find(sheetname, Lookat:=1).Column
s1 = .Cells(2, c): s2 = .Cells(3, c): s3 = .Cells(4, c): s4 = .Cells(5, c)
s5 = .Cells(6, c): s6 = .Cells(7, c): s7 = .Cells(8, c): s8 = .Cells(9, c)
s9 = .Cells(10, c): s10 = .Cells(11, c): s11 = .Cells(12, c)
s12 = .Cells(13, c): s13 = .Cells(14, c): s14 = .Cells(15, c)
s15 = .Cells(16, c): s16 = .Cells(17, c)
Sheets("DIR").Activate
Else
MsgBox "請重新確認!"
End If
End With

複製代碼

但我想把S1~S16做點改變
所以想在程式碼最後面加上一段

For I = 1 To 16
Set ctrl = ("s" & I)
If ctrl = " " Then ctrl = ""
Next

複製代碼

但是會出現錯誤訊息" 型態不符合"

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2014-12-15 10:38 | 顯示全部帖子

本帖最後由 PKKO 於 2014-12-15 10:40 編輯

回復 5# GBKEE

感謝超版大大,小弟學習了
以下是小弟實際的程式碼(學習後改版)
改版原因是
原本S1~S16都是需要應用的,現在反而S1~S16沒有值了
因此將大大您的S改成Q(因為原本S已經有使用),用Q的值拆開成為陣列,就可以用陣列去讀值
目前實驗完成,已可完美使用,再次感謝超版大大