資源描述：
《excelvbaactivecell用法集錦》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、Activecell用法集錦，山野雪人（馮德平）收集整理說明：自從本人開辟了一個(gè)《Excel百問百答》后，目前訪問量接近三萬，貼子已超過1000貼，并有21人收藏，很多網(wǎng)友紛紛要求我提供一些資料性的東西，為滿足廣大網(wǎng)友的要求，先將關(guān)于ActiveCell部分的內(nèi)容整理如下，希望大家喜歡。一、相關(guān)解釋和幫助Window.ActiveCell屬性返回一個(gè)Range對象，它代表活動(dòng)窗口（最上方的窗口）或指定窗口中的活動(dòng)單元格。如果窗口中沒有顯示工作表，此屬性無效。只讀。語法表達(dá)式.ActiveCell表達(dá)式一個(gè)代表Window對象的變量。說明如果不指定對象識別符，此屬性返回活動(dòng)窗口
2、中的活動(dòng)單元格。請仔細(xì)區(qū)分活動(dòng)單元格和選定區(qū)域?；顒?dòng)單元格為選定區(qū)域內(nèi)部的一個(gè)單元格。而選定區(qū)域可以包含多個(gè)單元格，但只有一個(gè)單元格為活動(dòng)單元格。下列表達(dá)式都是返回活動(dòng)單元格，并且都是等效的。VisualBasicforApplicationsActiveCellApplication.ActiveCellActiveWindow.ActiveCellApplication.ActiveWindow.ActiveCell示例此示例在消息框中顯示活動(dòng)單元格的值。由于如果活動(dòng)表不是工作表則ActiveCell屬性無效，所以此示例使用ActiveCell屬性之前先激活Sheet1。
3、VisualBasicforApplicationsWorksheets("Sheet1").ActivateMsgBoxActiveCell.Value此示例更改活動(dòng)單元格的字體格式設(shè)置。VisualBasicforApplicationsWorksheets("Sheet1").ActivateWithActiveCell.Font.Bold=True.Italic=TrueEndWith二、相關(guān)問答：1、activecell.row是什么意思？sheets("記錄").selectselection.end(xltoleft).selectrow_db=activece
4、ll.row這行，這是什么意思，定義了row_db等于的是什么？謝謝幫忙答：sheets("記錄").select'選中"記錄"工作表selection.end(xltoleft).select'相當(dāng)于按下Ctrl+←鍵,即選中當(dāng)前選區(qū)最上面一行向左數(shù)第一個(gè)或最后一個(gè)非空單元格row_db=activecell.row'這里的row_db就是當(dāng)前選中的單元格所在的行號,也就是在運(yùn)行宏之前的選區(qū)的最上面一行的行號小Fisher2、在EXCEL宏里面有段程序如下:ActiveCell.FormulaR1C1請幫忙解釋.答：當(dāng)前活動(dòng)單元格中的公式為......你自己錄制一個(gè)宏,看一
5、下就知道了.錄制一個(gè)輸入公式的宏.smallcolour3、我現(xiàn)在是基于這個(gè)做個(gè)循環(huán)的句子單元格C1=A1+B1SubMacro1()Range("C1").SelectActiveCell.FormulaR1C1="=RC[-2]+RC[-1]"EndSub這個(gè)地方RC[-2]+RC[-1]是絕對的行列位置，現(xiàn)在我需要寫個(gè)循環(huán)，RC[-2]的2變成一個(gè)變量i,怎么寫呢？我把-2換成-&i&結(jié)果他變成了字符來處理了。謝謝指點(diǎn)了。答：Excel有兩種引用方式的，一種是A1引用，一種是R1C1引用~你現(xiàn)在使用的是R1C1引用~要改引用方式可以在工具選項(xiàng)常規(guī)中取消R1C1引用樣式~
6、看到你給我的留言了，但是還是不明白你的意思~你是不是想在選中某個(gè)單元格的時(shí)候，引用附近的某個(gè)單元格呢？想把2換成i可以這樣：ActiveCell.FormulaR1C1="=RC[-"&i&"]+RC[-1]"nxnd1986三、實(shí)例收集SubactiveCell()IfActiveCellIsNothingThenEndEndSubSuboffset()ActiveCell.Offset(RowOffset:=-2,ColumnOffset:=4).ActivateEndSubSubMyMacro'將當(dāng)前的單元格的文本前加上文字ActiveCell.Value="無效值:"
7、&ActiveCell.ValueEndSubSubfomula()ActiveCell.Formula="=SUM($G$12:$G$22)"EndSubSubMyMacro'+-*/及^運(yùn)算ActiveCell.Value=(ActiveCell.Value*2)-1EndSubSubMyMacro()'移動(dòng)單元格ActiveCell.Value="Topcell"ActiveCell.Offset(1,0)="Bottomcell"EndSubSubMyMacro()'移動(dòng)到新的單元格'Chang
