vb对Excel的各种操作

所需积分/C币:2 2018-12-25 20:36:22 8.2MB PDF

vb对Excel的各种操作,及其接口函数
2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 ExcelID. activeWindow, WindowState= mAXimized 28)设置打廾默认工作薄数量 ExcelTD. ShealsTnNewWorkhook-3 29)’关闭时是否提示保存true俣存; false不保存) ExcelID. DispleyAlerts= False 30)设置拆分窗口,及固定行位置 Excell. ActiveWindow. Spl: tRcw= 1 ExcellD. active Window. FreezePanes= True 31)设置打印时固定打印内容 ExccllD. ActiveShcct PagcSctup PrintlitlcRows-$1: $1 )设置打印标题 ExcelID. Active Sheet. Page Setup. PrintTitleColumns 33)设置显示方式(分页万式显示 ExcelTD. Active Window View=xIPageBreakPreview 34)设置显示比例 Excelid. Active Window. Zoon= 100 35)让Exce1响应DDE请求 Lix Application. IgnorcRcmotckcqucsts- Falsc 用VB操作 EXCEL Private Sub Command: Click O On Error goto err Dim j As Lor g Dim ob Exl As Excel Application 声明对象变量 Me. Mousepoirter ll 改变鼠标样式 Set ob Exl= New Excel Application 初始化对象变量 ot jExl Sheets InNewWorkbook=I 将新建的工作薄数量设为1 ob jExl Workbooks Add 增加一个工作薄 objExl Sheets(1). Name -h 修改工怍薄名称 止jEx1. Sheets("ok2").Se:lect’选中工作薄<ook2 Tor i=I To 50 循环写入数据 1T。5 It i ob jExl Selection N rrberFcrmatLocal=@ 设置格式为文 bjExl Cells(i, j)="E"& i& j End If Next h Ex1. Rows( 1: 1 .Select 选中第一行 止jEx1. Selectio.Font.Bld=True’设为粗体 ob jExl Selection. Font Size =24 设置字体大小 ob iExl. Cclls. EatircCc lumn AutcFit 自动调整列宽 ob jExl ActiveWindow. SplitRow =I 拆分第一行 ob jEx1. Activewindow. Splitcolumn=7'拆分前七列 ob jExl. ActiveWindow FreazePanes True 固定分ojEx1. Activesheet. Pagesetup.? rinttitlercws="$1:$1"’设置打匀固定行 nbjEx1 AcLive Shee l. Page L up. FrinlTi: ecol ris 打印标题 oh jfx1.4 rliveshe. Pnge Set.Il. RightFooter-“打印时间:" Format(Nw,"yywy年mm月dd日h:MM ob jExl ActiveWindow view= xIFageBreaxPreview 设置显示方式 ob jExl. Activcindow Zoom= 10C 设置显示大小 https://blog.csdnnet/wzk456/article/details/54927066/ 3/27 2018/12/24 VB屮对 EXCEL的各种操作-wzk456的专栏-cSDN博客 ob jExl ActiveS eet. Prorect123. DrawirgOojects: -True, Contents:=True. Scenarios: =True ob:jExL ApplicaTio. IgnoreRemH).e RetLests-False ob iExl Visible= Truc 仗 EXCEL可见 ob jExl Application WindowState= xIMaximized EXCEL的显示方式为最大化 oC jEx1. ActiveWindow. Windowstate= maXimized’工作溥显示方式为最大化 ob jExl SheetsInNewWorkbook =3 将默认新工作薄数量改回3个 Set ob Exl Nothing 清除对象 Mc. Mousepoirter-0 修改鼠标 Exit Sub ob iExl. ShectslnNcwWork book-3 ob jExl. DisplayAlerts- Fals 关闭时不提示保存 ob jEx1.Quit'关闭 EXCEL hjEx1. Displayalerls-True’关冂时提小保存 Me. Mousepoirter =0 用VB操作exce法汇总 Private Sub Command3 Click Dim i As lot Dim j As Long im objExl As ExceL Application声明对象变量 Me. MousePointer 11 改变鼠标样式 Set objEx= New ExceL Application"初始化对象变量 obEx. Sheets In New Workbook=1将新建的工作薄数量设为1 objExl Workbooks Add 加一个工作薄 objEXl Sheets( objExl Sheets. Count)Name="boo1"'修改工作薄名称 objEXI Shoots Ad, objExl shoots("book1")增加第二个工作薄在第一个之后 objExl Sheets(objExl Sheets Count). Name ="book2 objExlSheets Add, abjExl. Sheets("book2")增加第三个工作薄在第二个之后 objExl Sheets(objExl Sheets Count). Name ="book3 objEXl Sheets("book1"). Select'选中工作薄<book1> For i=1 To 50 循环写入数据 Fori-1 To 5 Ifi=1 Then objExI. Selection. Number Formatlocal='@""设置格式为文本 objExl Cells(,)=”E”&&j Else objEx. Cells(,i=i& j End If Nexi objExl Rows("1:1). Select"选中第-行 https://blog.csdnnet/wzk456/article/details/54927066/ 4/27 2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 obEx. Selection. Font Bold=Tue设为框体 objExl Selection Font Size=24“设置字体大小 objExl Cclls. ntirc column autoFit'自动调整列宽 objExl. ActiveWindow. SplitRow=1拆分第一行 objExL. Active/ indow. SplitColumn=0拆分列 objExL. Active Window. FreezePanes=Tue固定拆分 objExI. Active Sheet. PageSetup. PrintTitleRows="s1:$1"设置打印固定行 objExL. Active Sheet. PageSetup. PrintTitle Columns=""打印标题 objEXL. Active Sheet. Page Setup. RightFooter="打印时间:"& Forma(Now,"y年mm月dd日 hh: MM: ss") objEXL. ActiveWindow.ViW= xlPageBreak Preview设置显示方式 objExI. ActiveWindow Zoom=100 设置显示大小 给工作表加密码 bjExL. Active Sheet. Protect 123, DrawingObjects: =True, Contents: =True. Scenarios =True objExl Application Ignore Remote Requests= False objExl. Visible =True 使 EXCEL可见 objExl. Application WindowState= mAximized"XCEL的显示方式为最大化 objExl. Active Window. Windowstate= maXimized工作薄显示方式为最大化 objEXI Sheets NewWorkbook=3将默认新工作薄数量改回3个 Set ob刈= Nothing‘清除对象 Me. mousepointer=0修改鼠标 Exit End Sub 全面控制Exce 首先创建Fxce对象,使用 Comb Dim ExcellD as ExceLApplication Set ExcellD as new Excel Application 1)显示当前窗口: ExcelID. Visible:=True; 2)更改Fxce标题栏: ExcelS. Caption:=应用程序调用 Microsoft Excel 3)添加新工作簿: ExcellD Work Books. Add 4)打开已存在的工作簿: ExcelS. Work Books. Open(C: Excel\Demo.xs") 5)设置第2个工作表为活动工作表: Excell. Nork sheets[2] Activate; eX ExcellD Work Sheets['Sheet2'1Activate 6)给单元格赋值: ExcelS.cels[1,4]veue:=第一行第四列 7)设置指定列的宽度(单位:字符个数),以第一列为例 ExcellD. Active Sheet Columns[1]. ColumnsWidth: =5; 8)设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例 ExcelID, Active Sheet. Rows[2] RowHeight;=10.035:∥1厘米 9)在第8行之前插入分页符 https://blog.csdnnet/wzk456/article/details/54927066/ 5/27 2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 ExcellD. Work Sheets[1]. Rows[8]. Page Break: =1 10)在第8列之前删除分页符: ExcellD. Active Sheet Columns[ 4].PageBreak: =0; 11)指定边框线宽度 ExcellD. Active Sheet Range[ B3: D4].Borders[2]. Weight: =3: 左2右3-顶4底5斜(1)6斜(/) 12)清除第一行笫四列单元格公式: ExcellD. Active Sheet Cells[14」 ClearContents; 13)设置第一行字体属性 ExcellD. Active Sheet. Rows[1] Font Name:=隶书 ExccllD. Active Sheet. Rowsl1) Font Color clBlue; EXcellD.Active Sheet Rows[1]. Font Bold =True ExcellD.Active Sheet Rows(1].Font. UnderLine =True 14)讲行面设置 a页眉: ExcellD. ActiveSheet. Page Setup. CenterHeader:=报表演示; b.页脚: ExcellD. ActiveSheet. PageSetup. CenterFocter:=第&P页 c页眉到顶端边正2cm: ExcellD. Active Sheet. Page Setup. HeaderMargin:=2/0035; d页脚到底端边距3cm: ExcelS, Active Sheet. Page Setup. Header Margin:=30.035 c顶边距2m: ExcclID. Activc Shcct Pagc Setup. toPmargin:=2/0.035; f底边距2cm: ExcellD. Active Sheet. Page Setup. BottomMargin:=2/0.035; g左边距2cm: ExcelID. Active Sheet. PageSetup. eftMargin:=20.035 h右边距2cm: ExcellD. Active Sheet. Page Setup. Right Margin:=20.035 1页面水平居中: ExcclID. ActiveSheet. Page Setup. ConterHorizontally:=2/0.035; j页面垂直居中: ExcellD. Active Sheet. PageSetup. Centervertically:=2/0.035; k打印单元格网线: ExcellD. Active Sheet. PageSetup. Printgridl ines:=Tne 15)拷贝操作 a拷贝整个工作表: ExcellD. Active Sheet, Used. Range.Copy; b.拷贝指定区域: ExcellD. Active Sheet Range[A1E2]Copy; 从A1位置开始粘贴: ExcelS. Active Sheet. Range[A1] Paste Special d从文件尾部开始粘贴: ExcelID. Active Sheet Range. Paste Special 16插入一行或一列 a. ExcellD Active Sheet Rows[2].Insert b. ExcellD Aclive Sheet Columns[1].Insert 17)删除行或一列: a. ExcellD Active Shect Rows 2).Delete. b. ExcellD Active Sheet Columns[1]. Delete 18)打印预览工作表 ExcellD. Active Sheet Print Preview 19)打印输出工作表: ExcellD. Active Sheet Printout 20)工作表保存 https://blog.csdnnet/wzk456/article/details/54927066/ 6/27 2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 If not excelD Active ork Book Saved then ExcellD. Active Sheet. PrintPreview End if 21)工作表另存为 ExcellD. Active Workbook. SaveAs FileName: ="C: \Excel\ Demo 1.xls 2)放弃存盘 ExcelID. ActiveWork Book Saved: True 23)关闭工作簿 ExcellD, Work Books. Close 24)退出 Excel: Excell.Quit; 25)设置工作表密码 ExcellD. Active Sheet. Protect 123 DrawingObjects: =True, Contents: =True, Scenarios: =True 26) EXCELI的显示方式为最大化 ExcellD. Application. indowstate xlMaximized 27)工作薄显示方式为最大化 ExcellD. Active Window Window State= xlMaximized 28)设黉打开默认工作薄数量 ExcellD. SheetsIn NewWorkbook= 3 29)关闭时是否提示保存(rue保存; false不保存) ExcellD. Display Alerts= False 30)设拆分窗囗,及固定行位置 Excell D Active Window. SplitRow= 1 ExcellD. ActiveWindow Freeze Panes= True 31)设置打印时固定打印内容 ExcellD. Active Sheet. Page Setup. PrintTitle Rows ="S1: $1 32)设置打印标题 Excell D Active Sheet. Page Setup. PrintTitleColumns= 33)设置显示方式(分页方式显示) ExcellD. Active Window View =xIPage Break Preview 34)设置显示比例 ExcellD. Active Window. Zoom =100 Exce语句集300 定制模块行为 (1) Option Explicit羅制模块内所有变量进行声明 Option Private Module标记模块为私有,仅对冋一工程中其它模块有用,在宏对话框中不显示 Option Compare Text'字符串不区分大小写 Option Base1指定数组的第一个下标为1 (2) On Error resume next忽珞错误继续执行VBA代码,避免出现错误消息 (3) On Error goto Errorhandler当错误发生时跳转到过程中的某个位置 (4) On Error Got0恢复正常的错误提示 https://blog.csdnnet/wzk456/article/details/54927066/ 7/27 2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 (5) Application. DisplayAlerts= False在程序行过程中使出现的警告框不显示 (6) Application. ScreenUpdating= False'关闭屏幕刷新 Application. ScreenUpdating=True打开屏荨新 (7) Application. Enable Cance lKey= dIsabled"禁用Cr+ Break中止宏运行的功能 工作簿 (8) Workbooks. Add0创建一个新的工作簿 (9) Workbooks(book1xs) Activate"激活名为book1的工作簿 (10) This Workbook. save保存工作簿 (11) his Workbook. close闭当前工作簿 (12) Active Workbook. Sheets. Count获取活动工作薄中工作表数 (13) ActiveWorkbook. name返回活动工作薄的名称 (14) ThisWorkbook name返回当前工作簿名称 ThisWorkbook. F|Name诙回当前工作簿路径和名称 (15) Active Window.上 nableRes记ze= False禁上调整活动工作鸂的大小 (16) Application Window. Arrange xlArrange Style Tiled将工作簿以平铺方式排列 (17) Active Workbook Window State= mAXimized将当前工作簿最大化 工作表 (18) Active Sheet. UsedRange Rows Count'当前工作表中已使用的行数 (19) Rows, Count获取工作表的行数(注:考虑向前茉容性) (20) Sheets( Sheet1)Name="sum”将shee1命名为Sum (21) ThisWorkbook. Sheets. Add Before:= Worksheets(1)添加一个新工作表在第一工作表前 (22)Active Sheet. Move After: =ActiveWorkbook Sheets( ActiveWorkbook sheets. Count)将当前工作表移至工作表的最后 (23) Worksheets(Aray( sheet1"shee2") Select'同时选择工作表1和工作表2 (24) Sheets(" sheet1). Delete或 Sheets(1. Delete删哙工作表1 (25) Active Workbook. Sheets()Name获取工作表的名称 (26) ActiveWindow. Display Gridlines= Not active window. Display Gridlines'刃换工作表中的网格线显示,这种方法乜可以用在其它方面进行相互切换,即相当于开关按钮 (27) Active/ ndow Display Headings= Not Active Window Display Headings切换工作表中的行列边框显示 (28) Active Sheet. UsedRange Formatconditions. Delete‘刪除当前工作表中所有的条件格式 (29) Colls Hyperlinks Dolcto取消当前工作表所有超链接 (30) Active Sheet. Page Setup Orientation=XILandscape 或 Active Sheet. Page Setup Orientation=2将页面设置更改为横向 (31) Active Sheet. Page Setup. RightFooter= ActiveWorkbook FulLName在贞面设置的表尾中输入文件路径 Active Sheet. Page setup. LeftFooter= Application. UserName将用户名放置在活动工作表的页脚 单元格/单元格区或 (32) Active Cell. Current Region. Select BRange(ActiveCell End(xlUp), Active Cell. End(xlDown)Select 选绎当前活动咩元格所包含的范围,上下左右无空行 (33) Cells. Select选定当前工作表的所有单元格 (34) Range(A1") clearcontents清除活动工作表上单元格A1中的内容 https://blog.csdnnet/wzk456/article/details/54927066/ 8/27 2018/12/24 VB屮对 EXCEL的各种操作-Wzk456的专伫-CSDN博客 Selection. Clear Contents清除选定区坷内容 Range(A1D4"). Clear沏底清除A1至D4单元格区域的内容,包括袼式 (35) Cells. Clear清除工作表中所有单元格的内容 (36) Active cell. offset(110) Select活动单元格下移—行,同理,可下移一列 (37) Range("A1"). Ofset( Column Offset:=1)或 Range("A1). Offset(,1)偏移—列 Range(A1"). Offset( Rowoffset:=-1)或 Rangel"A1).ofst(-1)向上偏移一行 (38) Range(A1") Copy Range(B1")'复制单元格A1,粘贴到单元格B1中 Range(A1D8) Copy Range(F1)将兰元格区域复伂到单元格F1开始的区域中 Range(A1:D8). Cut Range(F1")剪切单元格区域A1全D8,复制刳单元格F1开始的区域中 Range(A1"). CurrentRegion. Copy Sheets( Sheeta2"). Range(A1")复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中 注: CurrentReaion属性等价于定位命令,由一个矩形单元格块组成,周围是一个或多个空行或列 (39) Active Window Range Selection.vale=XX将值XX输入到所选单元格区域中 (40) ActiveWindow Range Selection. Count活动窗囗肀选择的单元格数 (41) Selection. Count'当前选中区域的单元格数 (42) NetAddress== Replace( Hyperlinkcell Hyperlinks(1) Address mailto∷;")返回单元格中超级链接的地址并赋值 (43) Textcolor= Rance(A1) Font colorindex检查单元格A1的文本颜色并返回颜色索引 Range("A1") Interior. Colorindex获取单元格A1背景色 (44) cells count返回当前工作表的单元格数 (45) Selection Range(E4"). Select激活当前活动单元格下方3行,向右4列的单元格 (46) Cells item(5,C)引单元格C5 Cells. Item(5,3)引单元格C5 (47)Range(A1").Ofset(Rowoffset: =4, Column Offset: =5) 或 Range(A1"). Offset(45)指定单元格F5 (48)Range B3"). Resize (RowSize =11, Column Size: =3) Rnage(B3) Resize(113)创健B3:D13区域 (49) Range(Data". Resize(2)将Daa区域扩充2列 (50) Union( Range(Data1”), Range(Data2")海Data1和Data2区或连接 (51) Intersect(Range ( Data1, Range(Data2”)返回Da1和Dat2区域的交叉区域 (52) Range(Data") Count单元格区域Data中的单元格数 Rango("Data). Columns, Count单元格区域Data中的列数 Range(Data).Rows. Count‘单元格区域Data中的行数 (53) Selection. Columns. Count当前选中的单元格区域中的列数 Selection. Rows. Count当前诜中的单元格区域中的行数 (54) Selection. Areas, Count选中的单元格区域包含的区域数 (55) Active Sheet. UsedRange Row获取单元格区域中使用的第一行的行号 (56) Rng Calumn获取单元格区域Rng左上角单元格所在列编号 (57) Active Sheet Cells. SpecialCells( xICellTypeAllFormatConditions)‘在活动工作表中运回所有符合条件格式设置的区域 (58) Range(A1. AutoFilter fico:=3 Visible Drop Down:=Fase'关闭由于执行自动筛选命令产生的第3个字段的下拉列表 名称 (59) Range("A1:C3")Name=" computer”命名A1:C3区域为 computer https://blog.csdnnet/wzk456/article/details/54927066/ 9/27 2018/12/24 ∨B屮对 EXCEL的各种操作-Wzk456的专栏-CSDN博客 或 Range(D1:E6”).Name=" Sheet1!book”命名局音变量,即 Sheet上区域D1:E6为book 或 Names("computer).Name= robot将区域 computer重命名为rbot (60) Names(book"). Delete删除名称 (61)Names. Add Name: ="ContentList RefersTo:="= OFFSET( Sheet1A20.0 COUNTA( Sheet2!sA:$A)动态命名列 (62) Names. Add Name:=" Company; RefersTo:=" Company car"命名字符串 Company Car (63) Names. Add Name:=" Total" RefersTo:=123456将数字123456命名为 Total注意数字不能加引号,否则就是命名字符串了 (64) Names Add name:=" My Array, RefersTo:= ArrayNum将数组 ArrayNum命名为 MyArray (65) Names. Add Name:=" Produce num, RefersTo:="=$Bs", Visible:= False‘将名称像藏 (66) Active Workbook. Names("Com)Name返回名称字符串 公式与函数 (67) Application. WorksheetFunction| sNumber"A1")使用工作表函数检查A1单元格中的数据是否为数字 (68 Range(A: A).Find(Application. WorksheetFunction. Max(Range(A: A ))) Activate 激活单元格区域A列中最大值的单元格 (69)cell(88) FormulaArray="=SUM(R2C-1R[-1]c-yR2cR-1]c”在单元格中输入数组公式。注意必须使用Rc1样式的表达式 图表 (70) Active Sheet. Charobjects Count获取当前工作表中图表的个数 (71) Active Sheet. Char Objects(Chart1". Select选中当前工作表中图表Char1 (72)Active Sheet Chart objects("Chart1 ).Activate Active Chart chartArea select选中当前图表区域 (73)Work Sheets( "Sheet1").Chartobjects(" Chart2) Chart ChartArea. Interior. ColorIndex=2更改工作表中图表的图表区的颜色 (74) Sheets(" Chart2. ChartArea. Interior ColorIndex=2更改图表工作表中图表区的颜色 (75) Charts. Add添加新的图表工作表 (76) Active Chart. SetSource Data Source: =Sheets("Sheet1)Range(A1: D5), PlotBy:= Columns‘指定图表数据源并按列排列 (77) Active Chart. Location Where:= XlLocationAsNew sheet新图表作为新图表工作表 76) Active Chart. PlotArea Interior ColorIndex=x|Nane将绘图区额色变为白色 (79)Work Sheets ("Sheet1").Chartobjects(1) Chart Export FiloNamc:="c: MyChart.gi, FiltorNamc:=G"将图表1导出到c盘上并命名为 My Chart.gf 窗体 (80) Msg Box"Hll"消息框中显示消息Hel (81)Ans= MsgBox( Continue?" vbYesNo)在消息框中点击“是按钮,则Ans值为 byEs;点击“否钮,则Ans值为vbNo If Msg Box("Continue?", byEs No<> b Yes Then Exit Sub'返回值不为是",则退出 (82) Config= vbYesNo+ vbQuesticn+ vb Button2使用常量的组合,赋值组Cong变量,并设置第二个按钮为缺雀按钮 (83) Msg Box" This is the first line."& neWliNe&" Second line在消息框中强制换行,可用vbC代替 neWline (84)Msg Box"the average is: "&Format(Application WorksheetFunction. Average( Selection), " # ##0.00").vbInformation, "selection count average"& Chr(13)'MRIlEZERK 域的平均值并按指定格式显示 (85) Userform1show‘显示用户窗体 (86) Load userforn加载一个用户窗体但该窗体处于隐藏状态 (87) Userform1Hide隐藏用户圈体 https://blog.csdnnet/wzk456/article/details/54927066/ 10/27

...展开详情
img

关注 私信 TA的资源

上传资源赚积分,得勋章
最新资源