Excel2010实现点击单元格弹出文本框
1 实现效果
2 实现思路
鼠标点击单元格时，检测sheet2中单元格的值是否在基础数据表（sheet1）中的第一列，如果找到了，则将找到数据的行所有的单元格数据拼成一个文本，赋值给sheet2中的文本框。
注意：sheet1和sheet2是按照内部的名字，而不是本身的名字，这里基础数据表的名字反而为sheet1。
3 实现的vb代码
注意：所有的代码要在worksheet下面
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'定义返回的信息变量
Dim str As String
'判断当前点击对象的文本是否为空，为空则跳过，不为空则获取信息
If Target.Text <> "" Then
'显示文本框
ActiveSheet.Shapes(1).Visible = True
'设置文本框的左侧和顶部位置，左侧位置的算法是，当前单元格的序号乘以单元格的宽度，再加上偏差值。Left和Top两个属性，需要根据自己的需要修改。
ActiveSheet.Shapes(1).Left = Target.Column * Target.ColumnWidth + (Target.Column - 1) * 50 + 70
ActiveSheet.Shapes(1).Top = (Target.Row - 11) * Target.RowHeight
'设置文本框宽度为600像素
ActiveSheet.Shapes(1).Width = 600
'如果第二个文档条数变多了，需要修改Sheet1.Range("A1:A2000")和i的最大值
For readRow = 1 To Sheet1.Range("A1:A2000").Count
'遍历sheet1中第一列的1至2000行，如果当前获取单元格的文本不为空则执行获取sheet1中的单元格的值
If Sheet1.Cells(readRow, 1).Text <> "" Then
'判断sheet1中单元格的文本是否与当前点击的单元格文本相同
If Sheet1.Cells(readRow, 1).Text = Target.Text Then
'获取sheet1中匹配到的单元格当前行所有单元格的值拼成一个字符串以换行符分割
For i = 1 To 20
str = str & Sheet1.Cells(13, i) & "：" & Sheet1.Cells(readRow, i) & Chr(10)
Next i
End If
End If
Next readRow
'将生成的字符串赋值给本页面的文本框
ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.Text = str
'如果当前点击单元格内容为空，则隐藏文本框
Else
'隐藏文本框
ActiveSheet.Shapes(1).Visible = False
End If
End Sub
本文档为【Excel2010实现点击单元格弹出文本框(类似tooltip)】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483