ms-access - Access VBA 格式

Question

大家好，我最后把数据库和Excel整合得很好，但是最后给老板看了之后他们又要求我再用Access开发表格和报表。幸运的是，这并没有花费太长时间，所以我最终为一个后端数据库做了两个前端。但最终它将是一个完全 Access 数据库，仅使用一点点 Excel 集成；基本上是通过传输电子表格方法将每日交易结束时的股价传输到 Access 中。

现在我已经到了数据库几乎准备好分割和填充的地步。(解决这个问题的最佳方法是什么，先填充还是先分割？)

我要问的问题如下:

这似乎是一个相当简单的问题，但到目前为止，我还没有得到谷歌的帮助，或者也许我在搜索中没有使用正确的关键字，所以我想还有什么更好的地方可以问这里；有没有一种方法可以格式化通过某些 VBA 代码生成并放置在 Access 中的新表中的数字，使它们看起来像:

如果是 1,000,000 那么它会显示为 1m或者如果是 10,000，则显示为 10k所以基本上如果它有三个 0 那么它就是一个 K如果它有六个 0，那么它是一个 M

我最初使用了一些 VBA 按以下方式格式化数字:

ChangeInShare = Format(ChangeInShare, "#,##.00")

但随后要求缩短一些数字，以使报告看起来更整洁。

最后的表格采用文本格式的值顺便说一句。

谢谢

Answer 1

您可以使用模运算符来测试该数字是否可以被 1000000 或 1000 整除，然后替换最后的零。

也许这个函数会为您指明正确的方向:

Public Function fmt(val As Long) As String
  Dim result As String
  If val Mod 1000000 = 0 Then
    result = (val \ 1000000) & "M"
  ElseIf val Mod 1000 = 0 Then
    result = (val \ 1000) & "K"
  Else
    result = val
  End If
  fmt = result
End Function

然后是一些测试调用:

? fmt(471000)
471K
? fmt(4711)
4711
? fmt(4000000)
4M
? fmt(40000)
40K