ExcelVBA程序：地理坐标自动求算图幅号