[已解决]请求帮助

dyl0709

请教各位大师：如何在c12和e12单元格中引入原始表中对应的班级和学科。如张老师：班级为一1、一2，学科：英语。 请求帮助.rar (6.56 KB, 下载次数: 20)

2011-1-6 09:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zm0115

2011-1-6 09:34

C12 班级用VBA来处理。E12直接用公式就可以了。 请求帮助.rar (11.78 KB, 下载次数: 2)

2011-1-6 09:34 上传

点击文件名下载附件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim dic As Object
   
3. Dim rng As Range
   
4. 
   
5. If Target.Address(0, 0) = "A2" Then
   
6.     Range("c12").ClearContents
   
7.    
   
8.     Set dic = CreateObject("Scripting.Dictionary")
   
9.    
   
10.     For Each rng In Range("c4:g10")
    
11.         If Len(rng.Text) <> 0 Then dic(rng.Value) = ""
    
12.     Next
    
13.    
    
14.     If dic.Count > 0 Then Range("c12").Value = Join(dic.keys, ",")
    
15.    
    
16.     Set dic = Nothing
    
17. End If
    
18. 
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

zm0115

C12 班级用VBA来处理。E12直接用公式就可以了。 请求帮助.rar (11.78 KB, 下载次数: 2)

2011-1-6 09:34 上传

点击文件名下载附件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim dic As Object
   
3. Dim rng As Range
   
4. 
   
5. If Target.Address(0, 0) = "A2" Then
   
6.     Range("c12").ClearContents
   
7.    
   
8.     Set dic = CreateObject("Scripting.Dictionary")
   
9.    
   
10.     For Each rng In Range("c4:g10")
    
11.         If Len(rng.Text) <> 0 Then dic(rng.Value) = ""
    
12.     Next
    
13.    
    
14.     If dic.Count > 0 Then Range("c12").Value = Join(dic.keys, ",")
    
15.    
    
16.     Set dic = Nothing
    
17. End If
    
18. 
    
19. End Sub
    

复制代码

平原

回复 dyl0709 的帖子

学科可以用=VLOOKUP(A2,IF({0,1},原始表!A4:A9,原始表!B4:B9),2,0)，班级表内有啊，不需要了吧？

dyl0709

多谢两位大师啦，太好啦。不知为什么我不能设置最佳答案，也不能评分。

dyl0709

又能设最佳答案了，但还不能评分。

fulljy

学习了，多谢分享！