VBA 錄入資料後單元格自動保護

在excel中【審閱】【保護工作表】可以選擇對工作表進行保護，下面的**可以用於對輸入內容的單元格進行保護：

private

sub worksheet_selectionchange(
byval target as range)
on error
resume
next
'出錯誤之後向下執行
sheet1.unprotect password:
="1234"
'設定密碼
if target.value <>
""then
'單元格編輯後，不為空
target.locked =
true
sheet1.protect password:
="1234"
endif
endsub

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 複製單元格批註

只複製單元格的批註該怎麼操作呢？如下 public sub 複製單元格批註 dim range1 as range dim range2 as range 清除g列 columns g g clear set range1 range a1 b4 指定要複製的單元格區域 set range2 ran...