Worksheet.Cells 屬性(Excel) | Microsoft Docs

Office VBA reference topic. ... expression.Cells. 表達代表工作表 物件的變數。

... Cells.Font .Name = "Arial" .Size = 8 End With. 跳到主要內容 已不再支援此瀏覽器。

請升級至MicrosoftEdge，以利用最新功能、安全性更新和技術支援。

下載MicrosoftEdge 其他資訊 目錄 結束焦點模式 閱讀英文 儲存 目錄 閱讀英文 儲存 編輯 Twitter LinkedIn Facebook 電子郵件 目錄 Worksheet.Cells屬性(Excel) 發行項 04/07/2022 1位參與者 本文內容 會傳回Range物件，代表工作表中的所有儲存格(，而不只是目前正在使用)中的儲存格。

語法 expression.Cells 表達代表工作表物件的變數。

註解 因為Range的預設成員會將帶參數的呼叫轉傳到Item屬性，您可以緊接著在Cells關鍵字後面指定列索引及欄索引，而不是明確呼叫Item。

使用此屬性時，如果不指定物件辨識符號，則會傳回代表現用工作表中所有儲存格的Range物件。

範例 本範例會將使用中活頁簿Sheet1上儲存格C5的字型大小設定為14點。

Worksheets("Sheet1").Cells(5,3).Font.Size=14 這則範例會清除現用活頁簿中Sheet1上第一個儲存格的公式。

Worksheets("Sheet1").Cells(1).ClearContents 本範例會將Sheet1中每一個儲存格的字型和字型大小設定為8點Arial。

WithWorksheets("Sheet1").Cells.Font .Name="Arial" .Size=8 EndWith 本範例會在您按兩下資料範圍中的任何儲存格時，切換遞增和遞減順序的排序。

資料是根據按兩下的儲存格的欄來排序。

OptionExplicit PublicblnToggleAsBoolean PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean) DimLastColumnAsLong,keyColumnAsLong,LastRowAsLong DimSortRangeAsRange LastColumn=Cells.Find(What:="*",After:=Range("A1"),SearchOrder:=xlByColumns,SearchDirection:=xlPrevious).Column keyColumn=Target.Column IfkeyColumn<=LastColumnThen Application.ScreenUpdating=False Cancel=True LastRow=Cells(Rows.Count,keyColumn).End(xlUp).Row SetSortRange=Target.CurrentRegion blnToggle=NotblnToggle IfblnToggle=TrueThen SortRange.SortKey1:=Cells(2,keyColumn),Order1:=xlAscending,Header:=xlYes Else SortRange.SortKey1:=Cells(2,keyColumn),Order1:=xlDescending,Header:=xlYes EndIf SetSortRange=Nothing Application.ScreenUpdating=True EndIf EndSub 本範例會在使用中工作表的欄C上進行，並針對每一個具有批註的儲存格，將註解文字置於D欄中，並從C欄刪除批註。

PublicSubSplitCommentsOnActiveSheet() 'Setupyourvariables DimcmtAsComment DimrowIndexAsInteger 'GothroughallthecellsinColumnC,andchecktoseeifthecellhasacomment. ForrowIndex=1ToWorksheetFunction.CountA(Columns(3)) Setcmt=Cells(rowIndex,3).Comment IfNotcmtIsNothingThen 'Ifthereisacomment,pastethecommenttextintocolumnDanddeletetheoriginalcomment. Cells(rowIndex,4)=Cells(rowIndex,3).Comment.Text Cells(rowIndex,3).Comment.Delete EndIf Next EndSub 支援和意見反應 有關於OfficeVBA或這份文件的問題或意見反應嗎？如需取得支援服務並提供意見反應的相關指導，請參閱OfficeVBA支援與意見反應。

本文內容