Seçilen hücreye göre klavye dili değiştirme

[winstoncash]

Üstadlar merhaba

A sütununda Türkçe bir kelime, B sütununa ise onun Arapça karşılığını yazıyorum. Sütunu her değiştirdiğimde klavye dilini değiştirerek yapıyorum mecburen. B sütununa geçince klavye dilini otomatik Arapça’ya, onun dışındaki herhangi bir sütuna geçince ise Türkçe’ye çevirecek bir kod yazılabilir mi? Yardımınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,
Linki inceleyiniz. Yardımcı olacaktır.

 

[haliliyas]

hangi Arap dilini kullanıyorsunuz?

 

[haliliyas]

çalışmanıza bir modul ekleyip aşağıdaki kodları yapıştırın
Not: 14337 dil kodu birleşik Arap Emirliklerine aittir farklı Arapça dilleri için farklı kod kullanılmalı

Public Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long

    Public Const Tur = 1055
    Public Const Arb = 14337 'United Arab Emirates

daha sonra ilgili sayfaya aşağıdaki kodları ekleyin

Private Sub Worksheet_Activate()
    If Selection.Column = 2 Then Call ActivateKeyboardLayout(Arb, True)
End Sub

Private Sub Worksheet_Deactivate()
    Call ActivateKeyboardLayout(Tur, True)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then Call ActivateKeyboardLayout(Arb, True) Else Call ActivateKeyboardLayout(Tur, True)
End Sub

Arabic - Algeria​	5121​
Arabic - Bahrain​	15361​
Arabic - Egypt​	3073​
Arabic - Iraq​	2049​
Arabic - Jordan​	11265​
Arabic - Kuwait​	13313​
Arabic - Lebanon​	12289​
Arabic - Libya​	4097​
Arabic - Morocco​	6145​
Arabic - Oman​	8193​
Arabic - Qatar​	16385​
Arabic - Saudi Arabia​	1025​
Arabic - Syria​	10241​
Arabic - Tunisia​	7169​
Arabic - United Arab Emirates​	14337​
Arabic - Yemen​	9217​

 

[winstoncash]

çalışmanıza bir modul ekleyip aşağıdaki kodları yapıştırın
Not: 14337 dil kodu birleşik Arap Emirliklerine aittir farklı Arapça dilleri için farklı kod kullanılmalı

Public Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long

    Public Const Tur = 1055
    Public Const Arb = 14337 'United Arab Emirates

daha sonra ilgili sayfaya aşağıdaki kodları ekleyin

Private Sub Worksheet_Activate()
    If Selection.Column = 2 Then Call ActivateKeyboardLayout(Arb, True)
End Sub

Private Sub Worksheet_Deactivate()
    Call ActivateKeyboardLayout(Tur, True)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then Call ActivateKeyboardLayout(Arb, True) Else Call ActivateKeyboardLayout(Tur, True)
End Sub

Arabic - Algeria​	5121​
Arabic - Bahrain​	15361​
Arabic - Egypt​	3073​
Arabic - Iraq​	2049​
Arabic - Jordan​	11265​
Arabic - Kuwait​	13313​
Arabic - Lebanon​	12289​
Arabic - Libya​	4097​
Arabic - Morocco​	6145​
Arabic - Oman​	8193​
Arabic - Qatar​	16385​
Arabic - Saudi Arabia​	1025​
Arabic - Syria​	10241​
Arabic - Tunisia​	7169​
Arabic - United Arab Emirates​	14337​
Arabic - Yemen​	9217​

Hocam tam olarak dediğiniz şekilde yaptım ama çalışmadı. Nerede hata yapmış olabilirim?

 

[haliliyas]

hata mı verdi, işlem mi yapmadı?
ofisiniz 32bit ise koddaki ptrsafe kelimeleri silinerek denenebilir
son olarak bu kod dil yüklü ise çalışır, ben deneme amaçlı olarak birleşik Arap Emirlikleri'ni yüklemiştim sizde hangi dil var?

altın üye olmadığım için dosyanızı inceleme imkanım yok, dış sitelere yüklerseniz inceleyebilirim

 

[winstoncash]

hata mı verdi, işlem mi yapmadı?
ofisiniz 32bit ise koddaki ptrsafe kelimeleri silinerek denenebilir
son olarak bu kod dil yüklü ise çalışır, ben deneme amaçlı olarak birleşik Arap Emirlikleri'ni yüklemiştim sizde hangi dil var?

altın üye olmadığım için dosyanızı inceleme imkanım yok, dış sitelere yüklerseniz inceleyebilirim

dil paketi yüklü olmadığı içinmiş hocam. şimdi çalıştı. çok çok teşekkür ediyorum. elleriniz dert görmesin.

 

[haliliyas]

Rica ederim
İyi çalışmalar)