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

PKKO

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

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

GBKEE

回復 1# PKKO
將UserForm的變數名稱,在一般模組內(非物件模組(UserForm,ThisWorkbook,Sheet1... )
宣告為這專案的 Public 公用變數,如此UserForm的變數,可在一般模組內呼叫到

PKKO

回復 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

回復 2# GBKEE

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

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

複製代碼

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

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

複製代碼

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

GBKEE

回復 4# PKKO
試試看

模組頂端宣告私用變數
Dim S As Range

1.   With Sheets("資料庫")
   
2.     If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
   
3.         C = .Cells.Find(sheetname, Lookat:=1).Column
   
4.         Set S = .Cells(2, C).Resize(16)
   
5.         Sheets("DIR").Activate
   
6.     Else
   
7.         MsgBox "請重新確認!"
   
8.     End If
   
9. 
   
10. End With

複製代碼

1. For Each E In S
   
2.     Set ctrl = S
   
3.     If ctrl = " " Then ctrl = ""
   
4. Next

複製代碼

PKKO

回復 5# GBKEE

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

1. Public q As Range, myArray()'模組頂端,因為別的模組有用到因此宣告public
   
2. With Sheets("資料庫")
   
3.     If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
   
4.         c = .Cells.Find(sheetname, Lookat:=1).Column
   
5.         Set q = .Cells(2, c).Resize(16)
   
6.         Sheets("DIR").Activate
   
7.     Else
   
8.         MsgBox "請重新確認!"
   
9.     End If
   
10. 
    
11. End With
    
12.     c = 0
    
13.     ReDim myArray(0 To 15)
    
14.     For Each E In q
    
15.         Set ctrl = E'其實這邊可以不需要了
    
16.         If ctrl = " " Then myArray(c) = "" Else myArray(c) = ctrl'把ctrl換成E就可以了
    
17.         c = c + 1
    
18.     Next

複製代碼

GBKEE

回復 6# PKKO

1. Dim i As Integer
   
2.     With Sheets(1)
   
3.         If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
   
4.             c = .Cells.Find(sheetname, Lookat:=1).Column
   
5.             Set q = .Cells(2, c).Resize(16)
   
6.             Sheets("DIR").Activate
   
7.         Else
   
8.             MsgBox "請重新確認!"
   
9.         End If
   
10.     End With
    
11.     myArray = Application.WorksheetFunction.Transpose(q)
    
12.     For i = 1 To q.Count
    
13.         If ctrl = " " Then myArray(i) = "" Else myArray(i) = ctrl
    
14.    
    
15.     Next
    
16. '***************************
    
17.     'For i = 1 To UBound(myArray)
    
18.     '   If ctrl = " " Then myArray(i) = "" Else myArray(i) = ctrl
    
19.     'Next

複製代碼

'***************************

PKKO

回復 7# GBKEE


    感謝超版大大,又再次學習了
但您的意思因該是改為這樣,因為ctrl並沒有使用的必要了

1. myArray = Application.WorksheetFunction.Transpose(q)
   
2.     For YY = 1 To q.Count
   
3.         If myArray(YY) = " " Then myArray(YY) = ""
   
4.     Next

複製代碼

實驗過了,此方法也完全可行,且撰寫速度更加快速