excel处理角度方法(国外英语资料).docVIP

excel处理角度方法(国外英语资料) Our most commonly used data processing and analysis tool is excel. But unfortunately even in the new excel2013 or excel does not support directly to the format for processing angle degrees minutes. Finally found a way to deal with, that is, use hh:mm:ss format to define d:m:s, so that solved the binary problem. Theyre all in 60, but the problem is, this kind of display doesnt seem to fit our habits. They see the custom data types, and then customize a format for the minute and second degree. But the problem is that we can only do the addition and subtraction of angles. As far as the angle function of COS and sin is concerned, the default parameter of Excel is the double type of rad. To solve this problem, only our own definition of the transfer function, excel provides degrees () and radians (transfer function) of angle and curvature, but the angle is not a minute and second degree format, but the degree of this. Format. OK, so we just write dms2rad (), and deg2dms () and dms2deg (), these functions fully satisfy our needs. The above is the theoretical part, I think every operation angle must carry on all the complex settings in front, so I was scared. So instead of looking for a permanent solution, VBA, enter the code in VBA, we can save it as an add-on form, then loaded in the Excel to it, so I dont have every time in front of the set. The following is the code I wrote. May be more rough, not satisfied with their own change it.. Baidu SkyDrive Http:///share/link? Shareid=162824uk=1896466791? Private Sub Workbook_AddinInstall () sets the function Dim CTR As CommandBarPopup With Application.CommandBars (cell) Set CTR =.Controls.Add (msoControlPopup) With Ctr .Caption = angle setting With.Controls.Add (msoControlButton) .Caption = degrees minutes format .OnAction = DMS End With With.Controls.Add (msoControlButton) .Caption = angle format .OnAction = DEG End With End With End With End Sub Private Sub Workbook_AddinUninstall () uninstall function A