生成多个工作表，然后可以录入数据

yw513225439

需求：1、以“样表”为模板生成多个工作表，生成的工作表以“基础数据”表C列项目命名，同时在每个工作表内C1、D1、E1分别填入“基础数据”表对应的区域、片区、项目；
          2、在“数据录入”表C1、D1、E1选择对应的项目后，然后在白色单元格位置填写数据后，自动填充到对应的工作表内；
跪谢各位老师的帮助。。。。

3190496160

Sub 新建()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, rs As Long
Dim d As Object '
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets '
    If sh.Index > 3 Then
        d(sh.Name) = ""
    End If
Next sh
With Sheets("基本数据")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs < 3 Then MsgBox "基本数据为空！": End
    ar = .Range("a2:c" & rs) '
End With ''
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        mc = Trim(ar(i, 3))
        If Not d.exists(mc) Then
            m = m + 1 ''
            Sheets("样表").Copy after:=Sheets(Sheets.Count) '
            With ActiveSheet
                .Name = mc ''
                .[c1] = ar(i, 1)
                .[d1] = ar(i, 2)
                .[e1] = ar(i, 3)
            End With
        End If
    End If
Next i
Set d = Nothing
If m = "" Then
    ts = "本次没有创建工作表！"
Else
    ts = "本次创建了" & m & "个工作表！"
End If ''
Application.ScreenUpdating = True
MsgBox ts
End Sub

3190496160

新建 XLSX 工作表.rar (208.77 KB, 下载次数: 20)

2022-11-17 21:39 上传

点击文件名下载附件

yellowhawk

我都没看明白，二楼的高手就做出来了。

yw513225439

3190496160 发表于 2022-11-17 21:39

非常感谢，另外如果要生成工作表的同时隐藏工作表，需要加什么代码呢

3190496160

yw513225439 发表于 2022-11-18 00:09
非常感谢，另外如果要生成工作表的同时隐藏工作表，需要加什么代码呢

你究竟想干嘛呢？隐藏很简单，关键是，隐藏后你想干嘛

yw513225439

3190496160 发表于 2022-11-18 09:50
你究竟想干嘛呢？隐藏很简单，关键是，隐藏后你想干嘛

因为这种分表会很多，有上百个，这些表只用来存储每个项目的数据，查看都是在第一个表选择项目后链接到对应的分表。

3190496160

yw513225439 发表于 2022-11-18 10:04
因为这种分表会很多，有上百个，这些表只用来存储每个项目的数据，查看都是在第一个表选择项目后链接到对 ...

问题是，隐藏了工作表后，你简单的链接就不能打开相应工作表了，就得用代码来先取消隐藏，然后再打开工作表

Hontyu

楼主,求助先给答疑的老师送花吧,这样显得醒目点

yw513225439

3190496160 发表于 2022-11-18 10:09
问题是，隐藏了工作表后，你简单的链接就不能打开相应工作表了，就得用代码来先取消隐藏，然后再打开工作 ...

好的，那就不用隐藏了，这样就可以了，谢谢