Question

excel中怎样用变量代替工作表名称

比如 sheet1.cells(3,4) ,sheet2.cells(3,4),sheet3.cells(3,4).....我想用一个变量，比如
dim s as string s="sheet" & i ,其中i分别等于1,2,3，。。。让后用s.cells(3,4)来依次代替他们。高手请进

Answer 1

set s = sheets(i)
或
set s = sheets("sheet" & i)

区别:
前者是它的索引号(该工作表在当前工作簿中的排序,与工作表名称无关)
后者是它的名称

Answer 2

用＝indirect("sheet"&row(A1)&".cells(3,4)")
再往下填充就行了

Answer 3

Excel中所提的函数其实是一些预定义的公式，它们使用一些称为参数的特定数值按特定的顺序或结构进行计算。这些参数就是函数需要的变量。Excel函数一共有13类，分别是加载宏和自动化函数，多维数据函数，数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。
函数变量可以是数字、文本、逻辑值、数组、错误值或单元格引用。给定的变量必须能产生有效的值，也可以是常量、公式或其它函数，还可以是数组、单元格引用等。
以sum为例：
sum(1,2)计算1+2；
sum（a1，a2）单元格引入，计算a1单元格+a2单元格的数值；
sum（1，true)逻辑值引入，计算1+true，将true变为1进行计算；
sum(if((A2:A11="南部")*(C2:C11="肉类"),D2:D11)) 公式引入并且是数组形式，计算南部地区肉类总销售量 。

Answer 4

Dim i, j, k
'当日
i = UCase(Format(Now, "mmmddyyyy") & "N")
Sheet1.Name = i
'上一日
j = UCase(Format(DateAdd("d", -1, Now), "mmmddyyyy") & "N")
Sheet1.Name = j