Bu yazımızda, giriş yapan kullanıcı için bilgisayar ve kullanıcı adını döndürecek bir makro oluşturacağız.
Bu örnekte, C10 hücresindeki bilgisayar adını ve C11 hücresindeki kullanıcı adını çıkarmak istiyoruz.
Bilgisayarı ve kullanıcı adını bulmak için “GetComputerUserName” makrosunu oluşturduk. “Submit” butonuna tıklayarak makroyu çalıştırabiliriz.
Makro, C10 hücresindeki bilgisayar adını ve C11 hücresindeki kullanıcı adını çıkaracaktır.
Kod açıklaması
Çevre Fonksiyonu
Environ işlevi, işletim sisteminin ortam değişkeniyle ilişkili dize değerini döndürür.
Environ işlevinin sözdizimi
Ortam({Ortam değişken adı | sayı})
Lütfen kod için aşağıdan takip edin
Sub GetComputerUserName() Dim ComputerName, UserName As String 'Bilgisayar adı alınıyor ComputerName = Environ("bilgisayar adı") 'Kullanıcı adı alınıyor UserName = Environ("kullanıcıadı") 'C10 ve C11 Range("C10") hücresine değer atanıyor.Value = BilgisayarAdı Aralığı("C11").Value = KullanıcıAdı End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın