excel数据vba搜索录入(vba读取excel单元格数据)

1. vba读取excel单元格数据

Private Sub Command1_Click() Dim Xlbook As Workbook Dim Xlapp As Application Dim Xlsheet As Worksheet Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿 Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表 Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。 Xlbook.Close False '关闭工作簿 不保存 Set Xlapp = Nothing '释放 Set Xlbook = NothingEnd Sub

2. vba如何查找数据并写入数据

取得表格的最后一行：

比如：sheet1的A列的最后有记录的一格：

dim c as range

set c=sheet1.range("A65536").END(XLUP) '取得A列最后一格

c.offset(1,0).value="我的新数据" '为下一行赋值

3. excel vba 搜索

给你个列子在C列找包含“宁波”的单元格，如果是完全匹配XLPART改成XLWHOLESub查找()Setfindcell=Columns("c").Find("宁波",LookAt:=xlPart)IfNotfindcellIsNothingThenMsgBoxfindcell.RowElseMsgBox"没找到符合条件的单元格"EndIfEndSub

4. vba搜索单元格内容

查找里就可以设置单元格格式；vba定位更方便:可以使用for语句循环，然后根据单元格格式处理，比如：dim c as rangefor each c in selection If c.Interior.Color = vbYellow Then ‘这里是填充颜色。。。。

End Ifnext

5. vba快速查找数据

打开vba,然后点击设置就能查看所有的文件名和对应路径

6. excel制作vba录入和查询系统

1、打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；

2、选择搜索框的下拉菜单，选择“worksheet”选项功能；

3、选择BeforeDoubleClick，也就是在本工作表鼠标双击（之前），将触发下面的代码程序；

4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明一个函数；

5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；

6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；

7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。

7. vba查找数据

Sub TestFind()；MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address；End Sub；如果是多个，并且不要提示，让它变成行数的变量

8. vba搜索功能

先顶楼上……首先在VB中引用Office的对象，然后Set一个对象进行操作，关于查询操作word文档，建议：

(1)用“对象浏览器”找Office对象的成员和方法(2)在Word中录制一个宏，修改一下页眉信息，用一下查找替换，再用VBA编辑宏，看VBA怎么写的 PS:文档列表引用FSO对象来查询(File System Object)，如何用这东东参考(1)自己找要用的东西，印象会比较深刻~~

9. vba采集数据

for i=4 to cells(rows.count,4)end(3).row

cells(i,4)=split(split(cells(i,4),"=")(1),"，")(0)

next

10. excel vba录入数据

我的做法是,新建一个模块,在这个模块里声明一个公有变量如:Public a As Integer然后,在sheet1的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()a = InputBox("mmmm")Worksheets("sheet2").SelectEnd Sub然后在sheet2的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()If InputBox("nnnnnn") = a Then Range("a1").Value = aEnd Sub你参考一下吧