Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีแทรกชื่อผู้ใช้ windows ในเซลล์ใน Excel อย่างรวดเร็ว

ในการทำงานของ Excel บางครั้งคุณอาจต้องใส่ชื่อผู้ใช้ windows ในเซลล์ คุณสามารถใส่ชื่อผู้ใช้ทีละชื่อได้ด้วยตนเอง แต่เรามีวิธีที่ดีกว่านี้เพื่อประหยัดเวลาของคุณ

ใส่ชื่อผู้ใช้ในเซลล์ด้วย VBA

ใส่ชื่อผู้ใช้หรือข้อมูลสมุดงานอื่น ๆ ในเซลล์ด้วย Kutools for Excel ความคิดที่ดี 3


ใส่ชื่อผู้ใช้ในเซลล์ด้วย VBA

ที่นี่ฉันแนะนำรหัส VBA ให้คุณเพื่อแทรกชื่อผู้ใช้ windows ไปยังช่วงของเซลล์ใน Excel อย่างรวดเร็ว

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

VBA: ใส่ชื่อผู้ใช้

Sub Usernameincell()
    Range("A1:D5").Value = Application.UserName
End Sub

2 คลิก วิ่ง หรือ F5 คีย์เพื่อรันโค้ดจากนั้นชื่อผู้ใช้จะถูกแทรกลงในแต่ละเซลล์ในช่วง A1: D5 ดูภาพหน้าจอ:

doc ใส่ชื่อผู้ใช้ 1

คุณสามารถเปลี่ยนช่วง A1: D5 ในรหัส VBA เพื่อให้ตรงกับความต้องการของคุณ

แต่หากมีเนื้อหาบางส่วนในช่วงที่ระบุรหัส VBA นี้จะแทนที่เนื้อหาของเซลล์ด้วยชื่อผู้ใช้เท่านั้น

ในกรณีนี้คุณสามารถเลือกใช้ Kutools for Excel


ใส่ชื่อผู้ใช้หรือข้อมูลอื่น ๆ ในเซลล์ด้วย Kutools for Excel

ถ้าคุณต้องการแทรกชื่อผู้ใช้ windows หรือข้อมูลของสมุดงานอื่น ๆ เช่นชื่อสมุดงานชื่อแผ่นงานเส้นทางสมุดงานและชื่อในเซลล์หรือส่วนท้ายหรือส่วนหัวคุณสามารถใช้ Kutools สำหรับ Excel's แทรกข้อมูลสมุดงาน.

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

คลิก Kutools Plus > สมุดงาน > แทรกข้อมูลสมุดงาน. ดูภาพหน้าจอ:
doc ใส่ชื่อผู้ใช้ 9

doc ใส่ชื่อผู้ใช้ 8
A: เลือกข้อมูลที่คุณต้องการแทรก
B: เลือกตำแหน่งที่จะใส่ข้อมูลที่แทรก
C: ในการแทรกส่วนหัวหรือส่วนท้ายคุณสามารถเลือกวางได้
ข้อมูลที่ส่วนหัว / ส่วนท้ายด้านซ้ายของส่วนหัว /
ส่วนท้ายหรือด้านขวาของส่วนหัว / ส่วนท้าย

แทรกเส้นทางสมุดงานและตั้งชื่อที่เซลล์

doc แทรกข้อมูลสมุดงาน 2

ใส่ชื่อผู้ใช้ที่ส่วนหัวตรงกลาง

doc แทรกข้อมูลสมุดงาน 3

แทรกวันที่และเวลาปัจจุบันที่ส่วนท้ายด้านขวา

doc แทรกข้อมูลสมุดงาน 4

คลิกที่นี่เพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับ Kutools for Excel's Insert Workbook Information


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lisa · 2 years ago
    Thanks for an answer to what seems to be an obscure command! This worked wonderfully, however I'd like to run an IF statement that only adds the username if "Yes" is in another cell. Can you help?
    • To post as a guest, your comment is unpublished.
      namco · 1 years ago
      You don't need all this crap, the formula for the username is
      =MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

      so =if(CELL="YES",MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\")),"whatever")