- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 20# EGBT - Sub Ex()
- Dim 數值表 As Variant, 陣列表 As Variant, E As Variant
- 'Variant 資料型態是所有沒被明確宣告為其他型態,可以為認何的資料型態
- For Each E In Sheets
- If E.Name Like "數值*" Then
- 數值表 = 數值表 & "," & E.Name '字串:集合數值表
- MsgBox VarType(數值表) '8 (字串 )
- End If
- Next
- '*******************************************
- 'Split : 字串以 "," (任何指定的字串) 分割而成為陣列
- 數值表 = Split(Mid(數值表, 2), ",")
- '*******************************************
- MsgBox VarType(數值表) '8192 (陣列) + 8 (字串 )
- For Each E In Array("數值1", "數值2", "數值3") '工作表陣列(數值表)
- MsgBox VarType(E) '8 (字串 )
- Next
- 'For Each E In Sheets(Array("數值1", "數值2", "數值3")) '工作表陣列(數值表)
- For Each E In Sheets(數值表) '工作表陣列(數值表)
- MsgBox VarType(E) ' 9 物件
- Next
- End Sub
|
|
發表於 2015-9-4 06:02
| 
發表於 2015-9-4 08:44
| 
