经常调用工作表名称 如何定义一下 我试了下变量这种定义不行啊

咱村

Sub aa()
Dim a, b
a = Sheet1
b = Sheet2
If a.[a1] = 1 Then
b.[a1] = 2
End If
End Sub

好多地方要写sheet1 .[a1]这种带工作表名称的，有什么好的办法没。

用with sheet1 的话下边只能针对这一个表，因为公式两边会用到sheet1和sheet2  如何好调用啊。谢谢啦

syj2004hg

dim sht1,sht2
set sht1=sheet1
set sht2=sheet2

yuwd3

set a = Sheet1

yuwd3

用with 更好吧，运行速度快，书写也方便

咱村

可以设置为整个vba全局使用的吧。

一指禅62

是不是这个意思？

1. Public Function FA(Index As Integer) As Range
   
2.     Select Case Index
   
3.         Case Is = 1: Set FA = Sheet1.Range("A1")
   
4.         Case Is = 2: Set FA = Sheet2.Range("A1")
   
5.         Case Is = 3: Set FA = Sheet3.Range("A1")
   
6.     End Select
   
7. End Function
   
8. 
   
9. Sub 测试()
   
10.     MsgBox FA(1).Address(External:=True)
    
11. End Sub

复制代码

测试.zip (8.9 KB, 下载次数: 1)

2020-2-14 20:17 上传

点击文件名下载附件