返回列表 上一主題 發帖

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

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-30 
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

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

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-30 
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 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

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

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題