สอน Excel VBA : การใช้ Excel กรอกข้อมูลใน Word ในคลิ๊กเดียว | การสร้างฟอร์มกรอกข้อมูล excel

สอน Excel VBA : การใช้ Excel กรอกข้อมูลใน Word ในคลิ๊กเดียว

ชมวิดีโอด้านล่าง

นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูเพิ่มเติม

สาธิตการใช้งาน Excel กรอกข้อมูลใน Word อย่างง่ายโดยใช้ Visual Basic for Application ใน Excel
============================================

แนะนำตัวครับ ผมชื่อ วิภาคย์ นะครับ หวังว่าจะเป็นประโยชน์กับหลายคนนะครับ ทำขึ้นเพราะอยากแชร์ครับ กั๊กไว้แล้วคันปาก 5555
ขอบคุณที่กด Like และ ติดตามนะครับ
============================================
Program : Microsoft Office 2019 or Office365
============================================
Sub Test()
Dim Paragraphe As Object, WordApp As Object, WordDoc As Object
StrFile = ThisWorkbook.Path \u0026 \”\\template.docx\”
Set WordApp = CreateObject(\”Word.Application\”)
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(StrFile)

WordDoc.SelectContentControlsByTag(\”1\”).Item(1).Range.Text = Range(\”B1\”)
WordDoc.SelectContentControlsByTag(\”2\”).Item(1).Range.Text = Range(\”B2\”)
WordDoc.SelectContentControlsByTag(\”3\”).Item(1).Range.Text = Range(\”B3\”)
End Sub
============================================

บอกลา VLOOKUP ด้วยสูตร MATCH + INDEX ค้นหาและดึงข้อมูลใน Excel ได้แบบยืดหยุ่นกว่าเดิม

ชมวิดีโอด้านล่าง

ถ้าถามว่าสูตร Excel หรือฟังก์ชันในการ Lookup ข้อมูลอันไหนที่ฮิตที่สุด คำตอบก็คงไม่พ้น VLOOKUP
แต่ถ้าถามว่าอะไรยืดหยุ่นที่สุดและใช้ได้กับ Excel ทุก Version คำตอบก็คือ INDEX+MATCH นั่นเอง
(แต่ถ้าคุณมี Excel 365 ที่มีพวก XLOOKUP กับ XMATCH มันก็จะเจ๋งกว่าอ่ะนะ 555)
INDEX สามารถ \”ดึงข้อมูลในพื้นที่ที่กำหนด โดยเราต้องระบุพิกัดตำแหน่ง\” ให้มัน
MATCH สามารถ \”ค้นหาตำแหน่งของข้อมูล\” ใน Range ที่กำหนดได้ (Range มีได้แค่ 1 แถว หรือ 1 คอลัมน์ ห้ามเป็นตาราง) ผลลัพธ์จะออกมาเป็นตัวเลขตำแหน่ง (ที่เดี๋ยวเราจะส่งไปให้ INDEX ใช้ต่อ)
จะเห็นว่า INDEX ดึงข้อมูลได้ แต่ค้นหาข้อมูลเองไม่ได้ ส่วน MATCH ค้นหาข้อมูลได้ ดึงข้อมูลไม่ได้ มันจึงเกิดมาคู่กันนั่นเอง
คุณสามารถอ่าน version บทความได้ที่นี่ https://www.thepexcel.com/indexmatch/
ถ้าชอบคลิปนี้ ช่วย Subscribe ช่อง YouTube เป็นกำลังใจให้ผมไปถึง 100K sub ด้วยนะ ^^
===================================================
ติดตาม พูดคุย สอบถามปัญหา Excel กันได้ที่ : https://www.facebook.com/thepexcel/
อ่านบทความ Excel ดีๆ ได้ที่ : https://www.thepexcel.com/
คอร์สออนไลน์จากเทพเอ็กเซล
=======================
คอร์ส Excel Level Up (พื้นฐานกลาง) : https://bit.ly/ExcelLevelUpOnlineUpdate2020
คอร์ส เพิ่มพลังจัดการข้อมูลใน Excel ด้วย Power Query : https://bit.ly/ThepExcelPowerQueryOnline
ดูคอร์สทั้งหมดได้ที่่นี่ : https://www.thepexcel.com/trainingpersonal/

การสร้างแบบสอบถามความพึงพอใจด้วย Excel

ชมวิดีโอด้านล่าง

การสร้างแบบสอบถาม เพื่อประเมินความพึงพอใจในการให้บริการ จะใช้ Excel ง่ายๆ แต่ใช้ได้เลยค่ะ

Excel แทรกรูปลงในเซลอย่างไรให้พอดีอัตโนมัติ

ชมวิดีโอด้านล่าง

code:

Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
(\”Pictures (.gif; .jpg; .bmp; .tif), .gif; .jpg; .bmp; .tif\”, _
, \”please select picture as you want\”)
If sPicture = \”False\” Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing

========================
Facebook►https://www.facebook.com/profile.php?id=100000984524082
กลุ่มหัดสร้างเกมแฟลช ►https://www.facebook.com/groups/as3flash
กลุ่มหัดสร้างสื่อด้วย PowerPoint ►https://www.facebook.com/groups/powerpointgraphic
กลุ่มหัดสร้างเกมด้วย Construct2 ►https://www.facebook.com/groups/construct2game
กลุ่มสร้างสื่อ CAI ด้วย Construct2 ►https://www.facebook.com/groups/1454201051311497
กลุ่มหัดวาดรูปด้วยคอมพิวเตอร์ ►https://www.facebook.com/groups/1207788526026708
========================

สร้างฟอร์มช่วยจัดการข้อมูลง่ายๆที่หลายคนไม่รู้จัก #ความลับExcel

ชมวิดีโอด้านล่าง

บางทีเราอาจต้องปรับเปลี่ยนเทคนิคการทำงานไปตามยุคตามสมัย ฟงก์ชั่นนี้จะช่วยเพื่อนๆอย่างมากมายแน่นอนครับ เพื่อนๆคนไหนอยากให้ทำคลิปแบบไหนหรืออยากสอบถามเกี่ยวกับการใช้งาน Computer หรือโปรแกรมพื้นฐานที่จำเป็นต่อการทำงานสามารถติดต่อมาทางเพจได้นะครับ https://www.facebook.com/teamlife16

นอกจากการดูหัวข้อนี้แล้ว คุณยังสามารถเข้าถึงบทวิจารณ์ดีๆ อื่นๆ อีกมากมายได้ที่นี่: ดูวิธีอื่นๆWIKI