|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 编辑教师课表()
- Dim Rng As Range, key As Variant, Temp(1 To 9 * 2, 1 To 6), x%, Km$, a
- Range("D2:G2").FormulaR1C1 = "=VLOOKUP(R2C2,C12:C13,2,0)"
- a = Split(Range("D2"), ";")
- On Error GoTo 123
- For k = 0 To UBound(a)
- key = Split(a(k), "-")(0) '班级
- Km = Split(a(k), "-")(1) '科目
- x = 0
- Set Rng = Sheet1.Range("A:A").Find(key, lookat:=xlWhole)
- If Not Rng Is Nothing Then
- With Sheet1
- For i = 2 To 55 Step 9
- x = x + 1
- For j = 0 To 8
- If Trim(.Cells(Rng.Row, i + j)) = Km Then
- Temp(j * 2 + 1, x) = myVLOOKUP(key, Km, 1) '科目
- Temp(j * 2 + 2, x) = IIf(Temp(j * 2 + 2, x) = "", key, Temp(j * 2 + 2, x) & "+" & key) '班级
- End If
- Next
- Next
- End With
- End If
- Next
- Sheet3.Range("B4").Resize(9 * 2, 6) = Temp
- Exit Sub
- 123:
- MsgBox Err.Description
- End Sub
复制代码 |
|