使用VBA程式進行單元格顏色填充

private sub worksheet_selectionchange(byval target as range) '改變選擇單元格時執行

dim i, j, k as integer
set mysheet1 = thisworkbook.worksheets("sheet1")
for i = 3 to 1000 '第3到1000行
for j = 2 to 9 '第二列到第九列
if mysheet1.cells(i, j) <> "" then '如果單元格不是空白，則執行以下程式
k = mysheet1.cells(i, j).value '將單元格裡面的值賦給變數 k
if k < 60 then
mysheet1.cells(i, j).interior.color = 65535 '填充顏色為黃色
end if
if k >= 60 and k < 80 then
mysheet1.cells(i, j).interior.color = 5296274 '填充顏色為淺綠色
end if
if k >= 80 then
mysheet1.cells(i, j).interior.color = 5287936 '填充顏色為綠色
end if
end if
next
next
end sub

VBA 定位單元格

在excel自帶功能中，即帶有根據特殊格式定位的功能 開始 查詢與選擇 定位條件 可以根據需要定位查詢 標註 常量 公式 空值 可見單元格 等。該函式和下面excel面板功能相通 其使用格式為 expression.specialcells type,value 下表是value可選的引數 選擇有公...

VBA 快速填充單元格

在excle中，需要填充單元格，直接下拉，然後即可填充，但是使用vba 又該如何實現這個呢？區域 public sub 快速填充 dim myrange as range cells.clear 清除所有 資料 set myrange range a1 a12 with myrange.cells ...

VBA 單元格合併時內容也進行合併

一 功能 選中單元格，在進行合併時，單元格的內容也進行合併，而不只是保留左上角單元格。二 示例 sub hebing dim s as string,c as range if typename selection range then for each c in selection s s c.v...