api Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Option Explicit

Private Declare Function GetEnvironmentVariable Lib "kernel32" _
    Alias "GetEnvironmentVariableA" ( _
    ByVal lpName As String, _
    ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long

Function GetEnvironmentVar(strEnvName As String) As String
    GetEnvironmentVar = String(255, 0)
    GetEnvironmentVariable strEnvName, _
        GetEnvironmentVar, _
        Len(GetEnvironmentVar)
    If InStr(1, GetEnvironmentVar, Chr(0)) > 0 Then
        GetEnvironmentVar = Left(GetEnvironmentVar, _
            InStr(1, GetEnvironmentVar, Chr(0)) - 1)
    End If
    GetEnvironmentVar = strEnvName & ": " & GetEnvironmentVar
End Function

Sub GetEnviro()
Dim strMsg As String
'// Build the string msg
strMsg = GetEnvironmentVar("_MACH")
strMsg = strMsg & vbCr & GetEnvironmentVar("_TYPE")
strMsg = strMsg & vbCr & GetEnvironmentVar("ALLUSERSPROFILE")
strMsg = strMsg & vbCr & GetEnvironmentVar("APPDATA")
strMsg = strMsg & vbCr & GetEnvironmentVar("CommonProgramFiles")
strMsg = strMsg & vbCr & GetEnvironmentVar("COMPUTERNAME")
strMsg = strMsg & vbCr & GetEnvironmentVar("ComSpec")
strMsg = strMsg & vbCr & GetEnvironmentVar("HOMEDRIVE")
strMsg = strMsg & vbCr & GetEnvironmentVar("HOMEPATH")
strMsg = strMsg & vbCr & GetEnvironmentVar("HOMESHARE")
strMsg = strMsg & vbCr & GetEnvironmentVar("Include")
strMsg = strMsg & vbCr & GetEnvironmentVar("Lib")
strMsg = strMsg & vbCr & GetEnvironmentVar("LOGONSERVER")
strMsg = strMsg & vbCr & GetEnvironmentVar("LOGSERVER")
strMsg = strMsg & vbCr & GetEnvironmentVar("NUMBER_OF_PROCESSORS")
strMsg = strMsg & vbCr & GetEnvironmentVar("OS")
strMsg = strMsg & vbCr & GetEnvironmentVar("Os2LibPath")
strMsg = strMsg & vbCr & GetEnvironmentVar("Path")
strMsg = strMsg & vbCr & GetEnvironmentVar("PATHEXT")
strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_ARCHITECTURE")
strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_IDENTIFIER")
strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_LEVEL")
strMsg = strMsg & vbCr & GetEnvironmentVar("PROCESSOR_REVISION")
strMsg = strMsg & vbCr & GetEnvironmentVar("ProgramFiles")
strMsg = strMsg & vbCr & GetEnvironmentVar("SMSHOME")
strMsg = strMsg & vbCr & GetEnvironmentVar("STARTUPLOG")
strMsg = strMsg & vbCr & GetEnvironmentVar("SYBASE")
strMsg = strMsg & vbCr & GetEnvironmentVar("SystemDrive")
strMsg = strMsg & vbCr & GetEnvironmentVar("SystemRoot")
strMsg = strMsg & vbCr & GetEnvironmentVar("TEMP")
strMsg = strMsg & vbCr & GetEnvironmentVar("TMP")
strMsg = strMsg & vbCr & GetEnvironmentVar("USERDOMAIN")
strMsg = strMsg & vbCr & GetEnvironmentVar("USERDOMAIN")
strMsg = strMsg & vbCr & GetEnvironmentVar("UserName")
strMsg = strMsg & vbCr & GetEnvironmentVar("USERPROFILE")
strMsg = strMsg & vbCr & GetEnvironmentVar("windir")
MsgBox strMsg, vbInformation, "Envoronmental variables"
End Sub

Benzer Sonuçlar
No	Makro Adı
1	kodları kopyalama
2	Bir önceki işlem yapılan hücreyi seç
3	"Adları yapıştır" Dialog Penceresi
4	"Özel yapıştır" Dialog Penceresi
5	Yapılan son işlemi makro kullanarak geri alma
6	sağ klik yapınca 3 tane ok çıkıyor bunu silemiyorum
7	aktif çalışma kitabının adını aktif hücreye yazdırır
8	Örneğin 4. Satırda İşlem yapılırsa macro otomatik çalışsın
9	Örneğin 4. sütunda İşlem yapılırsa macro otomatik çalışsın
10	Yapılan seçimlerde boş olmayan hücre sayısını verir.
11	modüle yazılan kodun sayfada aktif yapılması
12	kopyala yapıştır işlemleri
13	Satırı kesme, kopyalama ve yapıştırma
14	textboka veri kopyalama
15	textboxa veri kopyalama
16	Sütunu kesme, kopyalama ve yapıştırma
17	kopyalama ve yapıştırma
18	eğer a1 hücresinde işlem yapılırsa a2 hücresine değiştirilme tarihi ve saatini yazar
19	userformun code bölümüne yapıştır,textboxları çoğaltabilirsin
20	Tek hücreyi kopyalama ve yapıştırma

Benzer Sonuçlar

Makro Adı

kodları kopyalama

Bir önceki işlem yapılan hücreyi seç

"Adları yapıştır" Dialog Penceresi

"Özel yapıştır" Dialog Penceresi

Yapılan son işlemi makro kullanarak geri alma

sağ klik yapınca 3 tane ok çıkıyor bunu silemiyorum

aktif çalışma kitabının adını aktif hücreye yazdırır

Örneğin 4. Satırda İşlem yapılırsa macro otomatik çalışsın

Örneğin 4. sütunda İşlem yapılırsa macro otomatik çalışsın

Yapılan seçimlerde boş olmayan hücre sayısını verir.