msww.net
当前位置:首页 >> ExCEl 如何用VBA实现 销售订单汇总数据 >>

ExCEl 如何用VBA实现 销售订单汇总数据

若数据为sheet1表的b2开始的b列dim finalrow&dim sumt& '所求合finalrow = sheet1.cells(2,65535).end(xlup).rowsumt = worksheetfunction.sum(range("b2:" & "b" & rinalrow))

可以用数据透视表做啊

若数据为sheet1表的B2开始的B列DIM FINALRow&DIM SUMT& '所求合FINALRow = sheet1.cells(2,65535).end(xlup).rowSUMT = worksheetfunction.sum(Range("B2:" & "B" & rinalrow))

咨询一下,Excel2003下编写的VBA应用,在Excel2007中能够完全使用吗?兼用性一般来说是可以兼容的,但是Excel2007对某些函数或语句不支持了,如果遇上这种

Sub 条件统计() Dim refg As String refg = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row Range("B3:C4") = 0 For R = 3 To 4 For C = 2 To 3 For i = 3 To refg If Cells(R, 1) = Cells(i, 5) And Cells(2, C) = Cells(i, 6) Then Cells(R, C) = Cells(R, C) + Cells(i, 7) End If Next Next Next End Sub

类似以下的代码activeworkbook.saveas "c:\1.csv", xlcsv或者activeworkbook.saveas "c:\1.csv", 6

错误1: j = 1 那么cells(i,j -1)将定位到不存在的单元格,所以错误. 错误2: sheet2.cells(b, 1) = sheet1.cells(i, j + 1) 上面写这句代码中的b没有赋初值,所以为0.同样cells(0,1)这个单元格是不存在的. 错误3: for 循环用法是不是有问题?既然用了for i

楼主是在使用某个软件的时候,让软件系统输入表格吗?如果是这样的话,就咨询下软件说明,或者软件支持如果是要自行制作表格,就按照纸质订单,画表即可,涉及到计算,如果有疑问,可以发来讨论的

如果数据量上到六万的话,不建议用Excel,建议用数据库.小搞搞上Access,大搞上 SQLServer.千八百条记录可考虑Excel VBA.三四百条记录可考虑Excel 公式:=IF(C4=C3,B3,B3+1) .大致使用方法:把公式写到B4中后向下拉.然后设置单元格格式,选自定义,输00000后确认.

你的数据应该是从别的地方倒过来的吧?直接用excel公式=a6=a11是true,但是你在vbe的立即窗口(ctrl+g)里输入:print range("a11")- range("a6")会显示 2.8421709430404e-14也就是说a11比a6大那么一点点点点,估计是导入的数据在exce里l的浮点运算误差造成的.原来的帖子我也看到了,强制类型以后精度变了,后面的位数被舍掉了,就相等了,对于不需要太精确的运算来说确实可以这样.

网站首页 | 网站地图
All rights reserved Powered by www.msww.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com