如何用excel表格做成绩小条

发布网友 发布时间：2022-04-22 03:36

我来回答

共3个回答

热心网友 时间：2023-12-03 10:22

打开需要制作成绩条的excel文档

2
在整个文档的最左侧插入一列，并在第一个姓名前的单元格里输入数字2，在第二个姓名前的单元格里输入数字4，选中两个单元格，如图所示，鼠标移到单元格的右下角，当鼠标变成黑色的十字时，按住鼠标左键拖动单元格到姓名的最后一行，每个学生前面的一列单元格填充为偶数。

3
将第一行的标题一栏剪切到最后一位学生的下一行，选中，将鼠标移到这行中左边第一个单元格的左下角的黑方块处，如图中箭头指的位置。当鼠标变成黑色十字时，按住鼠标左键并向下拖动鼠标对标题栏进行复制，复制与人数相等个数的标题栏。

4
如图，在第一行标题栏前面的空白单元格中输入数字1，第二行标题栏的空单元格中输入3，用步骤2里的方法将标题栏前面的空白单元格中填充为奇数数字，如图所示。

5
选中第一列，如图进行升序排列。

6
最后对格式稍加修改，打印出来进行裁剪，成绩条就做成啦。

热心网友 时间：2023-12-03 10:22

做过一个拆分工资条的。可以按照A列的姓名将每个人的工资单独存放在工作簿中。

Sub 工资条()
Dim rg As Range
Dim x As Integer
Dim rg1 As Range
Dim wst As Worksheet
Set wst = Sheets("源数据")
Set rg1 = wst.Range("a1").EntireRow
Set rg = wst.Range("a2").EntireRow

Dim tit As String
For x = 2 To wst.Range("a1").End(xlDown).Row
    If wst.Range("a" & x + 1) = wst.Range("a" & x) Then
        Set rg = Union(rg, wst.Range("a" & x + 1).EntireRow)
    Else
        tit = wst.Range("a" & x).Value
        
        Workbooks.Add
        ActiveWorkbook.Title = tit
        ActiveWorkbook.SaveAs Filename:="D:\" & tit & ".xlsx"
        
        rg1.Copy ActiveSheet.Range("a1")
        rg.Copy ActiveSheet.Range("a2")
        ActiveWorkbook.Save
        ActiveWindow.Close
              
        Set rg = wst.Range("a" & x + 1).EntireRow
        
    End If
    
Next
MsgBox "工资条已经生成完毕！数据存储在D盘！"
Shell "explorer D:\"

End Sub

热心网友 时间：2023-12-03 10:23

直接输入就是了。姓名，科目，分数。