VBA语句集100句_第2辑.txt

- page 1- excelvbavba 伯 vba 伯 (2 ) * (101) err.clear * (102) thisworkbook.builtindocumentproperties(last save time) application.caller.parent.parent.builtindocumentproperties(last save time) 湤 (103) thisworkbook.builtindocumentproperties(“last print date“) application.caller.parent.parent.builtindocumentproperties(last print date) (104) workbooks.close (105) activeworkbook.linksources(xlexcellinks)(1) (106) activeworkbook.codename thisworkbook.codename (107) activeworkbook.fileformat thisworkbook.fileformat (108) thisworkbook.path activeworkbook.path (:,) (109) thisworkbook.readonly activeworkbook.readonly /(false) (110) thisworkbook.saved activeworkbook.saved 洢(false) (111) application.visible = false application.visible = true :,. * (112) activesheet.columns(“b“).insert a b activesheet.columns(“e“).cut activesheet.columns(“b“).insert 佫e b b activesheet.columns(“b“).cut activesheet.columns(“e“).insert 佫b d c d - 1 - - page 2- excelvbavba 伯 (113) activesheet.calculate (114) thisworkbook.worksheets(sheet1).visible=xlsheethidden excel thisworkbook.worksheets(sheet1).visible=xlsheetveryhidden excel thisworkbook.worksheets(sheet1).visible=xlsheetvisible (115) thisworkbook.sheets(1).protectcontents 鹤 (116) thisworkbook.worksheets.add count:=2, _ before:=thisworkbook.worksheets(2) thisworkbook.workshees.add thisworkbook.worksheets(2), , 2 (117) thisworkbook.worksheets(3).copy (118) thisworkbook.worksheets(3).copy thisworkbook.worksheets(2) (119) thisworkbook.activesheet.columns.columnwidth = 20 乤 20 thisworkbook.activesheet.columns.columnwidth = _ thisworkbook.activesheet.standardwidth thisworkbook.activesheet.columns(1).columnwidth = 20 乤1 20 (120) thisworkbook.activesheet.rows.rowheight = 10 乤10 thisworkbook.activesheet.rows.rowheight = _ thisworkbook.activesheet.standardheight thisworkbook.activesheet.rows(1).rowheight = 10 乤1 10 (121) thisworkbook.worksheets(1).activate (122) thisworkbook.worksheets(“sheet1“).rows(1).font.bold = true sheet1 1 (123) thisworkbook.worksheets(“sheet1“).rows(1).hidden = true sheet1 1 activecell.entirerow.hidden = true (124) activesheet.range(a:a).entirecolumn.autofit a (125) activesheet.cells.specialcells(xlcelltypeconstants,xltextvalues) activesheet.cells.specialcells(xlcelltypeconstants,xlerrors+xltextvalues) * (126) application.macrooptions macro:=sumpro,category:=4 sumpro excel (127) application.macrooptions macro:=sumpro, _ - 2 - - page 3- excelvbavba 伯 description:=first sum,then product 庯sumpro (128) application.worksheetfunction.counta(range(a:a)+1 a (129) worksheetfunction.counta(cell.entirecolumn) worksheetfunction.counta(cell.entirerow) (130) worksheetfunction.counta(cells) (131) activesheet.range(a20:d20).formula=sum(r-19c:r-1ca d 19 * (132) activewindow.visible=false activechart.deselect (133) typename(selection)=chart 棬 (134) activesheet.chartobjects.delete chartobject activeworkbook.charts.delete * (135) userforms.add(myform).show myform (136)textname.setfocus (137) spinbutton1.value=0 0 (138) textbox1.text=spinbutton1.value spinbutton1.value=val(textbox1.text) cstr(spinbutton1.value)=textbox1.text (139) userform1.controls.count userform1 (140) listbox1.additem command1 command1 (141) listbox1.listindex -1 (142) refedit1.text refedit1.text=activewindow.rangeselection.address refedit set firstcell=range(refedit1.text).range(a1) (143) application.ontime now + timevalue(“00:00:15“), “myprocedure“ 15 myprocedure (144) activewindow.scrollcolumn=scrollbarcolumns.value activewindow scrollcolumn activewindow.scrollrow=scrollbarrows.value activewindow scrollrow (145) userform1.listbox1.additem sheets(sheet1).cells(1,1) a1 listbox1.list=product product listbox1 - 3 - - page 4- excelvbavba 伯 listbox1.rowsource=sheet2!sump sheet2 sump (146) listbox1.selected(0) ( selected ) (147) listbox1.removeitem listbox1.listindex * application (148) application.username (149) application.caller (150) application.caller.parent.parent (151) application.statusbar= application.statusbar= & percent & % completed percent İ application.statusbar=false (152) application.goto reference:=range(a1:d4) a1 d4 a1 d4 (153) application.dialogs(xldialogformulagoto).show (154) application.dialogs(xldialogselectspecial).show (155) application.dialogs(xldialogformatnumber).show application.dialogs(xldialogalignment).show application.dialogs(xldialogfontproperties).show 塱 application.dialogs(xldialogborder).show application.dialogs(xldialogpatterns).show application.dialogs(xldialogcellprotection).show (156) application.dialogs(xldialogformulagoto).show range(“b2“), true () (157) application.commandbars(1).controls(2).controls(16).execute (158) application.transpose(array(sun,mon,tur,wed,thu,fri,sat) (159) application.version excel 汾 (160) application.cursor = xlnorthwestarrow application.cursor = xlibeam application.cursor = xlwait () application.cursor = xldefault (161) application.windowstate - 4 - - page 5- excelvbavba 伯 application.windowstate = xlminimized application.windowstate = xlmaximized application.windowstate = xlnormal (162) application.usableheight application.usablewidth (163) application.activecell.address (:) (164) application.activeprinter (165) application.activesheet.name (166) application.activewindow.caption (167) application.activeworkbook.name (168) application.selection.address (169) application.thisworkbook.name (170) application.calculationversion excel 汾()excel 汾() (171) application.memoryfree excel ( ) (172) application.memoryused excel (173) application.memorytotal excel ( ,memoryfree memoryused ) (174) application.operatingsystem 汾 (175) application.organizationname excel (176) application.findformat application.replaceformat 滻 activesheet.cells.replace what:= , _ replacement:= ,searchformat:=true,replaceformat:=true 滻 (177) application.interactive=false (178) application.evaluate(“rate“) 0.06 rate, 佫0.06 (179) application.onundo undo option,undo procedure undooption undo procedure * range (180) range(a1:a10).value=application.worksheetfunction.transpose(myarray) 10 (a1 a10) (181) range(a65536).end(xlup).row+1 a (182) rng.range(a1) (183) cell.parent.parent.worksheets (184) selection.font.bold=not selection.font.bold (185) activesheet.range(“a:b“).sort key1:=columns(“b“), key2:=columns(“a“), _ header:=xlyes b a - 5 - - page 6- excelvbavba 伯 (186) cell.range(a1).numberformat (187) cell.range(a1).hasformula 鵥 cell.hasformula (188) cell.entirecolumn cell.en