Excel Automation
It will take only 2-3 minutes for setup but will save hours in project of copying and pasting the furmulas.
Pre Setup * open attached text file and copy all the text
In scope forumula:
1 Volume of Solid Cylinder =VolCyl ( x , y )
2 Volume of Hollow Cylinder =VolHolCyl (x , y , z )
3 Volume of Plate =VolPlate ( x , y, z )
4 Surface Area of Solid Cylinder =SurfCyl ( x, y)
5 Surface Area of Hollow Cylinder =SurfHolCyl ( x, y , z )
6 Surface Area of Plate =SurfPlate ( x ,y , z)
7 Perimeter of Rectangle/Square =PeriPlate( x, y )
Future additions:
8 Laser/Plasma Cycle time =CutPlasma( a , b , c , d )
9 Saw Cutting Cycle Time =CutSaw( a, b , c )
10 Turing/ Facing Cycle Time =McTurn( a , b , c , d , e)
Other formulas for shot blasting, machining etc may be added to increase efficiency.
1. Under Developer tab select - Visual Basic
2. Insert > Module
3. Click on Module> Paste code of file in the white window
White Window (Paste Here)
Select Module
4. Press CTRL+S to save module
5. Close the VBA window. (by Alt+F4 or clicking close)
6. Save File as Macro Enabled file.
7. Use the function in cell, by calling the functions by its name.
USING FUNCTIONS
You can select cells as input , to avoid manual inputs like usal excel formulas.
Example:
Use Function Parameters Example Output Unit
Volume of Solid
=VolCyl ( x , y ) x= Outer Dia y= Length
Cylinder =VolCyl(1000,5000) 3.925
Volume of Hollow x= Outer Dia y= Inner Dia
=VolHolCyl (x , y , z ) meter^3
Cylinder z= Length =VolHolCyl(100,50,100) 0.000589
x= Length y= width z=
=VolPlate ( x , y, z )
Volume of Plate thickness =VolPlate(100,250,10) 0.00025
x, y, z are paramters .
Note:
1 Input dimensions are in mm (millimeter) unit
2 If multiply volume to density in formula like for steel =VolCyl(1000,5000)*7850 you will get weight.
Use Function Parameters Example Output Unit
Surface Area of Solid
=SurfCyl ( x, y) x= Outer Dia y= Length =SurfCyl(50,100)
Cylinder 0.0196
Surface Area of Hollow x= Outer Dia y= Inner Dia
=SurfHolCyl ( x, y , z ) =SurfHolCyl(100,50,100) meter^2
Cylinder z= Length 0.000589
x= Length y= width z=
=SurfPlate ( x ,y , z) =SurfPlate(100,250,10)
Surface Area of Plate thickness 0.057
Note:
1 Input dimensions are in mm (millimeter) unit
2 If multiply surface area to coating rate (for example 1 USD per m2) in formula like for any plate
=SurfPlate(100,250,10)*1 you will get coating cost .
Use Function Parameters Example Output Unit
Perimeter of Square/
=PeriPlate ( x, y) x= Length y= Width =PeriPlate( 100, 200 ) 0.6 meter
Rectangle
