返回列表 上一主題 發帖

請問一排數據全部減1,但不想要負數該如何處理?

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-12-13 23:24 | 只看該作者

請問一排數據全部減1,但不想要負數該如何處理?

請教各位老師:
一排數據全部減1,但不想要負數該如何處理?

A B C D E F G H I J K L M N O
1 3 2 0 0 4 2 1 1 2 3 3 0 1 2

全部減1 希望能變成

A B C D E F G H I J K L M N O
0 2 1 0 0 3 1 0 0 1 2 2 0 0 1

正常來說用公式,即可馬上得到答案.但是數字 0 去減1 會變成-1,小弟希望數字 0 去減1 還是0.
如果數據是從A1~BJ1 可以直接用VBA的程序處理嗎?
謝謝
收藏 分享
感謝各位老師花心思教導

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
4#
發表於 2011-12-14 23:31 | 只看該作者
回復 2# a8350070


TO:a8350070大大:
感謝您指點,我將其轉換成vbs來用了!
謝謝您

Range("A2").Select
    ActiveCell.FormulaR1C1 = "=MAX(0,R[-1]C-1)"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:J2"), Type:=xlFillDefault
    Range("A2:J2").Select
感謝各位老師花心思教導

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
270  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-11-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-12-13 23:36 | 只看該作者
回復 1# jonn0510


   play.gif
學海無涯_不恥下問

TOP

a8350070

帖子
48 
主題
2 
精華
0 
積分
64 
點名
0  
作業系統
xp 
軟體版本
office 2000 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2011-4-16 
最後登錄
2025-2-16 
2#
發表於 2011-12-13 23:34 | 只看該作者
A2=MAX(0,A1-1)
往右拉複製
My Blog
http://blog.xuite.net/a8350070

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題