同一工作簿中依据表名，总表某行自动填列明细表某列内容

fly1215

诚恳请求大佬帮忙，同一工作簿中依据表名，在总表某行 自动填列 明细表某列内容，并保持明细表目标列的格式。（总表中设置一个按钮）

主题思想：设计一个工作任务清单，由总表和每天一个分表构成。 每天按固定格式增加当天工作任务清单（已完成内容划上删除线），同时在总表中自动呈现每天工作任务。
具体详见附件，万分感谢大佬们出手相助！ 工作任务清单.rar (33.33 KB, 下载次数: 23)

2024-7-18 14:09 上传

点击文件名下载附件

蓝桥玄霜

清单的例子：

ynzsvt

1. Sub 对话气泡圆角矩形1_Click()
   
2. Dim i&, j&, aRR
   
3. For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
   
4.   If Len(Cells(i, "B").Value) > 0 Then
   
5.    With Worksheets(Cells(i, "B").Value)
   
6.     aRR = .Range(.[D7], .Cells(Rows.Count, "c").End(xlUp))
   
7.     For j = 1 To UBound(aRR)
   
8.      Cells(i, j + 3) = aRR(j, 1)
   
9.      Cells(i, j + 3).Font.Strikethrough = aRR(j, 2)
   
10.     Next j
    
11.    End With
    
12.   End If
    
13. Next i
    
14. End Sub

复制代码

fly1215

ynzsvt 发表于 2024-7-18 21:15

太神奇了，太感谢老师！！

fly1215

蓝桥玄霜 发表于 2024-7-18 15:47
清单的例子：

感谢大师！！感谢！