VBA 實用集錦

批量取消隱藏工作表

sub ivisibletrue()

'' 在工作薄中手動將隱藏的工作表顯示需要乙個乙個進行，比較麻煩，用vba批量操作。
'dim i as
integer
for i = 1
to worksheets.count
worksheets(i).visible = true
next
endsub

單元格內容為「課程\n姓名」，乙個教師可能帶多門課程

private

sub worksheet_selectionchange(byval target as range)
dim iarea as range
set iarea = range("b5:aj15")
iarea.interior.colorindex = xlnone
if target.count > 1
then
set target = target.cells(1)
endifnothing
then
exit
subend
ifdim rng as range
foreach rng in iarea
if right(rng.value, 3) = right(target.value, 3) then
rng.interior.colorindex = 39
endif
next
endsub

vba 實用技巧

1.減少物件的啟用和選擇 with sheets sheet3 range a1 value 100 range a2 value 200 end with 2 在迴圈中要儘量減少物件的訪問。for k 1 to 1000 sheets sheet1 select cells k,1 value c...

實用CSS樣式定義集錦

將超出寬度的溢位文字顯示省略號效果 t text overflow ellipsis white space nowrap overflow hidden 用css實現table單元格資料自動換行或不換行的實現方法 word break break all 強制換行 word break keep ...

MAC OS實用快捷鍵集錦

command shift a 開啟 應用程式 資料夾 command shift c 開啟 電腦 視窗 command shift d 開啟桌面資料夾 command shift g 前往資料夾 command shift h 開啟當前已登入使用者帳戶的個人資料夾 command m 最小化視窗 ...