vlookupvba，vba中也可以調(diào)用工作SubWithSheets("sheet2")Forc=5To100Cells(14,c)=Application.WorksheetFunction.VLookup(Cells(10,c),Sheets("sheet1").Range("a:b"),2,0)EndEndActiveSheet.Cells(2,1).Formula=Sheet2.Cells(1,1)="1" Sheet2.Range("A5")=56&Target'----------------- 三、Range或者Range("A22:M22但不可以Range("A22:M22").Value=結(jié)果：將后一個(gè)數(shù)組的值賦值給第一個(gè)數(shù)例二：ange“1”&i) 還不懂，有待實(shí)驗(yàn)例三Range（很強(qiáng)大 [05-01-01]Subtest1()Worksheets("Sheet1").Range("A5").Value=22MsgBoxSheet1內(nèi)單元格A5中的值為_&Worksheets("Sheet1").Range("A5").ValueEndSubtest2()MsgBox"A1單元格中的值也為"&_EndSubSubMsgBox用公式填充單元格,本例為隨機(jī)數(shù)公式"-----------------------Range("A1:H8").Formula="=Rand()"EndSubWorksheets(1).Cells(1,1).Value=24MsgBoxA124"EndSubMsgBox給單元格設(shè)置公式,B2B5單元格區(qū)域之和"ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)"EndSubMsgBoxC5中的公式Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"-------------------------EndSub--[示例05-02]單元SubDimmyRangeAsSetmyRangeWorksheets("Sheet1").Range("A1:D5")'Range對(duì)象進(jìn)行操作myRange.Formula="=RAND()"myRange.Font.Bold=TrueEnd示例說明可以設(shè)置Range對(duì)象變量來單元格區(qū)域然后對(duì)該變量所代表的單元格區(qū)域05-03][05-03-01]清除單元格中的內(nèi)容(ClearContents方法)SubtestClearContents()MsgBox"清除指定單元格區(qū)域中的內(nèi)容"EndSub[05-03-02]清除單元格中的格式(ClearFormats方法)SubtestClearFormats()MsgBox"清除指定單元格區(qū)域中的格式"EndSub[示例05-03-03]清除單元格中的批注( ments方法) MsgBox"清除指定單元格區(qū)域中的批注" EndSubSubMsgBox徹底清除指定單元格區(qū)域"EndSub [05-04]RangeSub.Range(.Cells(1,1),.Cells(10,10)).Borders.LineStyle=xlThickEndWithEndRange(cell1,cell2)Rangecell1和cell2為指定起始和Range對(duì)象。--------------------------------------[05-05]選取單元格區(qū)域(Select法Sub'A1:D5EndSub05-06]域(Offset屬性SubtestOffset()Selection.Offset(3,1).SelectEndSubOffset(rowcolumn)(其中rowcolumn為行偏移量和列偏移量)[05-06-02]SubMsgBox32行的單元格中的值"MsgBoxActiveCell.Offset(3,2).ValueEnd--------------------------------------[05-07]調(diào)整區(qū)域的大小(Resize性SubDimnumRowsAsInteger,numcolumnsAsIntegernumRows=Selection.Rows.Countnumcolumns=Selection.Columns.CountSelection.Resize(numRows+1,numcolumns+1).SelectEndSub05-08]選取多個(gè)區(qū)域(Union方法SubDimrng1AsRange,rng2AsRange,myMultiAreaRangeAsRangeSetrng1=Range("A1:B2")Setrng2=SetmyMultiAreaRange=Union(rng1,rng2)EndUnion(range1,range2,...)返回多塊區(qū)域，即該區(qū)域由兩個(gè)或多個(gè)連續(xù)的單A1:B2C3:D4組合定義的對(duì)象，然后選定該05-09]SubMsgBoxB2:D6C4選中"End--------------------------------------[05-10](SpecialCells方法SubMsgBox"選擇當(dāng)前工作表中所有公式單元格"EndSub05-11]選取矩形區(qū)域?qū)傩許ubSelectCurrentRegion()MsgBox選取包含當(dāng)前單元格的矩形區(qū)域"End05-12]格(UsedRange屬性SubSelectUsedRange()MsgBox選取當(dāng)前工作表中已使用的單元格區(qū)域_&vbCrLf&"并顯示其地址"MsgBoxActiveSheet.UsedRange.AddressEndSub--------------------------------------[05-13]選取最邊緣單元格(End性SubSelectEndCell()MsgBox選取當(dāng)前單元格區(qū)域內(nèi)最下方的單元格"End SubMsgBox將當(dāng)前單元格中前面的單元格值設(shè)為""我前面的單元格&vbCrLf_&"后面的單元格值設(shè)為""我后面的單元格"""ActiveCell.Previous.Value我前面的單元格"ActiveCell.Next.Value="我后面的單元格"EndSub 有公式(HasFormula屬性SubIfSelection.HasFormulaTrueThenMsgBox"所選單元格中都有公式"MsgBox所選單元格中，部分單元格沒有公式"EndIfEnd05-16][05-16-01]獲取與運(yùn)算結(jié)果單元格有直接關(guān)系的單元格SubCalRelationCell()MsgBox選取與當(dāng)前單元格的計(jì)算結(jié)果相關(guān)的單元格"End[05-16-02]追蹤公式單元格SubCal1()MsgBox選取計(jì)算結(jié)果單元格相關(guān)的所有單元格"EndSubMsgBox追蹤運(yùn)算結(jié)果單元格"EndSubDelTrack()MsgBox刪除追蹤線"ActiveCell.ShowPrecedentsRemove:=TrueEndSub--------------------------------------[示例05-17]單元格(Copy方法SubMsgBox"在單元格B7中寫入公式后,將B7的內(nèi)容到C7:D7內(nèi)"Range("B7").Formula="=Sum(B3:B6)"Range("B7").Copy End Column屬性Sub"MsgBox&Selection.Row&&Selection.Column&列"EndSub 及行列數(shù)(Rows屬性、ColumnsCount屬性SubMsgBox"顯示所選取單元格區(qū)域的單元格數(shù)、行數(shù)和列數(shù)"MsgBox"單元格區(qū)域中的單元格數(shù)為:"&Selection.CountMsgBox"單元格區(qū)域中的行數(shù)為:"&Selection.Rows.CountMsgBox單元格區(qū)域中的列數(shù)為&Selection.Columns.CountEndSub [05-20-01]SubMsgBox將所選單元格區(qū)域中的文本左右對(duì)齊方式設(shè)為居中"Selection.HorizontalAlignment=xlHAlignCenterEndSubMsgBox將所選單元格區(qū)域中的文本上下對(duì)齊方式設(shè)為居中"Selection.RowHeight=36EndSub[05-20-02]縮排文本(InsertIndent方法)SubIndent()"Selection.InsertIndent1MsgBox將縮排值恢復(fù)"Selection.InsertIndent-1EndSub[05-20-03]設(shè)置文本方向(Orientation屬性)SubChangeOrientation()MsgBox45度"Selection.Orientation=45MsgBox將文本由橫向改為縱向"Selection.Orientation=xlVerticalMsgBox"將文本方向恢復(fù)原值"Selection.OrientationxlHorizontalEndSubSubChangeRow()DimMsgBox將所選單元格設(shè)置為自動(dòng)換行"i=Selection.WrapTextMsgBox"恢復(fù)原狀"Selection.WrapText=iEndSub[05-20-05]將比單元格列寬長(zhǎng)的文本縮小到能容納列寬大小(ShrinkToFit屬性)SubAutoFit()DimMsgBox將長(zhǎng)于列寬的文本縮到與列寬相同"i=Selection.ShrinkToFitMsgBox"恢復(fù)原狀"Selection.ShrinkToFit=iEndSub 屬性SubMsgBox10的單元格中的文本變?yōu)榧t色"Selection.FormatConditions.AddType:=xlCellValue,_Operator:=xlLessEqual,Formula1:="10"Selection.FormatConditions(1).Font.ColorIndex3MsgBox"恢復(fù)原狀"Selection.FormatConditions(1).Font.ColorIndex=xlAutomaticEndSub--------------------------------------[示例05-22]插入批注 ment法 "ment(" End "ment.Visible=Not End SubChangeColor()DimiroAsInteger"iro=Selection.Interior.ColorIndexSelection.Interior.ColorIndex=3"Selection.Interior.ColorRGB(0,0,255)MsgBox"恢復(fù)原狀"Selection.Interior.ColorIndex=iroEnd SubChangePattern()Dimp,pc,i"p=pc=Selection.Interior.PatternColorIndexFori=9To16With.Pattern=.PatternColor=RGB(255,0,0)EndWithMsgBox&NextMsgBox"恢復(fù)原狀"Selection.Interior.Pattern=pSelection.Interior.PatternColorIndexpcEndSub SubMsgBoxA2:C2,并將文本設(shè)為居中對(duì)齊"With.MergeCells=.HorizontalAlignment=xlCenterEndWithEnd SubMsgBoxB2:D6中"ActiveSheet.ScrollArea="B2:D6"EndSubMsgBox解除移動(dòng)范圍限制"ActiveSheet.ScrollArea=""EndSub 屬性Sub"MsgBox"絕對(duì)地址:"& 比如MsgBox"行的絕對(duì)地址:"&Selection.Address(RowAbsolute:=False)MsgBox"列的絕對(duì)地址:"&Selection.Address(ColumnAbsolute:=False)MsgBoxR1C1形式顯示&Selection.Address(ReferenceStyle:=xlR1C1)MsgBox"相對(duì)地址:"&Selection.Address(False,False)End SubMsgBoxC2:D6后,右側(cè)的單元格向左移動(dòng)"ActiveSheet.Range("C2:D6").Delete(xlShiftToLeft)四、電子表格，另存在宏編輯器里的ThisWorkBookPrivateSubworkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsDimresponseAsIfSaveAsUI=TrueresponseMsgBox("該工作簿不允許用“另存為”來保存，&你要用原工作簿名稱來保存嗎？",vbQuestion+vbOKCancel)Cancel=(response=vbCancel)IfCancel=FalseThenMe.SaveCancel=TrueEndIfEndSub五、使用剪切功能：不影響其它工作（BeforeClose）代碼如下：到ThisWorkBook代碼區(qū)（在office2003正常，在office等版本設(shè)置可能有所不同PrivateSubWorkbook_Activate()（激活）時(shí)，相應(yīng)地禁'禁用菜單欄"剪切",里面的序號(hào)代表位置,2和3是2003里的,XP中應(yīng)該不mandBars(1).Controls(2).Controls(3).Enabled'禁用右鍵中的"剪切",序號(hào)1代表第一個(gè)選擇,2代表(這是我的,自己mandBars("cell").Controls(1).Enabled='禁用鍵盤"Ctrl+x",恢復(fù)方法:Application.OnKey"^x"Applicatio