ด้านล่างเราจะดูโปรแกรมใน Excel VBA นั่น แปลงข้อความเป็นตัวพิมพ์ที่เหมาะสม . นั่นคือ อักษรตัวแรกในแต่ละคำเป็นตัวพิมพ์ใหญ่ และตัวอักษรอื่นๆ ทั้งหมดเป็นตัวพิมพ์เล็ก
สถานการณ์:
วิธีการนับคอลัมน์ใน excel
1. ขั้นแรก เราประกาศออบเจกต์ Range สองอัน เราเรียกวัตถุช่วง rng และเซลล์
ไม่มีrngเนื่องจากช่วงเซลล์เนื่องจากพิสัย2. เราเริ่มต้นวัตถุ Range rng ด้วยช่วงที่เลือก
ชุดrng = การเลือก
3. เราต้องการตรวจสอบแต่ละเซลล์ในช่วงที่เลือกแบบสุ่ม (ช่วงนี้สามารถมีขนาดใดก็ได้) ใน Excel VBA คุณสามารถใช้ลูป For Each Next สำหรับสิ่งนี้ได้ เพิ่มบรรทัดรหัสต่อไปนี้:
สำหรับ แต่ละเซลล์ในrngต่อไปเซลล์
หมายเหตุ: rng และเซลล์ถูกสุ่มเลือกที่นี่ คุณสามารถใช้ชื่อใดก็ได้ อย่าลืมอ้างอิงชื่อเหล่านี้ในส่วนที่เหลือของรหัสของคุณ
4. หากต้องการละเว้นเซลล์ที่มีสูตร ให้เพิ่มบรรทัดโค้ดต่อไปนี้ระหว่าง For Each และ Next (เฉพาะในกรณีที่เซลล์ HasFormula เป็นเท็จ เราจะดำเนินการต่อ)
ถ้า ไม่เซลล์ HasFormulaแล้วจบ ถ้า
5. ต่อไป เราต้องการแปลงแต่ละคำในช่วงนี้เป็น 'ตัวพิมพ์ที่เหมาะสม' คุณสามารถใช้ฟังก์ชันเวิร์กชีตได้อย่างเหมาะสมสำหรับงานนี้ เพิ่มบรรทัดรหัสต่อไปนี้ในคำสั่ง if ของคุณ
cell.Value = แผ่นงานFunction.Proper(cell.Value)6. ทดสอบโปรแกรม
ผลลัพธ์:
วิธีสร้างข้อมูลอ้างอิงแบบสัมบูรณ์ใน excel
ไปที่บทถัดไป: วันและเวลา