當(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可選,指定新建的工作表類型。 第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)注明出處 |
|
來(lái)自: 是在下 > 《Excel VBA》