Note: The other languages of the website are Google-translated. Back to English

วิธีแปลงข้อความในกล่องข้อความเป็นเนื้อหาเซลล์ใน Excel

หากมีกล่องข้อความบางกล่องในแผ่นงานและคุณต้องการแปลงเนื้อหาในกล่องข้อความเป็นเซลล์แยกจากกันดังภาพด้านล่างที่แสดงมีวิธีแก้ไขงานนี้อย่างรวดเร็วยกเว้นการป้อนทีละรายการใน Excel ในบทความนี้ฉันขอแนะนำมาโครเพื่อช่วยคุณเกี่ยวกับปัญหานี้
doc แปลง textbox เป็นเซลล์ 1

แปลงเนื้อหากล่องข้อความเป็นเซลล์ด้วย VBA


ลูกศรสีฟ้าฟองขวา แปลงเนื้อหากล่องข้อความเป็นเซลล์ด้วย VBA

ยกเว้นรหัสมาโครไม่มีเคล็ดลับใดที่สามารถแปลงกล่องข้อความเป็นเนื้อหาของเซลล์ได้อย่างรวดเร็ว

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ

VBA: แปลงกล่องข้อความเป็นเซลล์

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

doc แปลง textbox เป็นเซลล์ 2

3 กด F5 คีย์เพื่อเรียกใช้โค้ดกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์เพื่อส่งออกเนื้อหากล่องข้อความ ดูภาพหน้าจอ:
doc แปลง textbox เป็นเซลล์ 3

4 คลิก OK. ตอนนี้กล่องข้อความทั้งหมดถูกแปลงเป็นเนื้อหาของเซลล์แล้ว
doc แปลง textbox เป็นเซลล์ 4

เคล็ดลับ: ด้านบน VBA จะลบกล่องข้อความหลังจากเรียกใช้ หากคุณต้องการเก็บกล่องข้อความไว้ โปรดเปลี่ยนรหัส xTxtBox.ลบ ไปยัง 'xTxtBox.Delete.

ส่วนขยาย:ถ้าคุณต้องการแปลงระหว่างตัวเลขและข้อความอย่างรวดเร็วโปรดลองใช้ Kutools for Excel's แปลงระหว่างข้อความและตัวเลข ดังที่แสดงในภาพหน้าจอต่อไปนี้ ฟังก์ชั่นเต็มรูปแบบโดยไม่มีข้อ จำกัด ใน

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 
วัน โปรดดาวน์โหลดและทดลองใช้ฟรีทันที
doc แปลง textbox เป็นเซลล์ 5


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab

 

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (14)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
VBA ไม่ทำงาน?!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำงานได้อย่างสมบูรณ์ที่นี่ จะเกิดอะไรขึ้นในขณะที่คุณเรียกใช้รหัส มันไม่เปลี่ยนแปลงอะไร? หากทำได้ โปรดอธิบายเพิ่มเติมเกี่ยวกับข้อมูลและปัญหาของคุณ ขอขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ได้ทำงานที่นี่เช่นกัน เลือกเซลล์ปลายทาง คลิกตกลง และไม่มีอะไรเกิดขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้ลองใน Win10 Excel2016 และ Win8 Excel2010 มันใช้งานได้ทั้งสองอย่าง คุณใช้สภาพแวดล้อมการทำงานแบบใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีหลายกล่องในชีตต่างๆ มี 4 แผ่นซึ่งมีกิจกรรมเฉพาะในวันนั้น และฉันต้องการนำกล่องข้อความของวันนั้นไปยังชีตใหม่รวมกันในวันนั้น มันทำงานอย่างไร ฉันไม่รู้ว่าจะต้องทำอย่างไร ข้อมูลจากแผ่นงานที่แตกต่างกัน 4 แผ่นเป็นแผ่นเดียว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โอเค ฉันมีกล่องข้อความอยู่ในกล่องข้อความที่ต้องแยกออกมา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก ๆ! บวนอาปอร์เต ฉัน ayudó mucho.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีฉัน funcionó Hago todo lo señalado y no pasa nada después de apretar ป้อน Intenté algunos cambios en la programación และ tampoco
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Juan ไม่มีคีย์ Enter ที่กล่าวถึงในวิธีการข้างต้น ให้คัดลอกและวาง vba จากนั้นกดปุ่ม F5 หรือคลิกปุ่ม Run เพื่อเปิดใช้งานโค้ด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันลองใน Excel365 แล้ว แต่มันใช้งานไม่ได้ ฉันได้รับป๊อปอัปแล้วกรอก แต่ไม่มีอะไรเกิดขึ้น ขอบคุณสำหรับความช่วยเหลือ Michel
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Michel ฉันได้ทดสอบโค้ดใน Excel 365 แล้ว มันทำงานอย่างถูกต้อง ขอรูปภาพเกี่ยวกับเวอร์ชัน Excel ของคุณแบบนี้ได้ไหม (ไฟล์ > บัญชี)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.pngและรูปภาพเกี่ยวกับเนื้อหาในกล่องข้อความของคุณ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซันนี่ ฉันต้องการวิธีแก้ปัญหาใน excel ฉันได้คัดลอกและวางหน้าเว็บที่มีข้อมูล ในนั้น แต่ละกล่องข้อความประกอบด้วยตัวเลขจำนวนหนึ่ง ฉันไม่สามารถแปลงเป็นตัวเลขปกติในเซลล์ excel ที่มีคอลัมน์ใดคอลัมน์หนึ่งได้ ฉันใช้ excel 2007
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซันนี่ ฉันต้องการวิธีแก้ปัญหาใน excel ฉันได้คัดลอกและวางหน้าเว็บที่มีข้อมูล ในนั้น แต่ละกล่องข้อความประกอบด้วยตัวเลขจำนวนหนึ่ง ฉันไม่สามารถแปลงเป็นตัวเลขปกติในเซลล์ excel ที่มีคอลัมน์ใดคอลัมน์หนึ่งได้ ฉันใช้ excel 2007ข้อความของคุณที่จะเชื่อมโยง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังใช้สคริปต์นี้ (ขอบคุณมาก) แต่ฉันพยายามดึงมันขึ้นมาเพื่อให้มันเติมเซลล์เฉพาะและไม่ขอข้อมูลเซลล์ในแต่ละครั้ง ฉันจะเปลี่ยนอะไรเพื่อให้เติมอัตโนมัติเช่นเซลล์ B2

ไชโย
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL