Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
想统计已经打印页的金额,但这样无效:
<[%Sum(金额)] & "万元">
把单元格单独设置成[%Sum(金额)]就可以,用到表达式里就不行。
但这样要受制于列宽,有的列宽,有的列窄,说明文字和统计结果不能融为一体,比较难看。
如果在表达式里可以使用这种统计就好了。
这个以前也有人提过,不好办的。
这个以前也有人提过,不好办的。
我提的.
或者这样,比如"小计"在A6 :
...........
........
Wb.Sheets(1).range("A7").Value = Wb.Sheets(1).range("A7").Value & "万元"
..........
..........
这样可以满足: 用系统自带例子 Excel报表 哈哈,您的全攻略真好啊
Dim Book As New XLS.Book(ProjectPath & "Attachments\分组统计1.xls")
Book.Marks.Add("bj",123 & User.Name)
Book.Build()
Book.Save(ProjectPath & "reports\分组统计1.xls")
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\分组统计1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To Rg.Cells(Rg.Count).Row
If Wb.Sheets(1).range("A" & i).Value Like "小计*"
Wb.Sheets(1).range("G" & i).Value = Wb.Sheets(1).range("G" & i).Value & "元"
End If
Next
Wb.Save
App.Visible = True