我现在想用VB写一个小软件, 就是将一个excel表格里面的数据在VB的界面上有选择的显示出来。
如:一本记录详细的通迅录, 我只要在VB上面的输入一个人员编号,他的姓名、电话 就会显示出来,我输入电话号码、他的姓名人员编号就会显示出来,请求高手指点。不胜感谢!
excel表格格式如下:
人员编号 姓名 联系电话
1 aa 67254123
2 bb 67254123
3 cc 67254123
4 dd 67254123
5 ee 67254123
6 ff 67254123
89310083@qq.com
谢谢。
我现在想用VB写一个小软件, 就是将一个excel表格里面的数据在VB的界面...
VB可以实现的功能远不只这些哦
在EXCEL中用VB编写程序时,如何调用EXCEL中某个表格的数据?
如果你插入的是窗体控件,很简单的。(activex控件比较麻烦,得用vba代码)右键点车间(1)控件,设置格式,最后一个标签“控制”,单元格链接处点到比如sheet1的g1,确定。在sheet2的a1输入 =if(sheet1!g1,"车间(1)","车间(2)")就可以了。
请问如何用vb提取excel表格中的数据请问如何用vb提取excel表格中的数据...
首先需要知道你要引用的数据在Excel中的位置,然后在VB里面引用Excel,然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbo...
用vb编程将excel中的数据有选择的导入txt中
txt = 你的值,建议用“,”分开 例如 txt= cells(2,2) & "," & cells(2,5) & "," & cells(2,7)用循环罗列你的行 txt= txt + cells(3,2) & "," & cells(3,5) & "," & cells(3,7)Open 你的txt文件(全路径) For Append As #1 Print #1, TXT Close #1...
VB编程,利用宏在EXCEL表格中显示想要的列或行
只是没有说明需求,“显示我想要的数据,不想要的数据不显示”,那哪些是想要的数据呢?每次都固定为第一列与第三列的整列数据吗?如果是这样的话,宏代码如下:Sub MyMacro()Sheets("Sheet2").Select Range("A:A,C:C").Select Selection.Copy Range("A1").Select Sheets("Sheet1").Select Ra...
请教请问如何用vb提取excel表格中的数据
首先需要知道你要引用的数据在Excel中的位置,然后在VB里面引用Excel,然后打开Excel文件读数据 Dim scxls As Excel.Application Dim scbook As Excel.Workbook Dim scsheet As Excel.Worksheet ‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.Add Set scbook = sc...
用VB怎么写程序,在excel中的一个单元格内,点击按钮显示当前电脑时间...
VB访问EXCEL,先在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。Private Sub Command1_Click()Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As...
VB编程,利用宏在EXCEL表格中显示想要的列或行
我建议是添加一个按钮或者在工具栏中添加一个图标这两种方法。添加一个按钮的方法:添加上按钮之后,双击它,然后在出现的两行代码中加入一行 Call MyMacro,最终的按钮代码如下:Private Sub CommandButton1_Click()Call MyMacro End Sub 添加图标的方法:在任何一个工具栏上点右键,选择“自定义”,...
怎么在VB的一个文本框里显示Exce中的一个数据
'要在VB中操作Excel,需要引用Excel对象模型'方法,在菜单里选择[工程] -- [引用],在窗口里勾选 Microsoft Excel XX.X Object Library'其中,XX.X取决于你安装的Office的版本号 '在你的显示按钮中加入以下代码。'注:"地址"中加入你的excel文件地址,如"C:\\1.XLS",要带双引号'Sheet1也可以改...
vb读取excel中的数据并在窗体上显示
Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data)For i = 1 To CInt(UBound(Data, 1))For j = 1 To CInt(UBound(Data, 2))Set a = Form1.Controls.Add("VB.TextBox", "textbox" & CStr(i) & CStr(j) & CStr(No))ReDim Text...