Mencoba menghasilkan nomor Faktur Unik

0

Saya sedang mengerjakan buku kerja "Situs Kerja" untuk perusahaan saya. Pada akhirnya akan mengurus semua dokumen yang harus diserahkan pada akhir pekerjaan. Faktur lama yang kami berikan hanya menggunakan total faktur sebagai "Nomor Tiket", tetapi ada beberapa kasus yang menghasilkan nomor tiket duplikat.

Jadi yang saya lakukan adalah menggunakan VBA untuk mengekstraksi huruf pertama dari setiap kata dalam nama pelanggan menggunakan kode ini: 

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

Dan ditempelkan itu ke awal total faktur. Hasilnya, bagaimanapun, membuat saya dengan desimal dan perubahan yang tersisa, yang ingin saya hilangkan.

masukkan deskripsi gambar di sini

Saya belum menemukan cara untuk menghapus tempat desimal, dan saya bahkan tidak yakin apakah mungkin sekarang bahwa sel berisi kombinasi kata & nilai, tetapi saya pikir ini akan menjadi tempat untuk bertanya.

Bantuan apa pun akan sangat dihargai

vba microsoft-excel-2016 Jeremy Seifert
sumber
1
jadi saya menganggap Anda memiliki rumus di lembar kerja yang menggabungkan keduanya. Bisakah Anda menambahkannya ke pertanyaan menggunakan edit ?
Scott Craner
Sama seperti jawaban di bawah ini, tetapi saya telah menggunakan rentang bernama. Jadi =GetFirstLetters(customer)&total Kedua jawaban yang diberikan bekerja dengan sempurna .. Terima kasih untuk itu. Dalam benak saya, saya berpikir, karena itu bukan nilai angka, saya tidak akan dapat memformatnya dengan benar. Tidak terlintas dalam pikiran saya untuk memformat dalam rumus itu sendiri.
Jeremy Seifert

Jawaban:

2

Gunakan INT () untuk mendapatkan nomor saja tanpa tempat desimal:

=GetFirstLetters(A1)&INT(A2)

Di mana A1 memiliki nama dan A2 total.

Scott Craner
sumber
kedua cara yang ditampilkan bekerja dengan sempurna. Terima kasih atas bantuannya!
Jeremy Seifert
1

Anda dapat menggunakan fungsi FLOOR.MATH , misalnya dengan fungsi tersebut

=A1 & FLOOR.MATH(B1)

di sel C1, Anda bisa

Kutipan Excel

Andrew Morton
sumber
Metode Anda juga bekerja dengan sempurna. Terima kasih atas masukannya!
Jeremy Seifert