怪事,不能上传附件啦!
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
怪事,不能上传附件啦!
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