紧急求助各位老师，这段代码该怎样写？

huangjinyui · 发表于 2011-1-11 09:19

本帖最后由 huangjinyui 于 2011-1-11 09:39 编辑

考试了，遇到新问题，紧急求助各位老师，这段代码该怎样写？

如我选择C102时，则只是将C102班的学生学号、姓名从数据表中提取出来，在生成表中生成，如附件2：

chezhan123 · 发表于 2011-1-11 10:00

{:3312:}支持，我也想升级

过江龙 · 发表于 2011-1-11 11:19

本帖最后由过江龙于 2011-1-11 11:22 编辑

回复 huangjinyui 的帖子

给你写了一段代码，看看是不是这样的，你只需在生成表中选择班别就行了，剩下的由VBA帮你完成。

451.rar (58.84 KB, 下载次数: 0)

过江龙 · 发表于 2011-1-11 11:24

回复 huangjinyui 的帖子

重新上传附件。

451.rar (58.84 KB, 下载次数: 26)

yiyaozjk · 发表于 2011-1-11 14:00

过江龙,请问一下,你有没有进行楼主要求的排序吗??

好象没有看到代码里没有进行排序??? 也许是我没有看懂....请指教...

过江龙 · 发表于 2011-1-11 14:05

没有在“生成表”中排序，要排也因该在“原始数据”中排噻。

yiyaozjk · 发表于 2011-1-11 17:02

   这是我的VBA代码,能够排序的

,但有一个很严重的问题,就是要手工清除掉:W ----AN列中的数据

   加了两行清除数据的话就不能运行,真是有点怪..请高手或  过江龙  帮忙修改一下,为什么>>>这两行为什么会造成不能运行的原因???
'Range("W:AO").ClearContents          为什么不能有这两行

另外再请过江龙解释一下
  你的代码中:这些句子不懂,请注释一下,我用的字典类型很少

      Set d = CreateObject("Scripting.Dictionary")
      For i = 4 To Sheet1.Range("A65536").End(xlUp).Row      '这个循环就能将所要查的数据放入字典吗?不解
         If Sheet1.Cells(i, 1) <> "" Then
            d(Sheet1.Cells(i, 1).Value) = ""
         End If
      Next i
     a = VBA.Join(d.Keys, ",")    '不解什么意思???
      Range("M1").Validation.Delete
      Range("M1").Validation.Add Type:=xlValidateList, Formula1:=a
End If

过江龙 · 发表于 2011-1-12 11:24

回复 yiyaozjk 的帖子

加了“Range("W:AO").ClearContents '为什么不能有这两行”也能运行，看附件

451.rar (62.97 KB, 下载次数: 2)

yiyaozjk · 发表于 2011-1-12 17:17

更有点蒙了......
我( 加了Range("W:AO").ClearContents  后),在我两台电脑上都不能运行 .......

For i = 4 To Sheet1.Range("A65536").End(xlUp).Row “再配上下面的代码就是将不重复的班级名称放入字典中
那更不理解了下面的判断语句了>>>>>>
  If Sheet1.Cells(i, 1) <> "" Then                   '当第1个字段即班级名不为空的时候???             d(Sheet1.Cells(i, 1).Value) = ""    ' 就将空值赋给了谁>>>  ????    End If

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