Попытка сгенерировать уникальный номер счета

Question

Я работаю над рабочей тетрадью для моей компании. В конечном итоге он позаботится обо всех документах, которые должны быть сданы в конце работы. В старом счете, который нам дали, просто использовалась общая сумма счета в качестве "номера билета", но в некоторых случаях это приводит к дублированию номера билета.

Поэтому я использовал VBA для извлечения 1-й буквы каждого слова в имени клиента с помощью этого кода:

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

И прикрепил это к началу счета всего. Результат, однако, оставляет меня с десятичной дробью и оставшимся изменением, которое я хотел бы пропустить.

Я не нашел способа удалить десятичные разряды, и я даже не уверен, возможно ли это сейчас, когда ячейка содержит комбинацию слова и значения, но я подумал, что это место, где можно спросить.

Любая помощь будет принята с благодарностью

Answer 1

Используйте INT(), чтобы получить только число без десятичных разрядов:

=GetFirstLetters(A1)&INT(A2)

Где А1 имеет название, а А2 общее.

Answer 2

Вы можете использовать функцию FLOOR.MATH, например, с функцией

=A1 & FLOOR.MATH(B1)

в ячейке C1 вы могли бы иметь