[已解决]各位大神请帮我看看应该怎么解决

赵辉

zjdh 发表于 2015-3-11 18:47

师傅谢谢您，我接下来的所有的就按照你写的鞋就可以了是吗

赵辉

zjdh 发表于 2015-3-11 18:47

您能教我一下方法吗
用的是宏录制还是怎么着
我后续还要加曲线 还有10几条 我自己如何实现

zjdh

赵辉 发表于 2015-3-11 23:40
您能教我一下方法吗
用的是宏录制还是怎么着
我后续还要加曲线 还有10几条 我自己如何实现

依样画葫芦！
修改
Sub xx1()
    S = 1
    If Sheets(1).Range("AA1") Then
        xs
    Else
        yc
    End If
End Sub

赵辉

zjdh 发表于 2015-3-12 08:24
依样画葫芦！
修改
Sub xx1()

我这样改后，运行时报错1004  

zjdh

你原先未在图表中添加的曲线，宏就找不到了，当然报错啦！

zjdh

你原先未在图表中添加的曲线，宏就找不到了，当然报错啦！

赵辉

zjdh 发表于 2015-3-12 13:15
你原先未在图表中添加的曲线，宏就找不到了，当然报错啦！

那我在你发我的EXCEL里，添加曲线，然后再改VBA，还是报错。请大师点明。谢谢

赵辉

您帮我看看 我该如何解决，还有图片4中 我想实现复选框选中时对应的AA值为1否则为零。如：当1#cast溶解氧选中，那么AA48就为1，否则为零

zjdh

你不发附件，发图片我没法帮你！