Page 1 of 1
นำชื่อเครื่องคอมพิวเตอร์มาวางในเซล
Posted: Sat Jan 18, 2014 10:36 am
by kchamnanb
เรียน อาจารย์ที่นับถือ
ขอความกรุณาแสดงวิธีการนำชื่อเครื่องคอมพิวเตอร์ที่กำลังใช้งานมาวางไว้ที่เซลในแผ่นงานครับ
ขอบพระคุณครับ
ชำนาญ
Re: นำชื่อเครื่องคอมพิวเตอร์มาวางในเซล
Posted: Sat Jan 18, 2014 11:04 am
by snasui
การทำเช่นนั้นต้องใช้ VBA ลองดูตัวอย่างที่นี่ครับ
Get computer name
Re: นำชื่อเครื่องคอมพิวเตอร์มาวางในเซล
Posted: Sat Jan 18, 2014 11:24 am
by kchamnanb
เรียน ท่านอาจารย์ที่นับถือ
ผมลองทำแล้วไม่แสดงผลตามที่ต้องการครับ วิธีการคือคัดลอก code และวางใน vb ของเอ็กเซล book1 ตามที่แนบมาด้วยนี้ครับผลเป็นดังภาพครับ
เครื่องผมใช้ วินโดว 7 ออฟฟิศ 2010 ครับ
Re: นำชื่อเครื่องคอมพิวเตอร์มาวางในเซล
Posted: Sat Jan 18, 2014 11:34 am
by snasui
นำ Code ด้านล่างไปวางที่ Module1
Code: Select all
Public Function CompName() As String
CompName = Environ("computername")
End Function
ที่เซลล์ใด ๆ คีย์
=CompName()
Enter
Re: นำชื่อเครื่องคอมพิวเตอร์มาวางในเซล
Posted: Sat Jan 18, 2014 11:40 am
by kchamnanb
เรียน ท่านอาจารย์ที่นับถือ
ขอบพระคุณครับ ทำได้แล้วครับ