[已解决]Sheet1、sheet2如何用变量表示

ycb20010823 · 发表于 2009-10-17 08:39

工作表中，sheet1,sheet2,sheet3...sheet10如何用变量表示啊？和用sheets(x)根本不一样，这里的sheets(x)是在工作簿中排列的序号而已？

Sheet1、sheet2如何用变量表示

这里的都选工作表3，但是选中的不一样，如下代码

Sheets(3).Select
Sheet3.Select
我要的效果是按着sheet1\sheet2\sheet3来选！！

[此贴子已经被作者于2009-10-17 9:04:16编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2009-10-17 09:27

Sub cc()
    Dim i As Integer, j As Integer
    Dim Str As String

    '依次选择sheet1\sheet2\sheet3
    For j = 1 To 3
        Str = "Sheet" & j

        '通过在循环所有工作表，依次找到sheet1\sheet2\sheet3
        For i = 1 To Sheets.Count
            If Sheets(i).CodeName = Str Then    '如果是Str,则选择
                Sheets(i).Select
                MsgBox "看选对了么"
            End If
        Next i
    Next j
End Sub

Z0EkR2oL.rar (7.54 KB, 下载次数: 61)

E-H-P · 发表于 2009-10-17 08:46

sheet(x)

x可以是工作表的序號,也可以是工作表的名稱.

lotte · 发表于 2009-10-17 08:47

Dim i As Worksheet

For i=1 to Sheets.Count

....

E-H-P · 发表于 2009-10-17 08:50

QUOTE:

以下是引用lotte在2009-10-17 8:47:00的发言：
Dim i As Worksheet

For i=1 to Sheets.Count

....

[em06][em06]

lotte · 发表于 2009-10-17 08:53

[em09][em09][em09]

我市初学V的菜鸟

楼上有何指教就说嘛

指点指点

我洗耳恭听

E-H-P · 发表于 2009-10-17 08:59

QUOTE:

以下是引用lotte在2009-10-17 8:53:00的发言：
[em09][em09][em09]

格式是这样的.只是i的数据类型(worksheet)不对.

worksheet是对象变量.

dim i as integer,i as long 都可以.

[此贴子已经被作者于2009-10-17 8:59:28编辑过]

领风飞翔 · 发表于 2009-10-17 09:01

进来学习[em02]

ycb20010823 · 发表于 2009-10-17 09:12

楼上各位朋友，都好象没有理解我的意思，请看看我再次发的图片，我用代码选出的工作表3，不是一个，我想按着sheet1\sheet2\sheet3、sheet4这样的格式来选！

E-H-P · 发表于 2009-10-17 09:26

sheets(i).codename

爱疯 · 发表于 2009-10-17 09:27

Sub cc()
    Dim i As Integer, j As Integer
    Dim Str As String

    '依次选择sheet1\sheet2\sheet3
    For j = 1 To 3
        Str = "Sheet" & j

        '通过在循环所有工作表，依次找到sheet1\sheet2\sheet3
        For i = 1 To Sheets.Count
            If Sheets(i).CodeName = Str Then    '如果是Str,则选择
                Sheets(i).Select
                MsgBox "看选对了么"
            End If
        Next i
    Next j
End Sub

Z0EkR2oL.rar (7.54 KB, 下载次数: 61)

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