在excel,如何点击每一行开头的编号,就弹出一个框显示这一行的所有信息?
比如说:有一个学生信息表,我想点击一个学生的学号,就显示出学生的姓名,性别,年龄等。如下图所示:...
比如说:有一个学生信息表,我想点击一个学生的学号,就显示出学生的姓名,性别,年龄等。
如下图所示: 展开
如下图所示: 展开
3个回答
展开全部
Sub Macro1()
'
' Macro1 Macro
'
'
Dim AA As Integer, I As Integer
Dim ZRA As Range
Dim ZA As String
AA = 3 '你需要几项自己定
Range("A2").Select
Do Until ActiveCell = ""
ZA = ""
Set ZRA = ActiveCell
For I = 2 To AA
ZA = ZA & Cells(1, I) & ": " & Cells(ZRA.Row, I) & Chr(10)
Next I
ZRA.AddComment
ZRA.Comment.Visible = False
ZRA.Comment.Text Text:=ZA
ActiveCell.Offset(1).Select
Loop
End Sub
'
' Macro1 Macro
'
'
Dim AA As Integer, I As Integer
Dim ZRA As Range
Dim ZA As String
AA = 3 '你需要几项自己定
Range("A2").Select
Do Until ActiveCell = ""
ZA = ""
Set ZRA = ActiveCell
For I = 2 To AA
ZA = ZA & Cells(1, I) & ": " & Cells(ZRA.Row, I) & Chr(10)
Next I
ZRA.AddComment
ZRA.Comment.Visible = False
ZRA.Comment.Text Text:=ZA
ActiveCell.Offset(1).Select
Loop
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2010-03-03
展开全部
用vlookup和match的组合
不过序号那里你需要利用数据-有效性,制作一个下拉菜单
不过序号那里你需要利用数据-有效性,制作一个下拉菜单
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询