返回列表 上一主題 發帖

[發問] 請教此巨集如何寫??

t8899

帖子
745 
主題
242 
精華
0 
積分
1000 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-1 10:03 | 只看該作者

[發問] 請教此巨集如何寫??

1. F1:F100 有任一個儲存格大於2000則提示此儲存格對應A欄的值
2. K欄為公式 =IF(K21="","",L21-K21)
假如 k21:K350 的倒數第一格是錯誤 (#n/a #div/o...)
則執行abc 巨集
收藏 分享

t8899

帖子
745 
主題
242 
精華
0 
積分
1000 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-18 
2#
發表於 2013-8-1 12:49 | 只看該作者
抱歉
是 k21:K350 的倒數第一格起算
K350 沒錯 依序檢查K349 K348 ........................有錯誤則 RUN ABC

TOP

t8899

帖子
745 
主題
242 
精華
0 
積分
1000 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-18 
3#
發表於 2013-8-2 05:19 | 只看該作者
抱歉
第二個問題已解決
第一個問題想改為
假如F1>E1,F2>E2,F3>E3,F4>E4.....F100>E100
則提示達到條件的儲存格所對應B欄的值

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2013-8-2 07:57 | 只看該作者
本帖最後由 owen06 於 2013-8-2 07:59 編輯

回復 3# t8899

這樣子呢？
For Each f In [f1:f100]
If f > f.Offset(0, -1) Then
MsgBox f.Offset(0, -4).Address & "值:" & f.Offset(0, -4)
End If
Next

可是我不知道怎麼讓.address顯示出來的樣式變成b1，而不是$b$1，
有人可以教導一下嗎？謝謝~

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題