完全新手，请帮忙如何选定显示区域

mavians

请大虾帮忙实现以下内容，勿笑。A10：F：310为数据区（表中数据无重复），如何根据A1：F1数值，在数据区中查找A1数值，并显示数据区中=A1数值下3右5区域的全部数值，显示上最好能在批注里面显示，或鼠标停留时能够弹出最好。    谢谢[em04]

晓月清风

那批准要显示在数据区单元格上，还是A1：F1数值单元格上？

mavians

[em04]

晓月清风

参考一下附件内容，看是不是你要的效果

mavians

谢谢版主，是这个效果，但是我更改a1内容，或者你的数据区内容，标注并不会自动更改，我对宏没有了解，是不是修改之后需要另外处理[em06],例外我想显示的是右三下五的2*2表格,不仅仅是一个表格内的数据

[此贴子已经被作者于2005-7-14 7:59:21编辑过]

mavians

哦，对了，执行后就自动更新了，谢谢，不过俺需要接受版主再教育[em07]，能不能吧代码详细解释一下[em01]

晓月清风

代码已修改并加上解释内容如下(覆盖原来的代码，即可实现批注内容为右三下五2*2的内容)：Sub wlqFind_Comment()

Dim mystr As String

Range("A9:F310").Select

'选择要查找的区域。如果想在A1输入单元格后，自动显示批注，就得不选这个区域，却还要限制在这个区域查找数值

Cells.Find(What:=[A1], After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True).Activate

'查找A1单元格内容在数据区的单元格位置，

mystr = ActiveCell.Offset(5, 3).Value & "," & ActiveCell.Offset(6, 3).Value & "," & ActiveCell.Offset(5, 4).Value & "," & ActiveCell.Offset(6, 4).Value

'右五下三的数值2*2的数值

    With Range("A1")

                    .Select

              '选择A1单元格

    On Error GoTo ErrorHandler   '发生错误，则退出宏

            .ClearComments

            '清除原有的批注

            .AddComment

            '插入批注

            .Comment.Text Text:=mystr

            '将mystr的值赋给A1的批注

            .Comment.Visible = False

            '不显示批注，但当鼠标移到该点时，则自动显示

    End With

ErrorHandler:

              Exit Sub

End Sub