Alfa'daki gibi 'A', Bravo'daki gibi 'B', Charlie'deki gibi 'C'. Bu cümleleri daha önce duydunuz mu?
Bunlara Askeri Alfabe Kodu (NATO alfabe kodu olarak da bilinir) denir. Genellikle insanlar (özellikle çağrı merkezi çalışanları) tarafından isim, e-posta adresi veya ev/ofis adresini iletmek için kullanılır.
Excel'de Askeri Alfabe Kodu Oluşturun
İlk işimde tıbbi cihazlar hakkında bilgi almak için soğuk arama yapmam gereken bir projem vardı. Dünyanın her yerinden her türden aksanla bağlantı kurduğumuzdan, adımızı ve e-postamızı paylaşmak ya da onlarınkini almak - zaman zaman - zordu. O zaman net bir şekilde iletişim kurmak için askeri alfabe kodlarına güvenmeye başladım. Birçok çağrı merkezi görevlisinin bunu etkili bir şekilde yaptığını gördüm.
Bunu akılda tutarak, bir metin dizisi girebileceğiniz bir Excel Şablonu oluşturdum ve bu, girilen metin için otomatik olarak Askeri Alfabe kodunu oluşturacaktır.
Aşağıda gösterildiği gibi bir şey:
Metni girip Enter'a basar basmaz, metin dizisindeki her alfabe için otomatik olarak askeri alfabe kodunu oluşturacaktır.
Bu durumda sayıların ve özel karakterlerin olduğu gibi gösterileceğini unutmayın. Ayrıca, bu her iki durumda da çalışır - alt veya üst.
Bu çalışma kitabı bir makro içerdiğinden, onu açar açmaz, İçeriği Etkinleştir düğmesinin bulunduğu sarı bir çubuk görebilirsiniz. Bunun çalışması için bu düğmeye tıklamanız gerekir.
Bu Askeri Alfabe Kodu Oluşturucu Şablonu Nasıl Oluşturulur
Bu şablon tamamen VBA sihrinde çalışır. Çalışma Sayfası Değişikliği olay prosedürü içinde, her alfabeyi kontrol eden ve o alfabenin kod kelimesini getiren birkaç döngü vardır.
İşte işi yapan VBA kodu:
Private Sub Worksheet_Change(ByVal Target As Range) ' trumpexcel.com'un Sumit Bansal'ı tarafından oluşturuldu Dim alphacount As Integer Dim alfabesi As String Dim sonucu As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer Hatada Devam Et Sonraki TargetColumn = Hedef. Sütun TargetRow = Target.Row Eğer TargetColumn = 4 Ve Cells(TargetRow, TargetColumn) = "" Then Cells(TargetRow, TargetColumn + 1) = "" Exit Sub End If TargetColumn = 4 O zaman alphacount = Len(Cells(TargetRow, TargetColumn) )) For i = 1 To alphacount + 1 alfabe = Mid(Range(Target.Address), i, 1) If Range("A2:A27").Find(alphabet) Is Nothing O zaman sonuç = sonuç & ", " & alfabe Else sonuç = sonuç & ", " & Aralık("A2:A27").Find(alphabet).Offset(0, 1) End If Next i Cells(TargetRow, TargetColumn + 1) = Orta(sonuç, 3, Len (sonuç) - 4) End If End Sub
Bu kod sözcüklerinden birkaçını hedef kitlenize/bölgenize uyacak şekilde değiştirmek isterseniz, indirme dosyasındaki B sütununda değiştirmeniz yeterlidir. Kod, değiştirilen kodları otomatik olarak seçecektir.
Bu çalışma kitabı bir makro içerdiğinden, dosyayı .xls veya .xlsm biçiminde kaydetmeniz gerektiğini unutmayın.
Umarım bu, bir dahaki sefere telefon görüşmesi üzerinden insanlarla isimleri, e-posta kimliklerini veya adresleri iletmeye çalıştığınızda size yardımcı olur.
Aşağıda bir yorum bırakarak bu Excel Şablonu hakkında ne düşündüğünüzü bana bildirin.
Beğenebileceğiniz Diğer Excel Şablonları:
- Görev Önceliklendirme Matrisi Şablonu.
- E-posta Oluşturucu Şablonu.
- Çalışan İzleyici Şablonu Bırakın.
- Çalışan Zaman Çizelgesi Hesaplama Şablonu.
- Yapılacaklar Listesi Şablonu ile Entegre Takvim.
