เครดิตรูปภาพ: mavoimages / iStock / Getty Images
การเรียนรู้วิธีใช้ฟังก์ชัน "Roundup" ของ Excel จากภาษาเขียนโปรแกรม VBA หรือ Visual Basic for Applications ช่วยให้คุณเรียกใช้ฟังก์ชัน Excel จาก VBA ได้ ทักษะนี้มีประโยชน์เนื่องจาก Excel มีฟังก์ชันมากมายที่ VBA ไม่มี และคุณอาจต้องสมัครจากโปรแกรม VBA โปรดทราบว่าฟีเจอร์ VBA ที่ให้คุณแตะฟังก์ชัน "Roundup" จะไม่แจ้งเตือนคุณถึงไวยากรณ์หรืออาร์กิวเมนต์ที่ไม่ถูกต้อง เช่นเดียวกับเมื่อใช้อินเทอร์เฟซเวิร์กชีตมาตรฐาน
วัตถุประสงค์
ฟังก์ชัน "Roundup" ของ Excel จะปัดเศษตัวเลขขึ้นตามจำนวนหลักที่คุณระบุ ตัวอย่างเช่น การเรียกใช้ "Roundup (2.2, 0)" จะบอก Excel ว่าคุณต้องการให้ปัดเศษตัวเลข 2.2 ขึ้นเป็นจำนวนเต็มถัดไป "0" ในอาร์กิวเมนต์ที่สองบอก Excel ว่าคุณไม่ต้องการตัวเลขใดๆ หลังจุดทศนิยม ซึ่งเทียบเท่ากับการบอกว่าคุณต้องการคำตอบที่เป็นจำนวนเต็ม
วิดีโอประจำวันนี้
VBA Round Function
VBA ไม่มีฟังก์ชัน "Roundup" ในตัว ฟังก์ชันที่ใกล้ที่สุดคือฟังก์ชัน "Round" ซึ่งจะปัดขึ้นหรือลงขึ้นอยู่กับว่าหลักสิ้นสุดในตัวเลขที่คุณกำลังปัดเศษนั้นมากกว่าหรือน้อยกว่า 5 ตัวอย่างเช่น การพิมพ์ "Round (2.2, 0)" ในหน้าต่าง "Immediate" ของ VBA จะให้ผลลัพธ์เป็น 2 แทนที่จะเป็น 3 ที่ฟังก์ชัน "Roundup" ของ Excel จะปัดเศษขึ้น
"สูตร" คุณสมบัติ
แม้ว่า VBA จะไม่มีฟังก์ชัน "Roundup" ของตัวเอง แต่ก็สามารถใช้ฟังก์ชัน "Roundup" ของ Excel ได้ เมื่อต้องการสั่งให้ VBA ทำเช่นนี้ ให้ตั้งค่าคุณสมบัติ "สูตร" ของวัตถุเสมือน "ช่วง" เป็นฟังก์ชัน "Roundup" ตัวอย่างต่อไปนี้แสดงวิธีการทำสิ่งนี้ เปิดสภาพแวดล้อมการพัฒนา VBA โดยกด "Alt" และ "F11" พร้อมกันจากภายใน Excel คลิกเมาส์ในหน้าต่าง "ทันที" จากนั้นพิมพ์คำสั่งต่อไปนี้: "Range ("A1").Formula = "=Roundup (2.2, 0)"" กลับไปที่ Excel โดยใช้การกดปุ่ม "Alt-F11" ที่เพิ่งอธิบาย. คุณจะเห็นผลลัพธ์เป็น "3" ในเซลล์ A1 ซึ่งแสดงว่าคำสั่งของคุณใช้ฟังก์ชัน "Roundup" ของ Excel ได้สำเร็จ
ตัวอย่างแบบโต้ตอบ
คุณสามารถสร้างโปรแกรม VBA แบบโต้ตอบที่ยอมรับอาร์กิวเมนต์สำหรับฟังก์ชัน "Roundup" จากผู้ใช้ และแสดงผลลัพธ์ของฟังก์ชันนั้น หลังจากเปิดสภาพแวดล้อมการพัฒนา VBA ให้วางโปรแกรมต่อไปนี้ลงในหน้าต่าง:
ย่อยสาธารณะ roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Enter the number you'd like to round")) a2 = CInt (InputBox("ป้อนจำนวนทศนิยมที่ คุณต้องการปัดเศษตัวเลขที่คุณเพิ่งป้อน")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1") .Formula = s Range("A1") .Calculate MsgBox (Range("A1")).Value) สิ้นสุด ซับ
เรียกใช้โปรแกรมโดยคลิกคำสั่งใดคำสั่งหนึ่ง จากนั้นคลิกคำสั่ง "เรียกใช้" ของเมนู "เรียกใช้" เมื่อ Excel พร้อมท์ให้คุณใส่อาร์กิวเมนต์ของฟังก์ชัน ให้พิมพ์อาร์กิวเมนต์ดังกล่าวแล้วกด "Enter" โปรแกรมของคุณจะแสดงผลลัพธ์ของฟังก์ชัน "Roundup" สำหรับอาร์กิวเมนต์ที่คุณป้อน
