VBA ile Windows ayarında değişiklik yapmak.

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Merhabalar,
Windows 11 kullanıyorum. Windowsda ara sıra Denetim Masası >> Bölge >> Biçim >>Ek ayarlar sekmesinden Sayılar ve Para Birimi sekmesindeki Ondalık Simgesi ve Basamak gruplandırma işaretlerini (Nokta ve Virgül) değiştirmek zorunda kalıyorum. Bu işlemi Excel VBA ile yada VBS yada bat dosyası ile yapabilirmiyim.
Teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
Option Explicit

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Private Declare PtrSafe Function GetUserDefaultLCID% Lib "kernel32" ()
#Else
    Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Private Declare Function GetUserDefaultLCID% Lib "kernel32" ()
#End If

Sub Bolgesel_Ayarlar()
    SetLocaleInfo GetUserDefaultLCID(), &HE, "," 'Ondalık yeni sembol
    SetLocaleInfo GetUserDefaultLCID(), &HF, "." 'Binlik yeni sembol
End Sub
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Deneyiniz.

C++:
Option Explicit

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Private Declare PtrSafe Function GetUserDefaultLCID% Lib "kernel32" ()
#Else
    Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Private Declare Function GetUserDefaultLCID% Lib "kernel32" ()
#End If

Sub Bolgesel_Ayarlar()
    SetLocaleInfo GetUserDefaultLCID(), &HE, "," 'Ondalık yeni sembol
    SetLocaleInfo GetUserDefaultLCID(), &HF, "." 'Binlik yeni sembol
End Sub
Çok teşekkür ederim hocam.
 
Üst