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.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
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.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
API ile Bilgisayar Adını Bulma isimli içerikte, ilgili işlemin Python Formülleri ile nasıl yapacağınızı öğreten bir Python Formülü yer almaktadır.
[*]Python kodunu uygulayacağınız hücreyi seçin.
[*]=PY yazın ve TAB tuşuna basın
[*]Hücrenin soluna arka planı yeşil olacak şekilde PY geldiğini görün.
[*]Üstteki kodu yapıştırın.
[*]Ctrl + Enter tuşlarına birlikte basın.
Faydalanılması temennisiyle.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
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.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
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."API ile Bilgisayar Adını Bulma isimli içerikte, ilgili işlemin Python Formülleri ile nasıl yapacağınızı öğreten bir Python Formülü yer almaktadır.
[*]Python kodunu uygulayacağınız hücreyi seçin.
[*]=PY yazın ve TAB tuşuna basın
[*]Hücrenin soluna arka planı yeşil olacak şekilde PY geldiğini görün.
[*]Üstteki kodu yapıştırın.
[*]Ctrl + Enter tuşlarına birlikte basın.
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.
