Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B4:B9")) Is Nothing Then Call CalculateSpline End If End Sub
| Cell | Content (Label) | Cell | Content (Formula/Output) | | :--- | :--- | :--- | :--- | | | Geometry Results | B8 | Value | | A9 | Reference Diameter ($d$) | B9 | (Calculated by VBA) | | A10 | Base Diameter ($d_b$) | B10 | (Calculated by VBA) | | A11 | Pitch Diameter ($d_p$) | B11 | (Calculated by VBA) | | A12 | Form Diameter ($d_F$) | B12 | (Calculated by VBA) | | A13 | Tip Diameter ($d_a$) | B13 | (Calculated by VBA) | | A14 | Root Diameter ($d_f$) | B14 | (Calculated by VBA) |
| Fit Class | Deviation (µm) for m=1..2 | Formula factor | |-----------|----------------------------|----------------| | 5H | +15 / +35 | 1.00 | | 6H | +25 / +50 | 1.25 | | 7H | +40 / +75 | 1.60 | | 8H | +60 / +110 | 2.00 | | 9H | +90 / +160 | 2.50 | din 5480 spline calculator excel new
Function SuggestBallDiameter(m As Double) As Double SuggestBallDiameter = m * 1.728 ' DIN 5480 recommendation End Function
| Parameter | Value | |-----------|-------| | Reference Diameter | 44.000 mm | | Base Diameter | 38.105 mm | | Tip Diameter (internal) | 44.000 mm | | Root Diameter (internal) | 49.000 mm | | Max Space Width | 3.648 mm | | Min Space Width | 3.568 mm | | Measurement between balls | 48.763 mm (balls Ø 3.456 mm) | Private Sub Worksheet_Change(ByVal Target As Range) If Not
DIN5480_Spline_Calculator_v1.0.xlsm │ ├── Sheet1: Input & Results (Color-coded, protected cells) ├── Sheet2: Calculations (Hidden formulas) ├── Sheet3: Tolerance Tables (Lookup data) ├── Sheet4: Ball Measurement Reference Table └── Module1: VBA Functions (Calculation, PDF export, Ball suggestion)
) system, allowing for profile shifts to match standard bearing sizes. Core Parameters for Calculation It specifies a and references a flat root profile
Here are three reasons why the Excel approach
Press Alt + F11 to open the VBA Editor.
Unlike standards that rely on diametral pitch, DIN 5480 uses a module system similar to spur gears. It specifies a and references a flat root profile. The naming convention follows a strict structure: