返回列表 上一主題 發帖

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

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
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

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
7#
發表於 2012-3-19 15:22 | 只看該作者
回復 6# Hsieh
感謝，謝謝H大幫忙。

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-3-19 08:29 | 只看該作者
回復 5# spermbank
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. a.Offset(, 5) = Application.Floor(a, b) '無條件捨去
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
5#
發表於 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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-17 09:04 | 只看該作者
回復 3# spermbank
試試看
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. a.Offset(, 5) = Application.RoundDown(Application.Floor(a, b / 10), 2) '無條件捨去
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
3#
發表於 2012-3-17 01:34 | 只看該作者
回復 2# Hsieh


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

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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-16 22:56 | 只看該作者
回復 1# spermbank
試試看
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. Next
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題