Türkçe - İngilizce versiyon kontrolü

[polokomus]

Merhabalar;

Forumda arama yaparak Excel versiyonuna makro ile nasıl bakılabildiğini öğrendim.

Sayın Hamitcan'ın kodları ile

Sub ExcelVersion()
If Application.Version = 12 Then MsgBox "Ms Excel 2007"
If Application.Version = 11 Then MsgBox "Ms Excel 2003"
End Sub

Fakat ilgili sürümün İngilizce mi yoksa Türkçe mi onu bulamadım tüm aramalarıma rağmen.

Yardımcı olabilir misiniz?

Teşekkürler

 

[Necdet]

Merhaba,

Sub Dil()
    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1055 Then
        MsgBox "Dil Türkçe"
    ElseIf Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1033 Then
        MsgBox "Dil İngilizce"
    Else
        MsgBox "Başka Bir Dil"
    End If
End Sub

 

[polokomus]

Çok teşekkürler Sayın Necdet Yeşertener;

Bilginize sağlık...

 

[comennius]

Hocam çok sağol.

 

[mustafaine1]

Tesekkurler Necdet Bey, konuya ihtiyacim olmamisti ama olursa nerde oldugunu biliyorum..