excel自动产生工作表, 谢谢!

黄海哥 · 发表于 2021-4-7 15:26

各位老师及高手,帮手看看:想从汇总表中,按要求点击后自动新建工作表!如附件!

A1233515 · 发表于 2021-4-7 17:24

到底要在什么条件下执行？

黄海哥 · 发表于 2021-4-7 17:55

A1233515 发表于 2021-4-7 17:24
到底要在什么条件下执行？

抱歉,少了个不!
有内容执行,没内容不执行!

bridgeyao · 发表于 2021-4-7 21:38

看下是否可行，要求月份的明细表数字+月。

bridgeyao · 发表于 2021-4-7 21:56

理解错了，生成空白表格，内容怎么个写法？

黄海哥 · 发表于 2021-4-8 09:14

bridgeyao 发表于 2021-4-7 21:56
理解错了，生成空白表格，内容怎么个写法？

谢谢您帮助!
是我没写明白!内容主要为:将对应月份的数值填入新建工作表中的"金额"列中

黄海哥 · 发表于 2021-4-9 12:45

bridgeyao 发表于 2021-4-7 21:56
理解错了，生成空白表格，内容怎么个写法？

从你的宏中,小修改了一下,好像满足使用要求了!谢谢你!!!

具休如下
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
R = Selection.Column
If Target.Row = 3 And Target.Column > 3 And Target.Column < 16 Then
         If Application.Sum(Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 8, Target.Column))) > 0 Then
            Sheets("1月").Copy after:=Sheets(Sheets.Count)
            'ActiveSheet.[h4:h11].ClearContents
            ActiveSheet.[b1] = Target & "份绩效"
For i = 4 To 11
ActiveSheet.Cells(i, 8) = Sheet1.Cells(i, R)
Next i
            ActiveSheet.Name = Target.Text

         End If
End If
End Sub

sobili · 发表于 2021-4-9 23:09

看下这个可行？

sample.rar (31.8 KB, 下载次数: 12)

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

[求助] excel自动产生工作表, 谢谢!