思路:创建一个窗口,一个文本框,运行时在文本框输入一个字符串然后程序自动在EXCEL的Sheet2中的的A列查找一样的,如果有返回true 否则 返回false。For i = 2 To q
x = Mid(Sheets("sheet2").[A2], 1, 20)
y = Mid(Sheets("sheet2").[B2], 1, 20)
If x = str_1 Then IsExit = True
Else
IsExit = False
End IfNext i变量说明:
q——Sheet2中A列数据的行数——integer
x,y——string——分别获取A、B的字符串我无法利用变来那个i替换Sheet2中A列数据的当前行数,如
x = Mid(Sheets("sheet2").[Ai], 1, 20) 这样在循环中使得输入文本框中的字符串逐一与Sheet2中A列数据进行匹配。
请各位不吝赐教。
感谢之至!!!
x = Mid(Sheets("sheet2").[A2], 1, 20)
y = Mid(Sheets("sheet2").[B2], 1, 20)
If x = str_1 Then IsExit = True
Else
IsExit = False
End IfNext i变量说明:
q——Sheet2中A列数据的行数——integer
x,y——string——分别获取A、B的字符串我无法利用变来那个i替换Sheet2中A列数据的当前行数,如
x = Mid(Sheets("sheet2").[Ai], 1, 20) 这样在循环中使得输入文本框中的字符串逐一与Sheet2中A列数据进行匹配。
请各位不吝赐教。
感谢之至!!!
解决方案 »
- vb中listview列表单元格中的内容可以复制下来吗,该怎么做
- 有难度的报表设计??
- 各位仁兄,小弟想请教一下怎样用VB+ACCESS实现将字段1里面的数字乘上一个系数并把所得的结果写入字段2中.谢谢了先!
- 关于图书管理系统
- 想得分的来这,一道选择
- 一个小问题:请教一个输入法的问题,来者有分
- 请问怎样用vb做文字的超连?
- 如何定义结构体变量啊?
- 有一具问题,最近一直在做网络传送文件的这个软件。有一个大问题,关于如何获得局域网中的广播地址有没有什么函数可以实现呢
- 2个API应用的小问题:
- 拖动listview滚动条后,如何让combobox控件隐藏?
- 关于vsflexgrid的additem的问题
另外,如果只想知道true or false而不必知道具体在哪行,建议用find方法。