excel利用VB分析(vb操作Excel)

1. vb操作Excel

快捷键alt+F11键，即可打开VB编辑界面

2. vb操作excel怎么添加链接链到其他表

直接安装office,vb可以直接用

3. vb操作excel怎么添加形状

'透明函数setlayeredwindowattributes

'使用这个函数，可以轻松的实现半透明窗体。按照微软的要求，透明窗体窗体在创建时应使用ws_ex_layered参数（用createwindowex），或者在创建后设置该参数（用setwindowlong），我选用后者。全部函数、常量声明如下：

privatedeclarefunctiongetwindowlonglib"user32"alias"getwindowlonga"(byvalhwndaslong,byvalnindexaslong)aslong

privatedeclarefunctionsetwindowlonglib"user32"alias"setwindowlonga"(byvalhwndaslong,byvalnindexaslong,byvaldwnewlongaslong)aslong

privatedeclarefunctionsetlayeredwindowattributeslib"user32"(byvalhwndaslong,byvalcrkeyaslong,byvalbalphaasbyte,byvaldwflagsaslong)aslong

'其中hwnd是透明窗体的句柄，crkey为颜色值，balpha是透明度，取值范围是[0,255]，dwflags是透明方式，可以取两个值：当取值为lwa_alpha时，crkey参数无效，balpha参数有效；当取值为lwa_colorkey时，balpha参数有效而窗体中的所有颜色为crkey的地方将变为透明－－这个功能很有用：我们不必再为建立不规则形状的窗体而调用一大堆区域分析、创建、合并函数了，只需指定透明处的颜色值即可，哈哈哈哈！请看具体代码。

privateconstws_ex_layered=&h80000

privateconstgwl_exstyle=(-20)

privateconstlwa_alpha=&h2

privateconstlwa_colorkey=&h1

privatesubform_load()

'半透明

dimrtnaslong

rtn=getwindowlong(hwnd,gwl_exstyle)

rtn=rtnorws_ex_layered

setwindowlonghwnd,gwl_exstyle,rtn

setlayeredwindowattributeshwnd,0,125,lwa_alpha

endsub

4. vb操作excel速度慢

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；

2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；

3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:\book1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing

5. vb操作excel工作表另存为新的工作簿

、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象这是我收藏的，你试一下

6. vb操作excel表

可以调用工作表函数vlookup、hlookup、lookup、match、find等函数进行查询。也可以使用for each或者for、do loop等循环语句进行查询。具体如何使用，要结合你的实际需要来看

7. vb操作excel求和

方法：

步骤一：打开需要操作的EXCEL文档，鼠标选中需要跨表求和的单元格。

步骤二：点击上边函数公式编辑框，输入“=”。

步骤三：点击第一个求和数据的表格“语文成绩”，然后点击选择数据所在单元格。

步骤四：在函数输入框后输入加号“+”，点击第二个求和数据的表格“数学成绩”，然后点击选择数据所在单元格。

步骤五：继续在函数编辑框输入加号“+”，点击第三个求和数据的表格“英语成绩”，然后点击选择数据所在单元格。如果还有其他表格数据，则重复步骤3、4，然后按键盘“Enter”键，完成跨表数据求和。

步骤六：选中下方需要同样跨表求和的单元格，按快捷键“ctrl+D”可快速填充函数，完成Excel的跨表求和操作

8. vb操作excel表时鼠标事件

这个需要用到代码，方法如下：

1.打开需要应用的excel。

2.按ALT+F11，会弹出代码编辑框。

3.在左边会显示出上下两个类别框里，名字分别是Project-VBAProject和Properties-sheet1（这个sheet几是你当前编辑的表单）(注意：如果什么也新出来的窗口什么也不显示的话，就->视图->工程资源管理器 就会出来了，此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码，在里面直接粘贴第六条的代码即可）4.在上面的框边有三个小图标，view code（查看代码）,view project（查看项目），toggle folder（打开或折叠文件夹）。5.选择view code，会弹出一个编辑框。6.在编辑框里黏贴下面的语言：Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target '清除工作表单元格的背景色 .Parent.Cells.Interior.ColorIndex = xlNone '设置选中区域所在行的背景色 .EntireRow.Interior.Color = vbGreen '设置选中区域所在列的背景色 .EntireColumn.Interior.Color = vbGreen End WithEnd Sub7. 贴完之后，关闭对话框。关闭编辑框，返回到excel。8.这时候你再点击任意单元格，就会自动出现你要的效果了。备注:上面语言中的汉语不用删除，汉语可以可以帮助你了解该行的意思，同时也不会影响编辑效果。如果对行或列的色彩不满意，可以参考下面的色彩代码，自行修改。vbBlack 黑vbRed 红vbGreen 绿vbYellow 黄vbBlue 蓝vbMagenta 洋红vbCyan 青vbWhite 白上面的办法对已经有填充色的表格是个灾难，它会清楚原有颜色。你也可以试试下面的方法：Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With End Sub这个虽然只能显示行不能显示列，但是不会破坏原有填充色。回答完毕，希望是你要的。