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

[mozdem]

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]

Deneyiniz.

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]

Deneyiniz.

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.