- 帖子
- 127
- 主題
- 38
- 精華
- 0
- 積分
- 166
- 點名
- 0
- 作業系統
- Microsoft
- 軟體版本
- Windows 7
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-31
- 最後登錄
- 2018-8-3
|
回復 18# GBKEE
我想要請問大大,- Dim 數值表 As Variant, 陣列表 As Variant, E As Variant, EE As Variant
- Dim Ar(), Ar1(1 To 2), Ar2(), i As Integer, M As Variant
- '假設x1為1~n個sheet (但不知道有幾個sheet),由下面程式碼取得
- For Each E In Sheets
- If E.Name Like "數值*" Then 數值表 = 數值表 & "," & E.Name '字串:集合數值表
- If E.Name Like "陣列*" Then 陣列表 = 陣列表 & "," & E.Name '字串:集合陣列表
- Next
- '*******************************************
- 數值表 = Split(Mid(數值表, 2), ",") '陣列: 字串以","分割為陣列
- 陣列表 = Split(Mid(陣列表, 2), ",")
- ReDim Ar2(0) '重置陣列
- For Each E In Sheets(數值表) '工作表陣列(數值表)
為什麼在下方「If E.Name Like "數值*" Then 數值表 = 數值表 & "," & E.Name」，這感覺有點像把相似「數值」的Sheet放入到數值表裡面，不是陣列也可以這麼做嗎?
還有下方的「For Each E In Sheets(數值表)」將數值表放到「E」裡面..數值表它不是只是普通的變數嗎? 怎麼可以把它變成像是陣列呢?
我是覺得...類似Sheets(數值(S)) <- 是放「數值(S)」陣列，將陣列放到E...
麻煩大大開示 |
|
發表於 2015-9-3 15:33
| 
