尝试生成唯一发票号码

尝试生成唯一发票号码

我正在为公司制作一本“工作现场”工作簿。它最终将处理工作结束时需要提交的所有文书工作。我们收到的旧发票只是将发票总额用作“票号”,但在某些情况下,这会导致票号重复。

所以我所做的是使用 VBA 提取客户姓名中每个单词的第一个字母,使用以下代码:

Function GetFirstLetters(rng As Range) As String
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

并将其附加到发票总额的开头。但结果却留下了小数和剩余的零钱,我想省略这些零钱。

在此处输入图片描述

我还没有找到删除小数的方法,而且我甚至不确定现在单元格包含单词和值组合是否有可能,但我想这是一个需要询问的地方。

任何帮助将不胜感激

答案1

使用 INT() 来获取不带小数的数字:

=GetFirstLetters(A1)&INT(A2)

其中 A1 为名称,A2 为总数。

答案2

你可以利用FLOOR.MATH 函数例如使用函数

=A1 & FLOOR.MATH(B1)

在单元格 C1 中,你可以

Excel 摘录

相关内容