小白求助！分类排名及排名输出，恳请大侠出手，提前祝大家新春快乐，万事如意！

chxw68

1. Sub test3()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim wordapp As Word.Application
   
5.   Dim worddoc As Word.Document
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     c = .Cells(4, .Columns.Count).End(xlToLeft).Column
   
9.     arr = .Range("a3").Resize(r - 2, c)
   
10.   End With
    
11.   Set wordapp = New Word.Application
    
12.   wordapp.Visible = True
    
13.   Set worddoc = wordapp.Documents.Add
    
14.   worddoc.Select
    
15. 
    
16.   With wordapp.Selection
    
17.     For i = 3 To 10
    
18.       With .Font
    
19.         .Name = "黑体"
    
20.         .Size = 20
    
21.       End With
    
22.       .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
23.       .ParagraphFormat.CharacterUnitFirstLineIndent = 0
    
24.       .ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
    
25.       .TypeText Text:="成 绩 单"
    
26.       .TypeParagraph
    
27.       With .Font
    
28.         .Name = "宋体"
    
29.         .Size = 16
    
30.       End With
    
31.       .ParagraphFormat.Alignment = wdAlignParagraphLeft
    
32.       .Font.Bold = True
    
33.       .TypeText Text:="家长您好："
    
34.       .Font.Bold = False
    
35.       .TypeParagraph
    
36.       .ParagraphFormat.CharacterUnitFirstLineIndent = 2
    
37.       ss = "你的孩子" & arr(i, 1) & "，学籍号：" & arr(i, 3) & "，本学期表现良好，现将本次考试成绩做以通报："
    
38.       For j = 4 To UBound(arr, 2) Step 3
    
39.         ss = ss & arr(1, j) & arr(i, j) & "，"
    
40.       Next
    
41.       .TypeText Text:=Left(ss, Len(ss) - 1) & "。"
    
42.       .TypeParagraph
    
43.       .InsertBreak Type:=1
    
44.     Next
    
45.   End With
    
46.   worddoc.SaveAs ThisWorkbook.Path & "\成绩单.doc"
    
47. '  wordapp.Quit
    
48. '  Set wordapp = Nothing
    
49. '  Set worddoc = Nothing
    
50.   Application.DisplayAlerts = True
    
51. End Sub
    
52. 
    

复制代码

chxw68

增加了生成WORD成绩单的代码。

uuuuu516

chxw68 发表于 2020-1-23 18:17
详见附件。

感谢老师！祝全家幸福，新春快乐！！！！

FOB_FN_L

留个脚印~~~~~