在某些行业工作中，可能会遇到需要将角度或者坐标数值进行格式转换或者单位换算的情形。有很多小工具可以实现这样的换算，也有一些大型的专业软件带有单位换算的模块或者小插件，或者在excel单元格中写入计算公式。其实使用VBA写个函数也可以很方便地进行转换，在用Excel进行数据处理时就不用再打开其他软件进行换算了。例如，已知了度分秒格式的数据，需要转换为十进制°值的格式。
十进制的度值（°）与度分秒（° ′ ″）之间的转换关系很简单，度值是一个十进制的浮点数，度分秒是一个60进制的数值表示方式。1°=60′=3600″，我们手工或利用计算器计算或者使用excel公式也是使用的这个简单的关系。因此，就可以用VBA写一个简单的函数，进行不同格式的转换（单位换算）：度值（°）转换为度分秒（° ′ ″） 定义为函数DDtoDMS()度分秒（° ′ ″）转换为度值（°） 定义为函数DMStoDD度分秒（° ′ ″）转换为秒值（″） 定义为函数DMStoSS()秒值（″）转换为度分秒（° ′ ″） 定义为函数SStoDMS()……函数写好之后在excle数据的单元格中调用自定义的函数即可。
例如上图，定义好一个格式化的模板，将“输入值”右侧的空白单元格当做输入框，随时输入需要转换的数值，在“输出值”右侧输入好自定义的函数，于是便可实现输出值实时根据输入值显示转换结果的效果。一个自定义出来的格式转换器就完成了。有大量数据需要转换时，在目标单元格中输入自定义函数即可。
当小工具使用的效果：
批量转换的效果：
喜欢的话欢迎关注、点赞、转发或评论交流！点赞富三代，分享美一生！ ^|^ 往期列表实用VBA：1.隔行插入空白行实用VBA：2.向下填充空白单元格实用VBA：3.向下合并空白单元格实用VBA：4.按列拆分工作表实用VBA：5.批量汇总工作簿、合并工作表实用VBA：6.一键批量提取文件名和存储路径实用VBA：7.按文件列表一键汇总excel工作簿实用VBA：8.一键输出多表格为单独文件实用VBA：9.使用Excel批量套模板，一键输出多个工作表实用VBA：10.用VBA向Excel文件中自动插入图片实用VBA：11.自动提取数据生成调拨单实用VBA：12.用VBA将txt文本文件导入Excel表格实用VBA：13.Excel数据批量套模板输出pdf文件实用VBA：14.在二维数组中查找特定元素实用VBA：15 一键批量汇总工作表的更优方法实用VBA：16.一键批量删除工作表实用VBA：17.大量word文件中的文本内容进行批量替换（佛系更新中……）
