This was a fun exercise. How to place a random number of dots on a circles circumference with exact the same distance between them? The need arose building a program for automated seating. Rectangular tables were no big deal, but what about the round tables?

You can download the workbook at the bottom of this article

How it’s used in the automated seating program
https://en.excelguru.no/wp-content/uploads/2021/09/WorkingWithShapesAndPythagoras.mp4

The solution came with Pythagoras

Fig. 1

As you can see from Fig. 1, I calculate three right-angled triangles to be able to calculate the hypotenuse Z.

This is not entirely correct, since the hypotenuse is straight and the circle is curved. To minimize this discrepancy, I make 1,000 calculations for every quarter of the circle.

If the radius of the circle is 100cm, the difference between Y1 and Y2 will be 0.1. This gives a good result both mathematically and visually.

Download the Excel workbook: WorkingWithShapesAndPythagoras.xlsm (373 downloads )

Similar Posts
| |

Excel VBA: Subroutines for speed optimization

Byketil

Sub AppOnOff Sub AppEv Sub AppCal Sub AppSc You can download the Excel workbook with the sample code at the end of this Article Sub AppOnOff AppOnOff true – turns off Events, Automatic Calculations and ScreenupdatingAppOnOff false – turns them back on AppEv, AppCal and AppSc turns Events, Automatic Calculations and Screenupdating on/off individually When…

Hour registration in Excel with calculation of time within intervals

Byketil

If you work from 20:15 to 02:30 on a Saturday, how many hours are in the interval 15:30 to 00:00, and what should you be paid? The function HoursInInterval() can give you the answer and calculate your wage correct depending on it’s a weekday, weekend or a holiday. You can download the workbook at the…

Excel VBA – Create and update Outlook Calendar Items

Byketil

With the Sub UpdateAppointment you can create and update Outlook meetings or appointments. All items must have a unique index to filter on. The sub filters on BillingInformation, a field I rarely use for other purposes. Appointments The appointments are created in your personal calendar. If you want to put stuff in others calendar, you…

Excel VBA: Create a series of workdays only

Byketil

The Nextworkday(date, optional holidays) function returns the date for the next workday. The first parameter is the starting date you set manually.The second parameter is optional and points to a range with dates you want to exclude from the workdays list, like easter or your vacation.If you omit the second parameter, only Saturdays and Sundays…