VBA for Excel

Environ function (VBA for Excel)

Posted on by admin

ฟังก์ชั่น Environ ใช้ในการตรวจสอบสภาพแวดล้อมต่างๆ เช่น

การตรวจสอบชื่อคอมพิวเตอร์ที่ใช้งาน

Sub Macro1()
'
' Macro1 Macro
'
Dim com_name1, com_name2 As String
com_name1 = Environ$("computername")
com_name2 = Environ$(7)
MsgBox "Computer Name: " & com_name1 & vbCrLf & com_name2
'
End Sub

Dim com_name1, com_name2 As String //คือ สร้างตัวแปรประเภทข้อความสองตัว

com_name1 = Environ$(“computername”) //คือ ให้ตัวแปร เก็บค่าชื่อคอมพิวเตอร์ที่ใช้งาน

com_name2 = Environ$(7) //คือ ให้ตัวแปร เก็บค่า COMPUTERNAME = และตามด้วยชื่อคอมพิวเตอร์ที่ใช้งาน

MsgBox “Computer Name: ” & com_name1 & vbCrLf & com_name2 //คือ ให้แสดงข้อความของออกมา

 

เมื่อเราสั่งรัน ก็จะแสดงข้อความออกมาตามตัวอย่างรูปด้านล่าง

การตรวจสอบ USER ID ที่ใช้ล็อกอินเข้า Windows

Sub Macro1()
'
' Macro1 Macro
'
Dim sWin_User As String
sWin_User = Environ$("Username")
MsgBox sWin_User
'
End Sub

หลังจากรันมาโคร คำสั่งแล้ว ก็จะแสดง User ID ที่เราล็อกอินเข้า Windows มาแสดงใน message box

จากทั้ง 2 ตัวอย่างจะเห็นได้ว่า ฟังก์ชั่น Environ จะสามารถใส่ Syntax ได้ 2 แบบ คือ

Syntax: Environ$(“ชื่อตัวแปร“) หรือ Environ$(ตัวเลขจำนวนเต็ม)

admin