晓风请进，有些看不懂

mavians

mystr = ActiveCell.Offset(5, 3).Value & "," & ActiveCell.Offset(6, 3).Value & "," & ActiveCell.Offset(5, 4).Value & "," & ActiveCell.Offset(6, 4).Value    这里的2×2是一行排列而已，能不能加入换行的命令，另外，显示过于紧凑，能不能加入空格，代码倒是看懂了

LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)这不懂了

[em06]

不好意思，罗嗦了些，代码里面只有对a1执行的，若想b1,c1,a2,b2.c2等都引用这些东东，要不要针对a1:c2各个单元格都写一遍？[em10][em26][em26][em26][em26][em26]

晓月清风

1、要换行的话把其中的","改为chr(10),要加入空格的话则改为"   "(要空几格就在引号中按几下空格键）

2、那句你说看不懂的（其实那些都没什么用），可参阅VBA帮助中的FIND方法：

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)

expression   必选。该表达式返回 Range 对象。

What   Variant 类型，必选。要查找的数据。可为字符串或任意 Microsoft Excel 数据类型。

After   Variant 类型，可选。表示查找过程将从其之后开始进行的单元格。此单元格对应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的；直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。

LookIn   Variant 类型，可选。可为下列 XlFindLookIn 常量之一： xlFormulas、 xlValues 或 xlComments。

LookAt   Variant 类型，可选。可为下列 XlLookAt 常量之一：xlPart 或 xlWhole。

SearchOrder   Variant 类型，可选。可为下列 XlSearchOrder 常量之一：xlByColumns 或 xlByRows。

SearchDirection   Variant 类型，可选。可为下列 XlSearchDirection 常量之一： xlNext 或 xlPrevious。默认常量为 xlNext。

MatchCase   Variant 类型，可选。若指定为 True，就进行区分大小写的查找。默认值为 False。

MatchByte   Variant 类型，可选。仅在选择或安装了双字节语言支持时使用。若指定为 True，就使双字节字符仅匹配双字节字符。若指定为 False，则双字节字符可匹配其等价的单字节字符。

3、若想对其他单元格也引用，可以增加一个字符变量，

Sub wlqFind_Comment()

Dim mystr As String, rStr As String

Range("A9:F310").Select

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

rStr = InputBox("请输入一个单元格地址，如A1")

Cells.Find(What:=Range(rStr).Value, 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的数值,其中","可改为chr(10)换行," "空格

    With Range(rStr)

                    .Select

              '选择A1单元格

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

            .ClearComments

            '清除原有的批注

            .AddComment

            '插入批注

            .Comment.Text Text:=mystr

            '将mystr的值赋给A1的批注

            .Comment.Visible = False

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

    End With

ErrorHandler:

              Exit Sub

End Sub

[此贴子已经被作者于2005-7-15 9:19:15编辑过]