返回列表下一主題上一主題發帖

[發問] 數字尾數調整問題

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-16 16:01 | 顯示全部帖子

[發問] 數字尾數調整問題

本帖最後由 spermbank 於 2012-3-16 16:02 編輯

大家好:
想請問一個設計巨集的問題:

我在test檔案中的工作表sheet1中的A區與B區
我要如何把這些數字用下列規則:
數字區間0-10          跳動+-0.01
數字區間10-50       跳動+-0.05
數字區間50-100    跳動+-0.1
數字區間100-500 跳動+-0.5
數字區間500-1000  跳動+-1
數字區間1000以上跳動+-5

例如:
數字  6.7894  取 6.79  (只要數字大於6.78就進位取6.79)
數字  10.68 取10.7 (只要數字大於10.65就進位取10.7)
數字  56.92 取57    (只要數字大於56.9就進位取57)
數字  103.42 取103.5 (只要數字大於103就進位取103.5)
...等等

然後按下巨集就把運算後的規則數字送入C區和D區
不知道如何寫，請大大們幫忙一下，謝謝。

test.rar (8.84 KB)

樓主熱帖

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

2^#

發表於 2012-3-17 01:34 | 顯示全部帖子

回復 2# Hsieh

謝謝H大，程式跑來完全符合想法。

想在請問一下
若是我想改變一下規則，想利用捨去法，把多餘的刪除
例如:
數字  6.7894  取 6.78
數字  10.68 取10.6
數字  56.92 取56.9
數字  103.42 取103
程式要怎麼修改，謝謝。

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

3^#

發表於 2012-3-18 00:54 | 顯示全部帖子

回復 4# Hsieh

H大你好:
我利用
a.Offset(, 5) = Application.RoundDown(Application.Floor(a, b / 10), 2) '無條件捨去
跑出來的結果似乎不太對
例如:
12.33 還是12.33 沒辦法無條件捨去變成12.3
45.47 變成45.46 沒辦法無條件捨去變成45.45
15.27 變成15.26 沒有辦無條件捨去變成15.25
...等等

可不可請H大再幫我看看，謝謝。

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

4^#

發表於 2012-3-19 15:22 | 顯示全部帖子

回復 6# Hsieh
感謝，謝謝H大幫忙。

TOP

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題