人民币面值统计张数

天天向下

那位老师帮我写一下代码，谢谢！

天天向下

没人看看吗

wengjl

Sub rmbzsjs()
   
    Sheet1.Select
    x1 = 3
    Do While Not (IsEmpty(Sheet1.Cells(x1, 1).Value))
      je = Sheet1.Cells(x1, 1).Value
      j100 = Int(je / 100)
      j50 = Int((je - j100 * 100) / 50)
      j20 = Int((je - j100 * 100 - j50 * 50) / 20)
      j10 = Int((je - j100 * 100 - j50 * 50 - j20 * 20) / 10)
      j5 = Int((je - j100 * 100 - j50 * 50 - j20 * 20 - j10 * 10) / 5)
      j1 = Int(je - j100 * 100 - j50 * 50 - j20 * 20 - j10 * 10 - j5 * 5)
      j05 = Int((je - Int(je)) / 0.5)
      j01 = (je - j100 * 100 - j50 * 50 - j20 * 20 - j10 * 10 - j5 * 5 - j1 - j05 * 0.5) * 10
      
      Sheet1.Cells(x1, 2).Value = j100
      Sheet1.Cells(x1, 3).Value = j50
      Sheet1.Cells(x1, 4).Value = j20
      Sheet1.Cells(x1, 5).Value = j10
      Sheet1.Cells(x1, 6).Value = j5
      Sheet1.Cells(x1, 7).Value = j1
      Sheet1.Cells(x1, 8).Value = j05
      Sheet1.Cells(x1, 9).Value = j01
      x1 = x1 + 1
    Loop
End Sub

wengjl

需要最后加一例1角面值的

天天向下

wengjl 发表于 2023-3-16 17:01
Sub rmbzsjs()
   
    Sheet1.Select

如果改为B列呢？

杨建营

1改成2.

LIUZHU

JS宏，由于JS中对浮点运算很不友好，所以转化为正数进行运算

LIUZHU

WPS打开测试，金额扩大100倍，面值也同样扩大100倍

天天向下

谢谢楼上几位！

aecn

有0.01元是怎么处理的？