关于excel表格的操作问题。请教办公软件高手。

来源:百度知道 编辑:UC知道 时间:2024/07/06 00:06:21
例如,表格的第一列是姓名,如何在鼠标点击每个姓名时,出现另外的表格显示该人的个人简历等信息,鼠标移开,个人简历等信息消失。也就是隐藏一些东西,在另外的表格里显示,保持当前表的清晰有序。不要插入批注!可以加分哦。谢谢!

在你的表标签那里
右键单击——代码
在打开的VB窗口中,
复制这段代码粘贴上去,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
Target.ClearComments
Target.AddComment
With Target.Comment
.Visible = True
.Text Sheets("Sheet2").Cells(1, 2).Value & Sheets("Sheet2").Cells(Target.Row, Target.Column + 1).Value & vbCrLf & _
Sheets("Sheet2").Cells(1, 3).Value & Sheets("Sheet2").Cells(Target.Row, Target.Column + 2).Value & vbCrLf & _
Sheets("Sheet2").Cells(1, 4).Value & Sheets("Sheet2").Cells(Target.Row, Target.Column + 3).Value & vbCrLf & _
Sheets("Sheet2").Cells(1, 5).Value & Sheets("Sheet2").Cells(Target.Row, Target.Column + 4).Value
End With
End If
End Sub