1樓:匿名使用者
worksheet代表一張工作表。worksheet 物件是 worksheets 集合的成員。worksheets 集合包含工作簿中所有的 worksheet 物件。
worksheet 物件用法
以下對下列返回 worksheet 物件的屬性進行說明:
worksheets 屬性
activesheet 屬性
worksheets 屬性
可用 worksheets(index)(其中 index 為工作表編號或名稱)返回單個 worksheet 物件。下例隱藏活動工作簿中的第一張工作表。 worksheets(1).
visible = false
工作表編號指示該工作表在工作簿的標籤欄上的位置。worksheets(1) 為工作簿中第一個(最左邊的)工作表,而 worksheets(worksheets.count) 為最後一個。
所有工作表均包括在編號計數中,即便是隱藏工作表也是如此。
工作表的名稱顯示在工作表的標籤上。使用 name 屬性可設定或返回工作表的名稱。
activesheet 屬性
當工作表處於活動狀態時,可用 activesheet 屬性來引用它。下例使用 activate 方法啟用工作表 sheet1,將頁方向設定為橫向,然後列印該工作表。
worksheets("sheet1").activate
activesheet.pagesetup.orientation = xllandscape
activesheet.printout
sheets 集合物件
指定工作簿或當前活動工作簿中所有工作表的集合。sheets 集合可包含 chart 物件或 worksheet 物件。
如果希望返回所有型別的工作表,sheets 集合就非常有用。如果僅需使用某一型別的工作表,請參閱該工作表型別的物件主題。
sheets 集合物件的的用法
可用 sheets 屬性返回 sheets 集合。下例列印當前活動工作簿上的所有工作表 sheets.printout
可用 add 方法新建工作表並將其新增到集合中。下例向當前活動工作簿新增了兩個圖表工作表,並將其置於工作簿中的工作表二之後。 sheets.
add type:=xlchart, count:=2, after:
=sheets(2)
可用 sheets(index) 返回單個 chart 物件或 worksheet 物件,其中 index 為工作表名稱或編號。下例啟用工作表 sheet1。sheets("sheet1").
activate
可用 sheets(array)
指定多個工作表。下例將工作表「sheet4」和「sheet5」移到工作簿的前部。sheets(array("sheet4", "sheet5")).
move before:=sheets(1)
2樓:
with sheets("sheet1")..........過程........
end with
或者set s = sheets("sheet1")s.cells(2, 2) = .........
set s = nothing
等多種方式
3樓:揭戈雅
excel vba各種實現 各種幫助解決
excel vba 如何用變數賦值公式中的工作表? 10
4樓:陽光上的橋
下面一行三個紅色的ls替換為下面內容(注意必須保留空格、注意英文的符號、建議複製):
"& ls &"
在excel vba中,如何在**中表達變數的工作表名
5樓:dej**u樂桃桃
sub dfsa()
an = sheets(sheets.count - 1).namesheets(sheets.
count - 3).selectactivesheet.cells(4, 5).
selectactivecell.formular1c1 = "=" & an & "!r[2]c[2]"
end sub
6樓:匿名使用者
b=1x="測試表" & b
sheets(x).select
excel vba中 想用sheets("某某某").select來選中sheet,某某某為變數,如何在雙引號之間維持這個變數
7樓:
dim str$
str="工作表1"
sheets(str).select
vba公式中如何用變數表示工作表名稱和單元格名稱
8樓:表裡如一
你把excel**裡面的公式寫出來。
你這個用r1c1表示法裡面看不出來'3data'!r2c9:r579c9=rc3 裡面的rc3表示哪一個單元格。是沒法幫你改的。
而且這種表示法你用來攜程vba誰能一目瞭然的看明白?
用activecell.formula方法表示就好,又簡單,也能看明白。後續修改也簡單易行。
9樓:姓王的
主要問題是連線符 & 與變數間沒有空格。另外雙引號有的是中文引號。下面改好了
activecell.formular1c1 = "=sumproduct(('" & m & "data'!r2c1:
r" & drow & "c1=""02incoming"")*('" & m & "data'!r2c9:r" & drow & "c9=rc3)*('" & m & "data'!
r2c2:r" & drow & "c2))"
10樓:三井熊
&的前後各加一個空格試一下
excel中如何用vba將工作表sheet1重新命名,因為要重新命名的名稱是變數,所以搞不定。
11樓:20時13分14秒
sub rename
mydate = format(date, "[$-409]dd-mmm-yy;@") '得到美式的日期格式
mymonth = split(mydate, "-") 'split此日期格式,找到當前的月份的英語簡寫
myname = ucase(mymonth(1)) & ucase(mymonth(0)) & year(date) & "n" '你需要的格式
sheets(1).name = mynameend sub
12樓:
1為設定,2為恢復
sub macro1()
sheets("sheet1").selectsheets("sheet1").name = left(now(), 10) & "n"
end sub
sub macro2()
sheets(left(now(), 10) & "n").select
sheets(left(now(), 10) & "n").name = "sheet1"
end sub
13樓:匿名使用者
sub test()
sheets("sheet1").name = format(date, "mmmddyyyy")
end sub
用如如如如造句
青春如初春,如朝日,如百卉之萌動,如利刃之新發於硎,人生最寶貴之時期也。青年之於社會,猶新鮮活潑細胞之在身。陳獨秀 2 貓的叫聲,有時會如睡夢中嬰兒的呢喃,有時會如情人的手般輕柔,有時會如午夜惡魔般猙獰,有時會如痛不欲生的哭喊般淒厲。3 我藉著柔和的月光,只見曇花它那白淨的花瓣潤如玉,白如絹,輕如絹...
如什麼如什麼
如痴如醉 如夢如幻 如景如畫 如痴如呆 如 好像。形容極其迷戀某事。如痴如狂 形容神態失常,不能自制。亦指為某人某事所傾倒。同 如醉如狂 如痴如夢 形容處於不清醒 迷糊狀態中。同 如醉如夢 如痴如醉 形容神態失常,失去自制。如珪如璋 珪 玉器 璋 古代貴重的禮器。比喻人品質高尚,氣宇軒昂。如圭如璋 ...
挺拔如什麼,清亮如什麼,凝滑如什麼,浩瀚如什麼,虛懷若什麼,揮金如什麼,月光如
挺拔如峰 清亮如溪 凝滑如脂 浩瀚如海 虛杯若谷 揮金如土 月光如水。1 挺拔如峰 有 直立而高聳 強勁有力的 意思。2 清亮如溪 形容某事物清澈明亮,就像溪水。3 凝滑如脂 像凝固的油脂,形容 潔白且細嫩。4 浩瀚如海 比喻水勢廣大的樣子。一般比喻氣勢巨集偉。5 虛杯若谷 指胸懷像山谷那樣深而且寬...