返回列表 上一主題 發帖

想請教關於定義物件語法的疑問？

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-12-1 17:59 | 顯示全部帖子
回復 1# tku0216
Sheets.Add   執行此程式碼後, 作用中的工作表,為此新增的工作表

Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
    Cells(i, 1).Value = Sheets(i).Name  '此Cells 為作用中工作表( 新增的工作表 )的 Cells   
Next i

Set  Sheets.Add(Type:=xlWorksheet).Cells(1, 1).Value = Sheets(1).Name
上式無法加上 Set 定義為物件

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-12-2 17:20 | 顯示全部帖子
回復 3# tku0216
  1. Set newa = Sheets.Add(Type:=xlWorksheet)   'newa 變數 指定為此新增工作表的物件
  2.     For i = 1 To Sheets.Count
  3.     newa.Cells(i, 1).Value = Sheets(i).Name      'newa.Cells(i, 1).Value ->newa物件的Cells(i, 1)
  4.     Next i
複製代碼
  1.      For i = 1 To Sheets.Count   
  2.      Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name   
  3.      '新增工作表的Cells(i, 1).Value = Sheets(i).Name   'Sheets.Count 有多少就新增幾個工作表
  4.      Next i
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-12-6 13:06 | 顯示全部帖子
回復 5# tku0216
沒有區別
  1. Sub Ex()
  2.     For i = 1 To Worksheets.Count
  3.         MsgBox Worksheets(i).Name
  4.     Next
  5. End Sub
複製代碼

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題