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 FunctionDan ditempelkan itu ke awal total faktur. Hasilnya, bagaimanapun, membuat saya dengan desimal dan perubahan yang tersisa, yang ingin saya hilangkan.
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
=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.
