當(dāng)你覺(jué)得生活不盡如意,只要問(wèn)自己一個(gè)問(wèn)題,你為自己想要的東西付出過(guò)什么?你想變得更貴,就要付出很多時(shí)間;你要的越多,你付出的代價(jià)越大。只有相信世界是公平的,你的煩惱才能少一點(diǎn)
在工作簿中添加工作表使用Add方法,如下面的代碼所示:
#001 Sub Addsh()
#002 DimSh As Worksheet
#003 With Worksheets
#004 Set Sh =.Add(after:=Worksheets(.Count))
#005 Sh.Name = '數(shù)據(jù)'
#006 EndWith
#007 End Sub
代碼解析:
Addsh過(guò)程使用Add方法在工作簿中新建“數(shù)據(jù)”工作表。
第2行代碼聲明變量Sh為工作表對(duì)象。
第4行行代碼使用Add方法在工作簿的最后新建“數(shù)據(jù)”工作表。
Add 方法應(yīng)用于Sheets和Worksheets對(duì)象時(shí)新建工作表、圖表或宏表,語(yǔ)法如下:
expression.Add(Before,After, Count, Type)
參數(shù)Before是可選的,指定工作表對(duì)象,新建的工作表將置于此工作表之前。
參數(shù)After是可選的,指定工作表對(duì)象,新建的工作表將置于此工作表之后。
如果Before和 After兩者均省略,則新建的工作表將插入到活動(dòng)工作表之前。
參數(shù)Count可選,要新建的工作表的數(shù)目。默認(rèn)值為 1。
參數(shù)Type可選,指定新建的工作表類(lèi)型。
第5行代碼將添加的工作表重命名為“數(shù)據(jù)”
PS:
如果需要添加多個(gè)工作表,外加一個(gè)For。。。Next循環(huán)即可
我是張小懶
一個(gè)愛(ài)偷懶的家伙
一個(gè)要變得越來(lái)越自信的家伙
一個(gè)正在積極努力讓自己變好的家伙
“ 轉(zhuǎn)給那些喜歡的小伙伴吧 ”
大講堂 |讓我們有態(tài)度的學(xué)習(xí)Excel
編輯 |愛(ài)“偷懶”的張小懶
轉(zhuǎn)載請(qǐng)注明出處
聯(lián)系客服