父件子件关系的BOM表格计算方法之一（蓝桥方法）

lzqmsy

学一下蓝桥老师的代码,谢谢

兔TWO爷2

神了，好好学习。

海杰同学

对于这个数据，现在用蓝桥方法自己处理不过去，可以烦请版主指点一二么？
谢谢

sdong7

学一下老师的代码,谢谢

yiping04

{:soso_e134:}好晕啊 不懂啊

wangsj_2001

蓝老师，您好，您有时间帮帮我解决一下我工作表格中的问题吧，谢谢您了。

http://club.excelhome.net/thread-1084489-1-1.html

DZ潇潇

一看这些高端帖子，菜鸟级真心感觉：学海无涯我在划破舟

风无尘

蓝桥玄霜 发表于 2013-5-29 10:32
请见附件。

蓝老师，您好， PTA.zip (32.67 KB, 下载次数: 9)

2014-4-2 14:55 上传

点击文件名下载附件
数据

请问根据第二个表的信号，在做多的那天信号发出后，在数据表上以下周一以开盘价做多，周五以收盘价平仓，反之，如果信号的空的日期，则以下周一开盘价做空，以周五收盘价平仓。数据表上只有周一周五的数据，信号数据表是信号的发出日，何解呢？

LJH3011308

蓝桥玄霜 发表于 2013-5-31 21:03

博士，你好，求您帮我看一下这个表的VB编码要怎样做？

蓝桥玄霜

LJH3011308 发表于 2014-4-26 15:46
博士，你好，求您帮我看一下这个表的VB编码要怎样做？

1. Sub lqxs()
   
2. Dim Arr, i&, r%, Arr1(), ks, js
   
3. Sheet4.Activate
   
4. Arr = [a1].CurrentRegion
   
5. For i = 2 To UBound(Arr)
   
6.     If Arr(i, 3) = "合计行" Then
   
7.         r = r + 1
   
8.         ReDim Preserve Arr1(1 To r)
   
9.         Arr1(r) = i
   
10.     End If
    
11. Next
    
12. For i = 1 To r
    
13.     If i <> r Then
    
14.         js = Arr1(i + 1) - 1
    
15.     Else
    
16.         js = UBound(Arr)
    
17.     End If
    
18.     ks = Arr1(i)
    
19.     If ks = js Then Exit Sub
    
20.     Cells(ks, 11).Formula = "=sum(r[1]c:r[" & js - ks - 1 & "]c)"
    
21.     Cells(ks, 11).AutoFill Cells(ks, 11).Resize(1, 8)
    
22. Next
    
23. End Sub
    

复制代码