Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1675|回复: 3

[已解决]求助:代码修改

[复制链接]
发表于 2012-7-4 20:28 | 显示全部楼层 |阅读模式
感谢各位的关注!
下面附件有一个问题:点击“管理学生成绩”按钮,在弹出的窗体“选择学生”选中“初一”,此时弹出“初三 2班”的表,我觉得不妥。
想要的效果:点击“管理学生成绩”按钮,在弹出的窗体“选择学生”选中“初一”,此时弹出“初一成绩表”的表,如果继续选中初一下面的1班,就弹出“初一 1班”表,一次类此。 2.rar (35.24 KB, 下载次数: 11)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-7-4 21:01 | 显示全部楼层    本楼为最佳答案   
怪事,不能上传附件啦!
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    On Error Resume Next
    Dim cel As Range
    mytext = Node.Parent.Parent.Text & Space(1) & Node.Parent.Text
    myname = Node.Text
    If mytext = "" Then
        If Left(myname, 1) = "初" Then
            Worksheets(myname & "成绩单").Visible = True
            Worksheets(myname & "成绩单").Activate
        End If
        If Right(myname, 1) = "班" Then
            Worksheets(Node.Key).Visible = True
            Worksheets(Node.Key).Activate
        End If
        Exit Sub
    End If
    Set ws = Worksheets(mytext)
    ws.Visible = True
    ws.Activate
    p = ws.Range("D65536").End(xlUp).Row - 1
    For Each cel In ws.Range("D2:D" & p + 1)
        If cel.Text = myname Then
            班级.Value = mytext
            For i = 0 To UBound(myarray)
                Me.Controls(myarray(i)).Value = cel.Offset(0, i - 1)
            Next i
            Rows(cel.Row).Select
            Exit For
        Else
            Call 清除窗口
        End If
    Next
End Sub
回复

使用道具 举报

发表于 2012-7-4 21:41 | 显示全部楼层
zjdh 发表于 2012-7-4 21:01
怪事,不能上传附件啦!
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    On Erro ...

学习代码技巧操作.
回复

使用道具 举报

 楼主| 发表于 2012-7-4 21:57 | 显示全部楼层
zjdh 发表于 2012-7-4 21:01
怪事,不能上传附件啦!
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    On Erro ...

感谢了哈!我有很多次都没法上传附件  我懂就是了!·
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 01:01 , Processed in 0.484629 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表