返回列表 上一主題 發帖

請問一排數據全部減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蛇年全勤獎章
2#
發表於 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

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題