日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：思路问题

<div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">思路的问题</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">在个人查询中，执行宏1</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">无法判断初一或初二等</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">干脆分三个子程序，初1初2初3?</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">Dim mypath Sub 查询个人() &nbsp;&nbsp;&nbsp; t1 = UserForm查询窗体.CheckBox1.Value 'TextBox1 &nbsp;&nbsp;&nbsp; t2 = UserForm查询窗体.CheckBox2.Value 'TextBox1&nbsp;&nbsp;&nbsp; 要注意指向窗体 &nbsp;&nbsp;&nbsp; t3 = UserForm查询窗体.CheckBox3.Value &nbsp;&nbsp;&nbsp; If t1 = True And t2 = False And t3 = False Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t = UserForm查询窗体.CheckBox1.Caption: mypath = ThisWorkbook.Path &amp; "\" &amp; t &amp; "\" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call 初1 &nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp; If t2 = True And t1 = False And t3 = False Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t = UserForm查询窗体.CheckBox2.Caption: mypath = ThisWorkbook.Path &amp; "\" &amp; t &amp; "\" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call 初2 &nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp; If t3 = True And t1 = False And t2 = False Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t = UserForm查询窗体.CheckBox3.Caption: mypath = ThisWorkbook.Path &amp; "\" &amp; t &amp; "\" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call 初3 &nbsp;&nbsp;&nbsp; End If End Sub</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">Sub 初1() &nbsp;&nbsp;&nbsp; Dim arr, brr, d, i&amp;, j% &nbsp;&nbsp;&nbsp; Set d = CreateObject("scripting.dictionary") &nbsp;&nbsp;&nbsp; On Error Resume Next &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False &nbsp;&nbsp;&nbsp; wj = Dir(mypath &amp; "*.xls*") &nbsp;&nbsp;&nbsp; Worksheets(1).Range("b3:c3").ClearContents &nbsp;&nbsp;&nbsp; Worksheets(1).Range("a4:c10000").ClearContents &nbsp;&nbsp;&nbsp; arr = Worksheets(1).Range("a1:v3") &nbsp;&nbsp;&nbsp; s = [{"数学","2";"语文","3"}] &nbsp;&nbsp;&nbsp; Do While wj &lt;&gt; "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If wj &lt;&gt; ThisWorkbook.Name Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Workbooks.Open(mypath &amp; wj) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For n = 1 To UBound(s) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(wj, s(n, 1)) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = s(n, 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = .Sheets(.Sheets.Count).UsedRange &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ncm = .Sheets(.Sheets.Count).Range("d1:aa1").Find(what:="姓名", lookat:=xlWhole).Column &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(brr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(i, ncm)) = i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(arr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xm = Trim(UserForm查询窗体.TextBox1.Text) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If xm &lt;&gt; "" Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If d.Exists(xm) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m = d(xm) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, 1) = xm &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = brr(m, ncm + 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = "/" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d.RemoveAll &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Close 0 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wj = Dir &nbsp;&nbsp;&nbsp; Loop &nbsp;&nbsp;&nbsp; Worksheets(4).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr &nbsp;&nbsp;&nbsp; Columns("A:G").AutoFit &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True &nbsp;&nbsp;&nbsp; Sheet4.Activate &nbsp;&nbsp;&nbsp; Selection.Merge &nbsp;&nbsp;&nbsp; Range("A1:A2").Merge&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'A1：A2合并</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">[A1].Value = "姓名" [B1].Value = "数学" [C1].Value = "语文"</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;"> &nbsp;&nbsp; Dim t As Integer &nbsp;&nbsp; For t = 2 To 3 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(2, t).Value = "剩余课时"&nbsp; '用循环赋值“剩余课时” &nbsp;&nbsp; With Cells(2, t).Font&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置单元格格式 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Name = "宋体" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .FontStyle = "bold" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Size = 12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '字体大小 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ColorIndex = 12&nbsp;&nbsp; '字体颜色 &nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.UsedRange.Borders.LineStyle = 1&nbsp; '对已用区域添加边框 &nbsp;&nbsp;&nbsp; With Selection &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.UsedRange.HorizontalAlignment = xlRight&nbsp; '对已用区域左对齐 &nbsp;&nbsp;&nbsp; End With End Sub</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;"> Sub 初2() &nbsp;&nbsp;&nbsp; Dim arr, brr, d, i&amp;, j% &nbsp;&nbsp;&nbsp; Set d = CreateObject("scripting.dictionary") &nbsp;&nbsp;&nbsp; On Error Resume Next &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False &nbsp;&nbsp;&nbsp; wj = Dir(mypath &amp; "*.xls*") &nbsp;&nbsp;&nbsp; Worksheets(1).Range("b3:e3").ClearContents &nbsp;&nbsp;&nbsp; Worksheets(1).Range("a4:e10000").ClearContents &nbsp;&nbsp;&nbsp; arr = Worksheets(1).Range("a1:e3") &nbsp;&nbsp;&nbsp; s = [{"数学","2";"物理","3";"英语","4";"语文","5"}] &nbsp;&nbsp;&nbsp; Do While wj &lt;&gt; "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If wj &lt;&gt; ThisWorkbook.Name Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Workbooks.Open(mypath &amp; wj) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For n = 1 To UBound(s) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(wj, s(n, 1)) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = s(n, 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = .Sheets(.Sheets.Count).UsedRange &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ncm = .Sheets(.Sheets.Count).Range("d1:aa1").Find(what:="姓名", lookat:=xlWhole).Column &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(brr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(i, ncm)) = i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(arr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xm = Trim(UserForm查询窗体.TextBox1.Text) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If xm &lt;&gt; "" Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If d.Exists(xm) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m = d(xm) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, 1) = xm &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = brr(m, ncm + 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = "/" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d.RemoveAll &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Close 0 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wj = Dir &nbsp;&nbsp;&nbsp; Loop &nbsp;&nbsp;&nbsp; Worksheets(4).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr &nbsp;&nbsp;&nbsp; Columns("A:G").AutoFit &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True &nbsp;&nbsp;&nbsp; Sheet4.Activate &nbsp;&nbsp;&nbsp; Selection.Merge &nbsp;&nbsp;&nbsp; Range("A1:A2").Merge&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'A1：A2合并</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">[A1].Value = "姓名" [B1].Value = "数学" [C1].Value = "物理" [D1].Value = "英语" [E1].Value = "语文"</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">&nbsp;&nbsp; Dim t As Integer &nbsp;&nbsp; For t = 2 To 5 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(2, t).Value = "剩余课时"&nbsp; '用循环赋值“剩余课时” &nbsp;&nbsp; With Cells(2, t).Font&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置单元格格式 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Name = "宋体" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .FontStyle = "bold" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Size = 12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '字体大小 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ColorIndex = 12&nbsp;&nbsp; '字体颜色 &nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.UsedRange.Borders.LineStyle = 1&nbsp; '对已用区域添加边框 &nbsp;&nbsp;&nbsp; With Selection &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.UsedRange.HorizontalAlignment = xlRight&nbsp; '对已用区域左对齐 &nbsp;&nbsp;&nbsp; End With End Sub</div><div style="background: rgb(243, 243, 243); margin: 5px 20px; padding: 5px; border: 1px solid rgb(204, 204, 204); border-image: none;">Sub 初3() &nbsp;&nbsp;&nbsp; Dim arr, brr, d, i&amp;, j% &nbsp;&nbsp;&nbsp; Set d = CreateObject("scripting.dictionary") &nbsp;&nbsp;&nbsp; On Error Resume Next &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False &nbsp;&nbsp;&nbsp; wj = Dir(mypath &amp; "*.xls*") &nbsp;&nbsp;&nbsp; Worksheets(1).Range("b3:g3").ClearContents &nbsp;&nbsp;&nbsp; Worksheets(1).Range("a4:g10000").ClearContents &nbsp;&nbsp;&nbsp; arr = Worksheets(1).Range("a1:g3") &nbsp;&nbsp;&nbsp; s = [{"数学","2";"物理","3";"英语","4";"语文","5";"历史","6";"化学","7"}] &nbsp;&nbsp;&nbsp; Do While wj &lt;&gt; "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If wj &lt;&gt; ThisWorkbook.Name Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Workbooks.Open(mypath &amp; wj) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For n = 1 To UBound(s) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(wj, s(n, 1)) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = s(n, 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; brr = .Sheets(.Sheets.Count).UsedRange &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ncm = .Sheets(.Sheets.Count).Range("d1:aa1").Find(what:="姓名", lookat:=xlWhole).Column &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(brr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d(brr(i, ncm)) = i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To UBound(arr) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xm = Trim(UserForm查询窗体.TextBox1.Text) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If xm &lt;&gt; "" Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If d.Exists(xm) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m = d(xm) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, 1) = xm &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = brr(m, ncm + 2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr(3, j) = "/" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d.RemoveAll &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Close 0 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wj = Dir &nbsp;&nbsp;&nbsp; Loop &nbsp;&nbsp;&nbsp; Worksheets(4).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr &nbsp;&nbsp;&nbsp; Columns("A:G").AutoFit &nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True &nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True &nbsp;&nbsp;&nbsp; Sheet4.Activate &nbsp;&nbsp;&nbsp; 'Call 合并单元格指定位置 &nbsp;&nbsp;&nbsp; 'Call 写入单元格课时查询 &nbsp;&nbsp;&nbsp; 'Call 复制 &nbsp;&nbsp;&nbsp; 'Call 边框线 &nbsp;&nbsp;&nbsp; Call 抬头目录&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '组合了上面4个模块 End Sub</div>