[已解决]如何用变量表示工作表的序列？

蝶·舞 · 发表于 2012-10-13 21:44

我想问一下，如果红印部分用变量来表示，该如何表示法？

最佳答案

extyg

2012-10-14 11:25

本帖最后由 extyg 于 2012-10-14 11:28 编辑

不要把标签名称与Codename搞混：

Sub test()
Dim i
i = 1
With Sheets(ThisWorkbook.VBProject.VBComponents("Sheet" & i).Properties(6).Value)
MsgBox .[a2]
End With
MsgBox Sheets(i).[a2]
MsgBox Sheets("Sheet" & i)
End Sub

Book1.rar (7.72 KB, 下载次数: 11)

5201314 · 发表于 2012-10-13 21:59

Sub Test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets("Sheet" & i).Select
Next
End Sub

复制代码

lisachen · 发表于 2012-10-13 22:10

你说的是Codename吗
MsgBox Worksheets(1).CodeName

蝶·舞 · 发表于 2012-10-13 22:17

5201314 发表于 2012-10-13 21:59

如果我想用with sheet2，但这个2是用变量来表示的，该如何写代码？

5201314 · 发表于 2012-10-13 23:01

蝶·舞发表于 2012-10-13 22:17
如果我想用with sheet2，但这个2是用变量来表示的，该如何写代码？

Sub Test2()
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets("Sheet" & i)
.Range("A1") = "变量"
.Range("A2") = i
End With
Next
End Sub

复制代码

5201314 · 发表于 2012-10-13 23:03

5201314 发表于 2012-10-13 23:01

Sub Test3()
Dim i As Integer
i = 2
With Sheets("Sheet" & i)
.Range("A1") = "变量"
.Range("A2") = i
End With
End Sub

复制代码

上清宫主 · 发表于 2012-10-14 07:53

好象不可以，得变通着来用

蝶·舞 · 发表于 2012-10-14 08:58

5201314 发表于 2012-10-13 23:01

这个似乎对我图中所标记的序列没用

dpdmlym · 发表于 2012-10-14 09:34

Sub 用变量表示工作表()
      Dim i As Integer
      For i = 1 To Sheets.Count
            With  Sheets( i )
                     .Range("a1") = 123
                     .Range("b1") = 321
            End With
      Next i
End Sub

extyg · 发表于 2012-10-14 11:25

本帖最后由 extyg 于 2012-10-14 11:28 编辑

不要把标签名称与Codename搞混：

Sub test()
Dim i
i = 1
With Sheets(ThisWorkbook.VBProject.VBComponents("Sheet" & i).Properties(6).Value)
MsgBox .[a2]
End With
MsgBox Sheets(i).[a2]
MsgBox Sheets("Sheet" & i)
End Sub

Book1.rar (7.72 KB, 下载次数: 11)

		自动登录	找回密码
密码			注册