請教Excle如何自定4捨吾入行為

本帖最後由 s20012797 於 2019-1-10 12:17 編輯

即係咁,我相計尾數單數,
細過4就減1,大過5就加1,
入1,3,5,7,9,11,13,15,17,19...
出0,2,6,8,10,10,12,16,18,20...
有冇人可以教下公式該點寫

咁樣,如果本身係雙數就唔變?
=IF(MOD(A1,2)=0,A1,IF(VALUE(RIGHT(A1,1))<4,A1-1,A1+1))

2019-01-10_15-34-55.png
2019-1-10 15:31

TOP

即係咁,我相計尾數單數,
細過4就減1,大過5就加1,
入1,3,5,7,9,11,13,15,17,19...
出0,2,6,8,10,10,12,16,18 ...
s20012797 發表於 2019-1-10 12:14



只係針對單數? 如果雙數又點? 另外係咪只係睇個位? 如果有少數位, 係睇個位, 定係最尾小數位?

TOP

只係針對單數? 如果雙數又點? 另外係咪只係睇個位? 如果有少數位, 係睇個位, 定係最尾小數位? ...
myricky 發表於 2019-1-10 16:36


雙數直出就好
如入1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
就出0,2,2,4,6,6,8,8,10,10,10,12,12,14,16,16,18,18,20,20,
小數位無視OK

TOP

咁樣,如果本身係雙數就唔變?
=IF(MOD(A1,2)=0,A1,IF(VALUE(RIGHT(A1,1))
sta 發表於 2019-1-10 15:32


Ching 正解,謝賜教

TOP

本帖最後由 myricky 於 2019-1-10 17:55 編輯
雙數直出就好
如入1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
就出0,2,2,4,6,6,8,8,10,10,10, ...
s20012797 發表於 2019-1-10 16:46


用vba create一個function就得 (按alt-F11開MS Visual Basic Editor, create一個組模module, 然後copy呢段野落去個module)

Public Function roundodd(x)
a = x - (10 * (x \ 10))
If a = 1 Or a = 3 Then roundodd = x - 1: GoTo 10
If a = 5 Or a = 7 Or a = 9 Then roundodd = x + 1: GoTo 10
roundodd = x
10:
End Function

咁個Excel就會多左一個 function叫roundodd, 你試下打=roundodd(15), 又或者其他數字就得.

Excel roundodd2.jpg
2019-1-10 17:53


Excel roundodd1.jpg
2019-1-10 17:55

TOP

用vba create一個function就得 (按alt-F11開MS Visual Basic Editor, create一個組模module, 然後copy呢 ...
myricky 發表於 2019-1-10 17:50


THX,的確好方便,

TOP