ถ้าบางส่วนของงานของคุณเกี่ยวข้องกับการสร้างรายงานที่เป็นลายลักษณ์อักษรจากข้อมูล Excel ความไม่สามารถที่จะทำให้ bullet points โดยอัตโนมัติอาจทำให้ระบบไม่ได้รับการตอบสนอง
บทความนี้อธิบายวิธีที่คุณสามารถทำให้จุด bullet ของคุณเองใน Excel ด้วย VBA ได้โดยอัตโนมัติ
การสร้าง A Bullet Point From A Data Set
เราจะใช้ตัวอย่างสรุปยอดขายรายไตรมาสที่แบ่งออกเป็นผลิตภัณฑ์และจำนวนยอดขาย ข้อมูลอาจมีลักษณะเช่นรายการคั่นด้วยเครื่องหมายจุลภาคนี้
Product, Sales
Widget1,100
Widget2,130
Widget3,150
เราจำเป็นต้องเปิดข้อมูลในรูปแบบต่อไปนี้:
เราจะแปลงข้อมูลโดยการแทรกอักขระสำหรับเครื่องหมายจุด ๆ ก่อนแต่ละค่าและเพิ่มยอดรวมจากเซลล์ที่อยู่ติดกัน ขั้นแรกเราจะเลือกช่วง
dim rng เป็นช่วง
ตั้งค่า rng = ช่วง ("a1"). CurrentRegion.columns (1)
for x = 2 to rng.rows.count
สำหรับแต่ละเซลล์เราจะเพิ่ม bullet ที่จุดเริ่มต้นและเขียนค่าใหม่ลงในเซลล์ ค่าสำหรับจุด bullet คือ 149
rng.Rows (x) = Chr (149) & "" & rng.Rows (x) & ":" & rng.row (x) .offset (0,1)ถัดไป
บางครั้งก็ควรจะใช้กล่องข้อความเพื่อให้มีความยืดหยุ่นมากขึ้นในการออกแบบรายงาน คุณสามารถเพิ่มรายการลงในช่องด้วยการเน้นข้อความโดยคลิกขวาและเลือกตัวเลือกที่เหมาะสมสำหรับรายการกระสุน
การเพิ่มรายการลงในกล่องข้อความ
ถ้าคุณต้องการให้รายการในกล่องข้อความเป็นแบบอัตโนมัติให้ใช้รหัสเดียวกัน แต่คุณต้องเลือกกล่องและเพิ่มข้อความในตัวแปรเดียวโดยใช้อักขระการแสดงผล "chr (10)"
สำหรับ x = 2 ไปยัง rng.rows
myStr = myStr & Chr (149) & "" & rng.Rows (x) & chr (10)ถัดไป
ตอนนี้รหัสสามารถแทรกสตริงได้ ค่าข้อความลงในกล่องข้อความ
ขั้นตอนข้างต้นแทรกรายการสัญลักษณ์แสดงหัวข้อย่อยเดียวกันลงในแฟ้ม. text-box ซึ่งสามารถแก้ไขได้โดยการตั้งค่าคุณสมบัติของชนิดตัวอักษรสีและขนาด หากสเปรดชีตของคุณได้รับการออกแบบอย่างดีคุณสามารถเริ่มต้นใช้ความคิดเห็นและคำอธิบายที่มาพร้อมกับข้อมูลได้โดยอัตโนมัติ
Summary
ความสามารถในการแทรกรายการ bullet หมายถึงคุณ สามารถสร้างรายงานที่ออกแบบมาอย่างดีโดยไม่ต้องใช้แอปพลิเคชันรองเช่น Word หรือ Power Point หมายถึงระบบอัตโนมัติและ VBA สามารถเพิ่มประสิทธิภาพและเพิ่มผลผลิตให้กับงานของคุณได้มากขึ้น
Source by sbobet