Question

大家好，我需要你的帮助，我是一名学习老师，对excel宏的了解很少。我创建了一个excel工作表，其中包含一个包含学生姓名和课程分数的表格，我需要一个宏来为每个学生（每一行表格）创建一个报告给我作为报告模板创建的模板

我一直在寻找互联网上的任何提示或帮助，但到目前为止没有运气。

我已经尝试过搜索，并找到了一些例子，但没有一个非常适合......就像这一个..创建宏将excel行从单张表转换为新表..或者这一个.. Excel宏将从一张纸输入的数据保存到另一张纸上的连续行中非常感谢你

Answer 1

请根据需要尝试自定义此代码：
（我的主表标题是：student_id | name | surname | group）

Sub gen_reports()

Set ref_col = Application.Selection
Set ref_col = Application.InputBox("Select ID col of main table", xTitleId, ref_col.Address, Type:=8) ' select students from student_id col

For Each C In ref_col
    Worksheets.Add.Name = C.Offset(0, 1) ' create a sheet for each student
   ActiveSheet.Select
   Range("a1").Value = "Report for " & C.Offset(0, 1) & " " & C.Offset(0, 2) & " / " & C.Offset(0, 3) ' fill each sheet with elements from each student

Next
End Sub

您可以根据需要格式化报告（学生表）。例如：范围（＆＃34; a1＆＃34;）。Font.ColorIndex = 44等

Excel宏来创建学校报告

1 个答案: