小弟新手，跪求VBA熟练的大哥帮忙写个程序实现以下功能，感谢！

hao5610293

如附件图片所示，设计VBA程序，实现以下功能：
让单元格A2~A6可以取1~2之间的值（跨度为0.1，即为1.1、1.2、1.3.......)，其中X=A2*2+A3*4-A4*3-A5*4+A6；
把其中X取得的最大值所对应的A2~A6的值填入到对应单元格中；

Jefforry

没看懂你说的要求，还有请最好上传附件

hao5610293

Jefforry 发表于 2018-6-6 16:25
没看懂你说的要求，还有请最好上传附件

就是说假定让A2~A6单元格可以取1~2之间的值（但要求跨度是0.1，也就是A2~A6可以取1.1 1.2 1.3....2.0）
然后X满足条件：X=A2*2+A3*4-A4*3-A5*4+A6
要求出X取得的最大值，并且把X取得最大值所对应的A2~A6填入到对应单元格里；

hao5610293

hao5610293 发表于 2018-6-6 16:47
就是说假定让A2~A6单元格可以取1~2之间的值（但要求跨度是0.1，也就是A2~A6可以取1.1 1.2 1.3....2.0）
...

看懂了我写的嘛？麻烦帮我写段代码实现这个功能，感谢，工作中急着要实现一个跟这个类似的表格！

Jefforry

hao5610293 发表于 2018-6-6 16:55
看懂了我写的嘛？麻烦帮我写段代码实现这个功能，感谢，工作中急着要实现一个跟这个类似的表格！

这涉及算法的计算，我不擅长。还有你的条件还有些不清楚。
第一，1~2之间，包括1和2么？即所有可能（1，1.1,1.2，......1.9，2)共11种.
第二，A2到A6的数值可以重复么？
第三，你想得到的就是公式X取的最大值时，A2到A6的值.我的理解：如果可以重复，那就简单了，凡是加的类型取最大值取乘    ，凡是减的就取最小值， 最大减最小 ，公式取值必然最大。那a2到A6的取值就是2，2,1,1,2
第四，如果不能重复，那就麻烦了，再想办法

一碧清蓝

Jefforry 发表于 2018-6-6 18:44
这涉及算法的计算，我不擅长。还有你的条件还有些不清楚。
第一，1~2之间，包括1和2么？即所有可能（1， ...

这么有耐心，给你赞一个

Jefforry

一碧清蓝 发表于 2018-6-6 19:42
这么有耐心，给你赞一个

谢谢，我是尝试着帮助别人。

chentonny

没看懂你最后一句要填入哪个对应单元格。

hao5610293

Jefforry 发表于 2018-6-6 18:44
这涉及算法的计算，我不擅长。还有你的条件还有些不清楚。
第一，1~2之间，包括1和2么？即所有可能（1， ...

首先感谢你的帮忙，A2~A6的值是可以重复的，另外虽然我设定的X公式比较简单，可以做到凡是加的类型取最大值，凡是减的就取最小值，但是实际的使用的公式肯定不是这么简单的，不能通过简单计算就可以看出来的，我只是举个例子；最终还是需要用VBA的功能来实现；

hao5610293

chentonny 发表于 2018-6-6 22:15
没看懂你最后一句要填入哪个对应单元格。

最后一句的意思是，把当X取的最大值时的A2~A6分别填入到A2~A6单元格中；感谢啊，求帮助；