สร้างมาโคร Word Wrap ให้เป็นคีย์ลัดใน Excel


   เทคนิคที่จะนำเสนอนี้ การสร้างคีย์ลัด  ให้สามารถสลับข้อความในเซลแบบข้อความที่ยาวทะลุเซลหรือข้อความขึ้นบรรทัดใหม่ ที่เรียกว่า Word Wrap ซึ่งการจะสลับให้เป็น Word Warp นั้นต้องคลิ้กขวาที่เซลนั้นแล้วเข้า Format Sell เพื่อไปตั้งค่า Warp Text ในแถบ Align จะเห็นได้ว่าต้องทำหลายขั้นตอน จึงเป็นเหตุผลว่าทำไมเราต้องสร้างคีย์ลัดกันไงครับ

วิธีขึ้นบรรทัดใหม่ในเซลเดียวด้วย Word Wrap แบบเดิม

1.จะเห็นว่าข้อความที่ยาวทะลุเซลเป็นแบบข้อความปกติ
2.คลิ้กเมาส์ขวาในเซลที่มีข้อความยาวเลยเซล
3.คลิ้กเมนุ Format Cells
4.คลิ้กแถบ Alignment
5.กาถูกหน้า Wrap text
6.เสร็จแล้วกดปุ่ม OK
7.ข้อความที่ยาวเลยเซลจะเปลี่ยนเป็น Word Wrap ที่ขึ้นบรรทัดใหม่ให้อยู่ภายในเซลเดียว

วิธีขึ้นบรรทัดใหม่ในเซลเดียวด้วย Word Wrap แบบคีย์ลัด

1.ให้กดคีย์ลัด Alt + F11
2.เมื่อหน้าต่าง MS Visual Basic เปิดขึ้น ให้คลิ้กที่เมนู Insert
3.จากนั้นคลิ้กเลือกที่ Module
4.ให้คัดลอกโค้ดข้างล่างนี้ลงไป โดยเลือกทั้งหมดแล้วกด Ctrl + V

Sub WrapText()
 Dim rng As Range
 For Each rng In Selection
 rng.WrapText = Not rng.WrapText
 Next End Sub

5.เสร็จแล้วกดปิดหน้าต่าง
1.เมื่อกลับมายัง Excel คลิ้กที่เมนุ View
2.แล้วกดปุ่ม Macros
3.ในหน้าต่าง Macro เลือกรายการ WarpText
4.คลิ้กที่ Options
5.ในหน้าต่าง Macro Options ใส่คีย์ลัดเป็น Ctrl + W
6.จากนั้นกดปุ่ม OK
7.แล้วกด Cancel ออกจากหน้าต่าง

—– เพียงเท่านี้เราก็มีปุ่มคีย์ลัด Ctrl+W สลับระหว่างข้อความแบบ Word Wrap และแบบปกติ ใครที่ต้องสลับ Word Wrap บ่อยๆ ทิป-เทคนิคนี้จะเป็นอะไรที่ช่วยให้การทำงานสะดวกมากขึ้นครับ นอกจากนี้แล้วยังนำไปประยุกต์ใช้ในการสร้างคีย์ลัดเพื่อสั่งงานในแบบที่คุณใช้บ่อยๆ ได้อีกด้วย ลองนำไปใช้กันดูครับ—–

Advertisements