[已解决][求助]如何在新建表格时同时以表格的名字定义名称

zjsxzgx · 发表于 2010-3-1 18:28

如在管理页面的B1输入任意字符点击【输入数据】将自己创建一个【任意字符】为名字的表格，但是我还想用这个【任意字符】命名文件名在B列定义一个名称，名称的名字就是在B1中输入的字符。该如何操作？

6fWghEdX.rar (10.34 KB, 下载次数: 2)

爱疯 · 发表于 2010-3-1 19:26

Private Sub 输入数据_Click()
    Dim ShName As String
    ShName = Range("B1")
    On Error Resume Next
    Debug.Print Sheets(ShName).Name
    If Err.Number <> 0 Then
        Err.Clear
        Sheets.Add
        ActiveSheet.Name = ShName
        With Sheets(ShName)
            Sheets(ShName).Select
            Sheets(ShName).Move After:=Sheets(3)
            Columns(2).Name = ShName
            Sheets("管理").Select
        End With
    End If
    On Error GoTo 0

End Sub

只+了1句，蓝色的，是这样吗

[em09]

extyg · 发表于 2010-3-1 19:32

Private Sub 输入数据_Click()
End Sub

[此贴子已经被作者于2010-3-1 22:20:11编辑过]

zjsxzgx · 发表于 2010-3-1 20:26

谢谢 2位，我要的是定义B列

如我建立一个DDD的表格就在B列定义 DDD

如图

[求助]如何在新建表格时同时以表格的名字定义名称

zjsxzgx · 发表于 2010-3-2 10:23

请高手帮忙

爱疯 · 发表于 2010-3-2 10:34

nJVtni8o.rar (12.55 KB, 下载次数: 6)

zjsxzgx · 发表于 2010-3-2 10:57

谢谢就是这个意思

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