如何總是找到最接近的百分之一？

我有一個可以隨時更改的號碼。我想找到那個數字的前一百分之一。我只能找到最接近的百分之一。以下是我如何做atm：如何總是找到最接近的百分之一？

Dim mynum as integer 
mynum = 549 
Dim tempnumber as integer 
tempnumber = Round(mynum/100, 0) * 100 '>>> equals 500 which is correct

如果mynum是551怎麼辦？ >>它會得到600我不想要的，我只想要500是否數字是556,588或599，我想要的數字仍然是500.

我希望它是599 >> 500 ，799 >> 700。基本上是當前數字的百分之一。

的可能的複製[如何回合VBA到最近的5多少？（或10或X）]（http://stackoverflow.com/questions/326476/how-to-round-a-number-in-vba-to-the-nearest-5-or-10-or-x） –

這就是'或X'進來的地方......一旦你知道如何舍入到10，那麼將它延伸到100應該是微不足道的。並注意599舍入到500不是最近的。這簡直就是四捨五入。如果你四捨五入到「最接近」，599會輪到600。 –

@ScottCraner做到了。謝謝！ – JustAnotherPersonYouDontKnow

有兩種方法可以做到這一點：

Round((mynum-50)/100,0)*100

和使用工作表函數：

Application.WorksheetFunction.RoundDown(mynum,-2)

2016-10-04 18:38:26

回答