API ile Bilgisayar Adını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Tek başına anlamı olmasa da, yazdığınız kodlarda üstteki bilgilere ihtiyaç duyarsanız, bu hazır makrolar size yol gösterici olacaktır.
Bu API'ler 64 bir sürümlerde çalışmayabilir."
API ile Bilgisayar Adını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle.
Hazır Kod
VBA:
Declare Function GetComputerName Lib ""kernel32"" Alias ""GetComputerNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetUserName Lib ""ADVAPI32.DLL"" Alias ""GetUserNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
Const MAX_COMPUTERNAME_LENGTH = &H15
Function NomMachine() As String
Dim tempStr As String * MAX_COMPUTERNAME_LENGTH
Dim nbcar As Long
nbcar = MAX_COMPUTERNAME_LENGTH + 1
GetComputerName tempStr, nbcar
NomMachine = Left$(tempStr, nbcar)
End Function
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
UserName = Left(S, N - 1)
End Function
Sub test()
MsgBox NomMachine
MsgBox UserName
End SubAçıklama
Üstteki kodları çalıştırdıktan sonra alttaki görüntü elde edilecektir.Tek başına anlamı olmasa da, yazdığınız kodlarda üstteki bilgilere ihtiyaç duyarsanız, bu hazır makrolar size yol gösterici olacaktır.
Bu API'ler 64 bir sürümlerde çalışmayabilir."
API ile Bilgisayar Adını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kod
VBA:
#If VBA7 Then
Declare PtrSafe Function GetComputerName Lib ""kernel32"" Alias ""GetComputerNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
Declare PtrSafe Function GetUserName Lib ""ADVAPI32.DLL"" Alias ""GetUserNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
#Else
Declare Function GetComputerName Lib ""kernel32"" Alias ""GetComputerNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetUserName Lib ""ADVAPI32.DLL"" Alias ""GetUserNameA"" _
(ByVal lpBuffer As String, nSize As Long) As Long
#End If
Const MAX_COMPUTERNAME_LENGTH = &H15
Function NomMachine() As String
Dim tempStr As String * MAX_COMPUTERNAME_LENGTH
Dim nbcar As Long
nbcar = MAX_COMPUTERNAME_LENGTH + 1
GetComputerName tempStr, nbcar
NomMachine = Left$(tempStr, nbcar)
End Function
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
UserName = Left(S, N - 1)
End Function
Sub test()
MsgBox NomMachine
MsgBox UserName
End SubAçıklama
Üstteki kodlar tüm sürümlerde sorunsuz çalışacaktır.Hazır Kod
Python:
import platform
f""PC ADI:{platform.node()}""Açıklama
Eğer Excel 365 versiyonunuz varsa, üstteki kod ile işlem çok kolay bir şekilde yapılacaktır.Faydalanılması temennisiyle.
Checkbox ile Exceli Kapatma ve Açma
2025-10-17