Office中国论坛/Access中国论坛

标题: 完全新手，请帮忙如何选定显示区域 [打印本页]

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

作者: 晓月清风 时间: 2005-7-13 18:48
那批准要显示在数据区单元格上，还是A1：F1数值单元格上？

作者: mavians 时间: 2005-7-13 19:21
标题: 在A1:F1的批注显示，其实就是自动提示的意思
[em04]

作者: 晓月清风 时间: 2005-7-13 22:57
参考一下附件内容，看是不是你要的效果

[attach]11762[/attach]

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

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

作者: mavians 时间: 2005-7-14 09:40
哦，对了，执行后就自动更新了，谢谢，不过俺需要接受版主再教育[em07]，能不能吧代码详细解释一下[em01]

作者: 晓月清风 时间: 2005-7-14 18:29
代码已修改并加上解释内容如下(覆盖原来的代码，即可实现批注内容为右三下五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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)