vba-單元格程式碼
Rows.Count 顯示所有行的數目
Columns.Count 顯示所有列的數目
Cells(Rows.Count, 1).End(xlUp).Row 顯示第一列從下面數第一個有值的單元格的行號
Cells(1, Columns.Count).End(xlToLeft).Column 顯示第一行從右面數第一個有值的單元格的列號
Cells(1, 1).BorderAround xlContinuous, xlThin 給A1單元格加入外邊框Range("A1:B4").Borders.LineStyle. = xlContinuous 給這個區域加入邊框
Rows(1).AutoFit 為第一行分配合適的行距
Columns(1).AutoFit 為第一列分配合適的列寬
Rows(1).Delete 刪除第一行
Columns(1).Delete 刪除第一列
Cells(1, 1).MergeArea.Count 計算合併單元格的總單元格數
Cells(1, 1).MergeArea.Rows.Count 計算合併單元格的行數
Cells(1, 1).MergeArea.Columns.Count 計算合併單元格的列數
Cells(1, 1).MergeCells 返回Boolean,True和False
Rnd()函式 返回小於1,大於等於0的一個隨機數
Cells(1, 1).Interior.ColorIndex = Int(56 * Rnd() + 1) 給單元格內部賦個隨機的顏色
Cells(1, 1).EntireColumn 包含此單元格的列
Cells(1, 1).EntireRow 包含此單元格的行
Cells.Interior.ColorIndex = xlColorIndexNone 所有單元格五色
Set rng = Application.Union(Target.EntireRow, Target.EntireColumn) 設定合併區域,注意Union方法是在Application下面的
Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) 找出具有公式的單元格區域
Sheet1.Range("A:A").ClearContents 清除第一列的所有內容
Sheet1.Range("A:A").Clear 清楚第一列的所有東西,包括值、格式等
For Each rng In Sheet2.Range("A1:A40") 遍歷區域內的每個單元格
Range("A:A").Replace "區", "市" 替換
Range("A:A").Replace What:="區", Replacement:="市" 替換
Sheet1.Range("A1:G7").Copy Sheet2.Range("A1") 複製區域,高寬變化
Sheet1.Range("A1:G7").Copy 複製區域
Sheet3.Range("A1").PasteSpecial xlPasteColumnWidth 黏貼相同寬度,相同高度要自己設定
Range("C2").Copy Range("C3:C" & r) 複製單元格公式
Cells(r + 1, 3).Formula = "=SUM(C2:C" & r & ")" 相加公式,也可以用Range
Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]" 按照相對位置來算
Range("C" & r + 1).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)" 同上,按相對位置來算,注意,向上是“-”
Columns.Count 顯示所有列的數目
Cells(Rows.Count, 1).End(xlUp).Row 顯示第一列從下面數第一個有值的單元格的行號
Cells(1, Columns.Count).End(xlToLeft).Column 顯示第一行從右面數第一個有值的單元格的列號
Cells(1, 1).BorderAround xlContinuous, xlThin 給A1單元格加入外邊框Range("A1:B4").Borders.LineStyle. = xlContinuous 給這個區域加入邊框
Rows(1).AutoFit 為第一行分配合適的行距
Columns(1).AutoFit 為第一列分配合適的列寬
Rows(1).Delete 刪除第一行
Columns(1).Delete 刪除第一列
Cells(1, 1).MergeArea.Count 計算合併單元格的總單元格數
Cells(1, 1).MergeArea.Rows.Count 計算合併單元格的行數
Cells(1, 1).MergeArea.Columns.Count 計算合併單元格的列數
Cells(1, 1).MergeCells 返回Boolean,True和False
Rnd()函式 返回小於1,大於等於0的一個隨機數
Cells(1, 1).Interior.ColorIndex = Int(56 * Rnd() + 1) 給單元格內部賦個隨機的顏色
Cells(1, 1).EntireColumn 包含此單元格的列
Cells(1, 1).EntireRow 包含此單元格的行
Cells.Interior.ColorIndex = xlColorIndexNone 所有單元格五色
Set rng = Application.Union(Target.EntireRow, Target.EntireColumn) 設定合併區域,注意Union方法是在Application下面的
Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) 找出具有公式的單元格區域
Sheet1.Range("A:A").ClearContents 清除第一列的所有內容
Sheet1.Range("A:A").Clear 清楚第一列的所有東西,包括值、格式等
For Each rng In Sheet2.Range("A1:A40") 遍歷區域內的每個單元格
Range("A:A").Replace "區", "市" 替換
Range("A:A").Replace What:="區", Replacement:="市" 替換
Sheet1.Range("A1:G7").Copy Sheet2.Range("A1") 複製區域,高寬變化
Sheet1.Range("A1:G7").Copy 複製區域
Sheet3.Range("A1").PasteSpecial xlPasteColumnWidth 黏貼相同寬度,相同高度要自己設定
Range("B1:B20").Validation.Add Type:=xlValidateList, Formula1:="A,B,C,D,E,F,G" 資料有效性
Range("A1").TextToColumns Space:=True 透過不定數量的空格來分列字串
Cells(3, 4).Top 單元格頂部距離頂部的距離
Cells(3, 4).Left 單元格左邊距離左邊的距離
Cells(3) 表示第一行的第三列的單元格
ActiveWindow.VisibleRange.Cells(3) 表示當前頁面第一行的第三列的單元格
Cells(1, 1).Previous.Select 向前移一個位置
Cells(1, 1).Next.Select 向後移動一個位置
公式計算
Range("C2").Formula = "= A2*B2" 簡單相乘Range("C2").Copy Range("C3:C" & r) 複製單元格公式
Cells(r + 1, 3).Formula = "=SUM(C2:C" & r & ")" 相加公式,也可以用Range
Range("C2").FormulaR1C1 = "=RC[-2]*RC[-1]" 按照相對位置來算
Range("C" & r + 1).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)" 同上,按相對位置來算,注意,向上是“-”
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29987527/viewspace-2104437/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 分割單元格
- NPOI擴充套件--判斷指定單元格是否為合併單元格和輸出該單元格的行列跨度(維度)套件
- JavaScript 遍歷td單元格JavaScript
- js 表格合併單元格JS
- 表格td單元格合併
- vue表格合併單元格Vue
- 單元格資料鑽取
- 如何標記excel單元格Excel
- EasyExcel-合併單元格Excel
- POI設定excel單元格Excel
- 程式碼重構與單元測試(一)
- el-table自定義合併單元格後,單元格錯亂的問題
- 程式碼重構與單元測試——重構1的單元測試(四)
- 用k*k的方格覆蓋單元格(i,j),單元格可以被覆蓋幾次?
- Element-plus 合併單元格
- element中表格合併單元格
- SAP: SALV Grid 單元格顏色
- Excel-單元格內換行Excel
- 皕傑報表單元格空格
- 【C#】【DevExpress】自定義單元格右鍵選單,去除單元格編輯時,載入系統的預設選單C#devExpress
- table表頭單元格斜線效果
- JavaScript 獲取td單元格內容JavaScript
- Bootstrap-table 合併相同單元格boot
- excel合併的單元格重新填充Excel
- JavaScript 獲取表格指定td單元格JavaScript
- 表格單元格點選操作(彈窗)
- 自動填充被拆分的單元格
- PhpSpreadsheet設定所有單元格邊框PHP
- C&C++程式碼單元整合測試培訓C++
- WPF DataGrid實現單擊單元格直接編輯
- ABAP--一個讀取EXCEL單元格的內容超過256個字元的程式碼樣例Excel字元
- C 語言程式碼風格之 Linux 核心程式碼風格Linux
- 網格的單元格可以使用彈窗SM8016
- 如果利用 python 對 java 程式碼進行 單元測試?PythonJava
- 為程式碼編寫穩定的單元測試 [Go]Go
- vxe-table 使用單元格選取功能
- vxe-table 自定義單元格樣式
- 記錄vxe-table合併單元格
- wps/excel計算單元格內的算式Excel