功能比较全面，我补充一下坐标刻度
If CDbl(txtMinX) > 0 Or CDbl(txtMinY) > 0 Then MsgBox "此处输入最大值为0", , "提示"
If CDbl(txtMaxX) < 0 Or CDbl(txtMaxY) < 0 Then MsgBox "此处输入最小值为0", , "提示"
'横坐标
For i = CDbl(txtMinX) To CDbl(txtMaxX) Step 10
If i = 0 Or i = t
功能比较全面，我补充一下坐标刻度 If CDbl(txtMinX) > 0 Or CDbl(txtMinY) > 0 Then MsgBox "此处输入最大值为0", , "提示" If CDbl(txtMaxX) < 0 Or CDbl(txtMaxY) < 0 Then MsgBox "此处输入最小值为0", , "提示" '横坐标 For i = CDbl(txtMinX) To CDbl(txtMaxX) Step 10 If i = 0 Or i = t
不错，值得学习，但就是缺少坐标轴的刻度
功能一般吧，借鉴了一下，最后还是在excel中搞定，谢谢了