计算图幅号的ExcelVBA代码.txt

Sub 计算新版图幅号() '计算十进制小数形式的经度、纬度点所在的新版图幅号

Dim i, JDL, WDL, TFL, BEGIN, OVER, BL As Integer 'i为循环次数，JDL、WDL分别为经度、纬度所在列，BEGIN、 OVER为起始和结束行，BL为计算图幅比例尺
Dim JC, WC As Double 'JC、WC分别为各比例地图经差、纬差
Dim BLDM, BWTFH, TFHH, TFLH As String 'BLDM为比例尺代码，BWTFH为100万图幅号，TFHH为图幅行号，TFLH为图幅列号

With Sheet2 '请选择计算的工作表
JDL = 8 '请选择经度所在的列
WDL = 9 '请选择纬度所在的列
TFL = 10 '请选择计算的图幅号所在的列
BEGIN = 2 '请选择起始行
OVER = 100 '请选择结束行
BL = 6 '请选择0-7图幅比例为100万、50万、25万、10万、5万、2.5万、1万、5千

Select Case BL '根据不同图幅比例赋值经差、纬差、比例尺代码
 Case 0:
  JC = 6
  WC = 4
  BLDM = "A"
 Case 1:
  JC = 3
  WC = 2
  BLDM = "B"
 Case 2:
  JC = 1.5
  WC = 1
  BLDM = "C"
 Case 3:
  JC = 30/60
  WC = 20/60