为啥excel VBA addline x坐标一样画出来的线是斜的

Question

end_range就是一个单元格

last_y是前一个单元格水平线的y值，now_y是当前单元格水平线的y值

1.  ver_ps = sht.Cells(end_range.Row, j).Left
        
       
      adl_vb = adl_v(ver_ps, last_y, now_y)
   
   
   Public Function adl_v(x As Single, last_y As Single, now_y As Single) As Boolean  '绘制竖直线
   
   With ActiveSheet.Shapes.AddLine(x, last_y, x, now_y).Line
    .Weight = 2
    .ForeColor.RGB = RGB(0, 0, 0)
   End With
   End Function

   明明传入X都一样为啥画出来的线是斜的

   

    

Answer 1

注释掉所有On Error Resume Next语句，在VBA for Excel IDE中（按Alt+F11键）运行，
出错后点击调试，光标会停在出错的那条语句处，
或者
事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断，

此时可以在立即窗口中使用
?变量名
或
?函数名(函数参数)
或
过程名(参数)
辅助调试。