Excelin Sürüm Dilini makro ile öğrenme

[hsayar]

Excelin Sürüm Dilini makro ile öğrenme nasıl olmalıdır?

Türkçe, İngilizce, Rusça vs. vs.

 

[Orion1]

Aşağıdaki kod işinizi görür sanırım.

Sub versiyon()
MsgBox Application.Version
End Sub

 

[hsayar]

Hocam bana Dilbilgis lazım

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Kullanilan XL Turkce, Ingilizce ..... veya ne ?

 

[hsayar]

teşekkür eder, saygılar sunarım
Birde Excel sürüm diline göre varsayılan çalışma sayfasın adının bulan kod olsa iyi olur
Türkçe ise Sayfa
İngilizce İse Sheet
Rusça ise Лист
gibi sayfa1 den sadece sayfasını alcak sayfa255 ten de sayfasını alcak yani

 

[Levent Menteşoğlu]

teşekkür eder, saygılar sunarım
Birde Excel sürüm diline göre varsayılan çalışma sayfasın adının bulan kod olsa iyi olur
Türkçe ise Sayfa
İngilizce İse Sheet
Rusça ise Лист
gibi sayfa1 den sadece sayfasını alcak sayfa255 ten de sayfasını alcak yani

Bunun için dili bilmeye gerek yokki, sayfanın index değerini kullanabilirsiniz. Örneğin,

 msgbox sheets(1).name

 

[hsayar]

hocam bana sheets(1).name den sadece metni döndüren kodları verebilirmiisniz benim için önemli

yani sheets(1).name = sayfa1 ise varscsad = sayfa
yani sheets(1).name = Sheet1 ise varscsad = sheet
yani sheets(1).name = Лист1 ise varscsad = Лист
yani sheets(1).name = italyancasayfa1 ise varscsad = italyancasayfa
gibi

 

[Ferhat Pazarçevirdi]

teşekkür eder, saygılar sunarım
Birde Excel sürüm diline göre varsayılan çalışma sayfasın adının bulan kod olsa iyi olur
Türkçe ise Sayfa
İngilizce İse Sheet
Rusça ise Лист
gibi sayfa1 den sadece sayfasını alcak sayfa255 ten de sayfasını alcak yani

Peki, Rus veya İngiliz kardeşimiz, sayfaları özel olarak isimlendirirse -ki ben de dahil bunu çoğunlukla yapıyoruz - , bu isimleri nasıl anlamayı düşünüyorsunuz ? Bunun bir tercüme programına doğru gitme ihtimali yüksek

 

[hsayar]

 Yeni Kitaptan standart olan ilk üç çalılşma kitabını siliyoruz.
 
isteklere bakınız sf. altı

    Application.DisplayAlerts = False
    Workbooks(su).Sheets("Sayfa1").Delete
    Workbooks(su).Sheets("Sayfa2").Delete
    Workbooks(su).Sheets("Sayfa3").Delete
    Application.DisplayAlerts = True

bu kodun excel versiyonun ne olursa olsun çalışması için lazım