根据“教师课程分担”与“部颁课时”得到承担课程课时任务一览表

偶然古月照江北 · 发表于 2018-9-2 22:43

excelvlookup 发表于 2018-9-2 21:00
是想要一个超连接吗？
在教师表中增加代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target A ...

不是啊，我是说，运行你那段代码时，不要把序号和姓名列中的的公式变成文本。因为，课时分担表中的姓名是从其它的工作表链接过来的。

偶然古月照江北 · 发表于 2018-9-2 22:44

麻烦老师看看这个吧！

偶然古月照江北 · 发表于 2018-9-2 22:45

excelvlookup 发表于 2018-9-2 21:00
是想要一个超连接吗？
在教师表中增加代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target A ...

不是啊，我是说，运行你那段代码时，不要把序号和姓名列中的的公式变成文本。因为，课时分担表中的姓名是从其它的工作表链接过来的。

偶然古月照江北 · 发表于 2018-9-3 08:59

excelvlookup 发表于 2018-9-2 21:00
是想要一个超连接吗？
在教师表中增加代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target A ...

不是，我是说，课时分担表中的姓名是从另一个工作表中链接过来的，运行代码时最好保留链接，不要把序号列和姓名列变成了文本

偶然古月照江北 · 发表于 2018-9-3 09:01

见下面的附件

excelvlookup · 发表于 2018-9-7 08:40

偶然古月照江北发表于 2018-9-2 22:44
麻烦老师看看这个吧！

8楼代码这样改：
With Sheets("课时分担一览表 ")
rw3 = .Cells(Rows.Count, 1).End(4).Row
fd = .Range("a2:d" & rw3)
End With
For i = 1 To s
For j = 3 To UBound(fd, 2)
fd(i, j - 2) = ar(d(fd(i, 2)), j)
Next
Next
Sheet3.Range("c2").Resize(UBound(fd), 2) = fd

		自动登录	找回密码
密码			免费注册

[求助] 根据“教师课程分担”与“部颁课时”得到承担课程课时任务一览表