设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2477|回复: 2
打印 上一主题 下一主题

急,运输单据分组求和问题

[复制链接]
跳转到指定楼层
1#
发表于 2007-2-6 20:37:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
部门  部门客户 卡车 送货地点 重量 价钱
A       A01          T1     SHA         2      100
A         A02       T1      BJ         3       200
A       A02        T1        CS        2        200
A        A02        T1        CS        5        500
B        B01        T11        GZ        9        1800
统计: 要求部门,部门客户,卡车,送货地点 四项一样时统计出来重量与价钱,
并按这几项排列好顺序. 请高手指点下.谢谢
A        A01        T1        SHA        2        100
A        A02        T1        BJ        3        200
A        A02        T1        CS        7        700
B        B01        T11        GZ        9        1800


[此贴子已经被作者于2007-2-6 12:45:28编辑过]

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2007-2-6 20:49:00 | 只看该作者
发帖子的格式好难控制啊

改了几次才看到所有的内容在里面.竟然还要自己写html代码才控制好[em16]
3#
发表于 2007-2-7 04:39:00 | 只看该作者

多字段数据汇总

按Alt+F11进入VBE界面,插入一个模块并在其中编写以下子例程

Sub jz()
Dim ws As Worksheet
Dim x As Long
Dim i As Long
Dim j As Long
Set ws = ActiveSheet
x = ws.[a1].CurrentRegion.Rows.Count
For i = 2 To x
For j = i + 1 To x
   If ws.Cells(j, 1) = ws.Cells(i, 1) And ws.Cells(j, 2) = ws.Cells(i, 2) And ws.Cells(j, 3) = ws.Cells(i, 3) And ws.Cells(j, 4) = ws.Cells(i, 4) Then
      ws.Cells(i, 5) = Val(ws.Cells(i, 5)) + Val(ws.Cells(j, 5))
      ws.Cells(i, 6) = Val(ws.Cells(i, 6)) + Val(ws.Cells(j, 6))
   ws.Cells(j, 1).EntireRow.Delete
   End If
   Next j
    x = ws.[a1].CurrentRegion.Rows.Count
Next i
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:23 , Processed in 0.087410 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表