1樓：匿名使用者
private sub workbook_open()dim a as integer
for a = 3 to 6
if worksheets("sheet1").range("h" & a) = true then
msgbox "哥哥請注意,有票票距離到期還有" & worksheets("sheet1").range("n" & a).value & "天。", 0, "提示", 0, 0
else
end if
next
end sub
2樓：匿名使用者
dim i%, mstr$
mstr="下列票據到期："
with sheet1
for i=3 to [h65536].end(3).rowif .
range("h" & i)=true then mstr=mstr & vbcrlf & .cells("h" & i).address(0,0) & .
range("n" & i).text & "天"
next
msgbox mstr
求EXCEL高手來編函式，求EXCEL高手來編一個函式
sheet1的b1輸入公式 lookup 1,0 find sheet2 a 1 a 3,a1 sheet2 a 1 a 3 回車確定,滑鼠移到單元格右下角,當出現一個黑色小十字時，同時按住滑鼠左鍵往下拖動 注意你 的名字，如果真是表一，表二的話，公式是這樣的 lookup 1,0 find 表二 ...
求高手做獵人巨集，求高手做一個獵人巨集
最簡單的當然就是 castrandom 奧術射擊,穩固射擊不過我比較喜歡這個 castsequence 奧術射擊,castsequence 穩固射擊 以前有個老辦法，不過我個人不推薦 因為麻煩 但是實際上是最好用的 因為你需要的兩個技能一個是瞬發 一個是有施放時間 在第一動作條第x個鍵放這個巨集 s...
EXCEL高手求救，EXCEL假死，向高手求救
各列單元格寫入公式 offset 周目標 c 23,row a1 1 offset f 4,row a1 3 3,offset f 6,row a1 3 3,offset 周目標 c 22,row a1 1 下拉填充公式 你是說在列中的三個單元格嗎 那公式為 offset 周目標 c 23,row ...