方案管理自动提取数值

高个子 · 发表于 2023-4-3 15:01

lys3903037 发表于 2023-4-3 13:55
对，是的，就是固定的几个单元格，但是没有规律

那就这样呗

高个子 · 发表于 2023-4-3 15:01

本帖最后由高个子于 2023-4-3 15:03 编辑

。。。。。

lys3903037 · 发表于 2023-4-4 11:33

收到，非常感谢大神！！

高个子 · 发表于 2023-4-4 12:49

lys3903037 发表于 2023-4-4 11:33
收到，非常感谢大神！！

忘记了，那个"数据1"改成range("a1")，这样你a1怎么改都可以自动变了

lys3903037 · 发表于 2023-4-4 14:23

高个子发表于 2023-4-4 12:49
忘记了，那个"数据1"改成range("a1")，这样你a1怎么改都可以自动变了

好的，非常感谢！！

lys3903037 · 发表于 2023-4-10 09:04

本帖最后由 lys3903037 于 2023-4-10 09:07 编辑

高个子发表于 2023-4-4 12:49
忘记了，那个"数据1"改成range("a1")，这样你a1怎么改都可以自动变了

非常感谢大神给予的帮助，解决了困扰我很久的问题，但使用过程中发现还是存在两个小问题
1、当改变“A1”单元格内容时，点击“方案保证”会报错，
2、方案时间被锁定4月8日不会随当前时间而变
不知能否帮忙解决，非常感谢！

高个子 · 发表于 2023-4-10 09:07

lys3903037 发表于 2023-4-10 09:04
非常感谢大神给予的帮助，解决了困扰我很久的问题，但使用过程中发现还是存在两个小问题，不知能否帮忙解 ...

你有什么问题？

lys3903037 · 发表于 2023-4-10 13:17

高个子发表于 2023-4-10 09:07
你有什么问题？

以下两个问题，非常感谢！

非常感谢大神给予的帮助，解决了困扰我很久的问题，但使用过程中发现还是存在两个小问题
1、当改变“A1”单元格内容时，点击“方案保证”会报错，
2、方案时间被锁定4月8日不会随当前时间而变
不知能否帮忙解决，非常感谢！

高个子 · 发表于 2023-4-10 14:36

lys3903037 发表于 2023-4-10 13:17
以下两个问题，非常感谢！

非常感谢大神给予的帮助，解决了困扰我很久的问题，但使用过程中发现还是存 ...

Sub kdy()
On Error Resume Next
ActiveSheet.Scenarios([a1].Value).Delete
arr = Array([a6], [a10], [b4], [b9], [c3], [c7])
ActiveSheet.Scenarios.Add Name:=Range("a1"), ChangingCells:=Range( _
"A6,A10,B4,B9,C3,C7"), Values:=arr, Comment:="创建者 Administrator 日期 " & Date, Locked:=True, Hidden _
:=False
End Sub

复制代码

高个子 · 发表于 2023-4-10 14:37

本帖最后由高个子于 2023-4-10 15:25 编辑

lys3903037 发表于 2023-4-10 13:17
以下两个问题，非常感谢！

非常感谢大神给予的帮助，解决了困扰我很久的问题，但使用过程中发现还是存 ...

这样吧。。

		自动登录	找回密码
密码			免费注册

[求助] 方案管理自动提取数值