资源描述:
《vba单元格操作详解(个人总结,请勿转载)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、VBA单元格操作详解(个人总结,请勿转载)Incells,theinsertionformulashouldusethecell,sformulaproperty,andinsomecasesformlacanbeomitted,forexample:Subinsertionformula()Range(〃D4〃),〃・Formla〃二〃二d3-d2〃,"range"(〃D4〃)二〃二d3-d2〃canalsoberealizedEndSubYoucanalsoextractformulasusingtheformla
2、attribute,forexampleSubgetsthecellformula()Msgbox"theformulaforcellE4is:"&"range"(〃E4〃),".Formla",zzvbinformation^,"gettheformula・EndSubWhenyoueditVBA,insertthecellformulasothatyoucaninserttheexcelbuilt-informula.・Suchasmin,Max,sumandsoon,formulasareOKSubselects
3、allcells()Cells.selectEndSubSubselectsallcells()Rows・selectEndSubSubselectsallcells()Columns.selectEndSubTherearemanywaystorepresentacel1.Forexample,torepresentacell,BIOcanbeused:Cells(10,2)[blO]Range(〃B10〃)Cells仃0,b)Cells(〃B〃&10)Cells(9*columnnumber+2),suchas20
4、03columnnumberof256columns,thentheBIOisrepresentedbycells(2036)Toexplicitlyrepresentcells,suchasreferencingcellsfromdifferentworksheetsinthesameworkbook,theyarerepresentedasWorksheets(tablename)・Range(celladdress)Torefertoacellwithdifferentworksheets,itisreprese
5、ntedasWorkbooks(Workbookname),・Sheets(worksheetname),・Range(celladdress)Butwhenyouselectacell,ifyouwanttoselectthecellofthenonselectworksheet,forexample:Subselectsthecelloftheinactiveworksheet()Worksheets("SHEET2"),.Range(〃A10〃),.SelectEndSubAnerrorwilloccur・The
6、correctmethodofexpressionisSubselectsthecelloftheinactiveworksheet()Worksheets(〃SHEET2〃).SelectRange(〃A10〃).SelectEndSubSelectedregionSubselectregion()Range("a3:b6"),〃・Select","range"(“A3",〃B6〃),〃・Select",,zrange,/(cells(1,3),cells(2,6)),〃・Select",,z[a3:b6]・sele
7、ct",〃a3:b6〃,bothrepresenttheselectionregionEndSubSubselectsarow()Range(〃6:6〃),・Select,'rows(6)・SelectEndSubSubselectsmultiplerows()Range(〃6:9〃),・Select,'rows(〃6:9"),・SelectEndSubSubselectsacolumn()Columns(〃a:a〃),・Select,'columns(1).SelectEndSubSubselectsthedisco
8、ntinuousregion()Range(〃b2:b4,C4,b6:d8,f8:g9,z),.Select,Junion(range(〃b2:b4〃),range(〃C4〃),range(〃b6:d8〃),,zrangez,(〃f8:g9〃))・SelectEndSubSubselectsadjacentregions()The