[已解决]有请excel精英里的高手帮我设置一下VBA程序，非常感谢。

mxg825 · 发表于 2011-11-8 23:35

本帖最后由 mxg825 于 2011-11-8 23:58 编辑

这那个A列除C列等于整数要求不明，未添加

Sub MXG825()
Dim ARR, CRR, R&, X&, Z1!, JZ!
Dim JS1!, JS2!, JS3!
R = Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False
Range("E1:E" & R).ClearContents
ARR = Range("B1").Resize(R, 4)
Range("A4").Copy
Range("C1").Resize(R, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Range("C1").Resize(R, 1).Sort Key1:=Range("C1")
CRR = Range("C1:C" & R)
Range("A1").Select
JS1 = [A2]: JS2 = [A4]: JS3 = [A6]
For X = 1 To R
Z1 = Int(JS1 / (ARR(X, 2) + JS2)) * (ARR(X, 2) + JS2)
If (JS1 - Z1) <= CRR(1, 1) Then
ARR(X, 4) = Application.Round((ARR(X, 1) + JS2) / Int(JS1 / (ARR(X, 2) + JS2)) / JS3 * ARR(X, 3), 5)
Else
100:
JZ = Application.Lookup(JS1 - Z1 - 0.00001, CRR)
Z1 = Z1 + JZ
If JS1 - Z1 > CRR(1, 1) Then GoTo 100
ARR(X, 4) = Application.Round(((ARR(X, 1) + JS2) * (ARR(X, 2) + JS2)) / Z1 / JS3 * ARR(X, 3), 5)
End If
Next
Range("B1").Resize(R, 4) = ARR
Application.ScreenUpdating = True
End Sub

复制代码

xiaoxie2830398 · 发表于 2011-11-9 13:13

mxg825 发表于 2011-11-9 12:56
看看结果对不对？

现在是完全正确了，太好了，困扰我许久的问题终于圆满解决了，我先试用看看，有什么问题再向你请教！

mxg825 · 发表于 2011-11-9 13:14

本帖最后由 mxg825 于 2011-11-9 13:28 编辑

到50楼下载，，，已经写好了

mxg825 · 发表于 2011-11-8 21:09

本帖最后由 mxg825 于 2011-11-8 21:54 编辑

你看一下附件。。。
暂时用公式理清关系，是否还有条件没有补充、

结果对了再写代码！

mxg825 · 发表于 2011-11-8 20:59

基本就是这两种情况了，现在还有一个特殊的地方是：如果A列中的数值，除以C列中的数值，商刚好是整数的情况，这时应该把商－1后，再利用上面的两种方法计算。现在这样子说各位大侠应该清楚了我的意图了吧？

要不要加上0.125

xiaoxie2830398 · 发表于 2011-11-9 12:00

mxg825 发表于 2011-11-9 11:50
还有最后的一个问题，还没解决：也要加上0.125算的

请举例说明！

比如A列的数值是60，C列的数值是19.875，那计算时是60/（19.875+0.125）＝3，刚好商是整数的，这时要把商－1后，再利用上面的算法计算。

xiaoxie2830398 · 发表于 2011-11-7 21:43

不要再看前面的问题了，以免影响你们思路，你们就从第一步看到第三步，与最后面的表格就行。

xiaoxie2830398 · 发表于 2011-11-7 21:23

基本就是这两种情况了，现在还有一个特殊的地方是：如果A列中的数值，除以C列中的数值，商刚好是整数的情况，这时应该把商－1后，再利用上面的两种方法计算。现在这样子说各位大侠应该清楚了我的意图了吧？

xiaoxie2830398 · 发表于 2011-11-7 21:30

本帖最后由 xiaoxie2830398 于 2011-11-7 21:31 编辑

为了便于核对，我再把楼顶的表附在下面，请各位高手在明白我的思路后，踊跃发表见解，谢谢！

xiaoxie2830398 · 发表于 2011-11-7 21:33

蓝桥玄霜发表于 2011-11-5 15:55
楼主的叙述是：
1、A/（B+0.125）＝C；注：A即58，B即C列中的数值如11.25，C即58/11.375＝5.098
2、取整 ...

高手们请赐教！

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