Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
表A如下：
|
序号 |
产品 |
长度 |
自动计算两”J“之间的长度 |
说明 |
|
1 |
J30 |
0 |
|
|
|
2 |
A1 |
1 |
|
|
|
3 |
A2 |
1 |
|
|
|
4 |
J20 |
1 |
3 |
=产品列上一个"J"与此"J"之间的长度 |
|
5 |
A3 |
2 |
|
|
|
6 |
A4 |
2 |
|
|
|
7 |
A5 |
2 |
|
|
|
8 |
J60 |
1 |
7 |
=产品列上一个"J"与此“J”之间的长度 |
|
9 |
A6 |
1 |
|
|
|
10 |
A7 |
2 |
|
|
|
11 |
D |
2 |
5 | =上一个"J"与D的长度 |
foxtable是个数据库，不是一个电子表格。
狐表实现并不难！思路是：先将产品列以J开头的行提取出来作为一个集合；然后找出每一行所对应的序号；最后利用循环语句将相应长度累加。
Dim i As Double = Tables("表A").Rows.count
Dim h As Row
Dim j As Double
For j = 0 To i-1
h=Tables("表A").Rows(j)
If h("第三列") Like "j*" Then '找到 以 j 开头的
output.show("找到表格的位置是 " & j+1) '输出到控制台
End If
Next
我试试这个