"ⒶⒷⒸⒹⒺ" Karakterlerini Kodlamak

[BedriA]

Değerli Arkadaşlar,

"ⒶⒷⒸⒹⒺ" karakterlerini kod alanlarına nasıl yazabilirim?
Olduğu gibi kopyalayınca tanımadı.

Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Makro kaydet ile karakterleri sanırım alabiliyorsunuz, bir deneyin.

 

[BG]

Merhaba

Dosyanız ektedir.

 

[BedriA]

Merhaba,

Makro kaydet ile karakterleri sanırım alabiliyorsunuz, bir deneyin.

ASCİİ kodlarını bulamadım, kopyalayarak yaptığım zaman da soru işareti olarak kaydediyor. @BG arkadaşın çözümünü ihtiyacıma uyarlamaya çalışacağım. Teşekkür ediyorum.

 

[Haluk]

Ne yapmak istiyorsunuz bilemiyorum ama; aşağıdaki kodu deneyin isterseniz;

Sub Test()
    For i = 9398 To 9449
        Cells(i - 9397, 1) = ChrW(i)
    Next
    Range("A1:A52").Font.Name = "Arial Unicode MS"
End Sub