Vba: วิธีใช้ pi ในการคำนวณ

ในทางคณิตศาสตร์ Pi เป็นจำนวนอตรรกยะ (จำนวนทศนิยมไม่มีที่สิ้นสุด) ซึ่งมีค่าประมาณ 3.14

หากต้องการใช้ Pi ในการคำนวณใน VBA คุณสามารถใช้ไวยากรณ์ต่อไปนี้:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

ฟังก์ชั่นเฉพาะนี้ช่วยให้คุณสามารถคูณค่าใด ๆ ใน Excel ด้วย Pi

โปรดทราบว่า Application.WorksheetFunction.Pi ส่งคืนค่า 3.14159265358979 ซึ่งเป็นค่าคงที่ Pi 15 หลักที่แม่นยำ

หากคุณต้องการการคำนวณที่แม่นยำมากกว่า 15 หลัก คุณสามารถฮาร์ดโค้ด Pi ด้วยตัวเลขได้มากเท่าที่คุณต้องการ

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีใช้ Pi ใน VBA

สมมติว่าเรามีรายการค่าต่อไปนี้ใน Excel ที่เราต้องการคูณด้วย Pi:

เมื่อต้องการทำเช่นนี้ เราสามารถสร้างฟังก์ชันต่อไปนี้ใน VBA:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

เมื่อเราสร้างฟังก์ชันนี้แล้ว เราก็สามารถพิมพ์สูตรต่อไปนี้ในเซลล์ B2 เพื่อคูณค่าในเซลล์ A2 ด้วย Pi:

 =MultiplyByPi( A2 )

จากนั้นเราสามารถคลิกและลากสูตรนี้ไปยังแต่ละเซลล์ที่เหลือในคอลัมน์ B:

ตอนนี้คอลัมน์ B จะแสดงแต่ละค่าในคอลัมน์ A คูณด้วย Pi

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเพิ่มค่าในช่วง
VBA: วิธีคำนวณค่าเฉลี่ยของช่วง
VBA: วิธีนับจำนวนแถวในช่วง