vba中将变量代替关键字的替换方法

来源：百度知道 编辑：UC知道 时间：2024/06/12 20:38:59
excel中编了个vba，用到了一句语句就是打印时页码的位置，我先用一个变量d来代替页码位置，比如d＝LeftHeader;在页码赋值时要用到：Sheets("sheet1").PageSetup.LeftHeader = i，我现在想在Sheets("sheet1").PageSetup.LeftHeader = i这句中，将“LeftHeader”用变量d来代替（因为可能是RightHeader等内容，不一定就是LeftHeader），应该用个什么连接符来连接或函数来进行代替才行，比如：Sheets("sheet1").PageSetup.d＝i这种方式，当然，这是不行的。

对不起 没有
只有做一个判断：
dim d as integer
select case d
case 1
Sheets("sheet1").PageSetup.LeftHeader = i
case 2
Sheets("sheet1").PageSetup.RightHeader = i
case …………
……
case else
'都不符合 在这里写
end select

你可以这样：
Select Case d
Case "LeftHeader"
Sheets("sheet1").PageSetup.LeftHeader = i
Case "RightHeader"
Sheets("sheet1").PageSetup.RightHeader= i
End Select
只能这样了，因为现在的程序是不可能在运行时改变代码的。以前的DBase，Foxbase可以