Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Kasım 2008 Perşembe

MS Windows® Environ Statement



'UserForm1

'Add Tools on UserForm1: Label1...3, ListBox1
Option Explicit
Dim i As Single
Dim No As Double
Dim Dizi As String

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]Windows® Environ Statement"
Application.Visible = False
With ListBox1
.ColumnCount = 3
.ColumnWidths = "36;120;436"
End With
Call EnvironStatement
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
End Sub
Sub EnvironStatement()
On Error Resume Next
ListBox1.Clear
For i = 1 To 30
Dizi = VBA.Environ(i)
No = Application.WorksheetFunction.Find("=", Dizi, 1)
ListBox1.AddItem i
ListBox1.List((i - 1), 1) = VBA.Mid(Dizi, 1, (No - 1))
ListBox1.List((i - 1), 2) = VBA.Right(Dizi, VBA.Len(Dizi) - No)
Next i
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul