excel vba sheets如何用變數工作表

2022-05-16 21:16:40 字數 3703 閱讀 4665

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 虛杯若谷 指胸懷像山谷那樣深而且寬...