[求助]怎样获得查找到的个数

hangyi

我在窗体中编了一个查找按钮，让它查找当前工作表的规定范围，我想知道它到底找到多少个符合查找条件的单元格个数，但是我不知怎样写代码，也不知道用什么语句。大侠请帮帮我

Threaten

dim x as integer, y as integer, i as integer, k as integer, c as integer

x=sheets(sheet name).[A1].currentregion.rows.count

y=sheets(sheet name).[A1].currentregion.colums.count

FindWhat=Input (输入查找内容）

c=0

For i = (数据起始行）to x

      For k=(数据起始列）to y

             If cells(i,k)＝FindWhat then

                 c=c+1

                 Msgbox "Find what you search!" & c & "times"

             End if

      Next k

Next i

你试试看吧！

[此贴子已经被作者于2006-6-29 0:03:03编辑过]

hangyi

Threaten,你真的是好人！太感谢您了！