Office中国论坛/Access中国论坛

标题: [求助]怎样获得查找到的个数 [打印本页]

作者: hangyi 时间: 2006-6-28 22:53
标题: [求助]怎样获得查找到的个数
我在窗体中编了一个查找按钮，让它查找当前工作表的规定范围，我想知道它到底找到多少个符合查找条件的单元格个数，但是我不知怎样写代码，也不知道用什么语句。大侠请帮帮我

作者: Threaten 时间: 2006-6-29 07:46
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 时间: 2006-6-29 16:28
Threaten,你真的是好人！太感谢您了！

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