返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-13 16:52 | 只看該作者

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

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

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-12-14 06:45 | 只看該作者
回復 1# PKKO
將UserForm的變數名稱,在一般模組內(非物件模組(UserForm,ThisWorkbook,Sheet1... )
宣告為這專案的 Public 公用變數,如此UserForm的變數,可在一般模組內呼叫到
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
3#
發表於 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: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
4#
發表於 2014-12-15 07:29 | 只看該作者
回復 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

  16. End With
複製代碼
但我想把S1~S16做點改變
所以想在程式碼最後面加上一段
  1. For I = 1 To 16
  2.     Set ctrl = ("s" & I)
  3.     If ctrl = " " Then ctrl = ""
  4. Next
複製代碼
但是會出現錯誤訊息" 型態不符合"
PKKO

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2014-12-15 08:27 | 只看該作者
回復 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

  10. End With
複製代碼
  1. For Each E In S
  2.     Set ctrl = S
  3.     If ctrl = " " Then ctrl = ""
  4. Next
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
6#
發表於 2014-12-15 10:38 | 只看該作者
本帖最後由 PKKO 於 2014-12-15 10:40 編輯

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

  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
複製代碼
PKKO

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2014-12-15 16:09 | 只看該作者
回復 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
複製代碼
'***************************
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
8#
發表於 2014-12-15 23:42 | 只看該作者
本帖最後由 PKKO 於 2014-12-15 23:43 編輯

回復 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
複製代碼
實驗過了,此方法也完全可行,且撰寫速度更加快速
PKKO

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題