Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共14 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:Excel报表中这样的表达式怎么写?

1楼
reachtone 发表于:2010/8/5 11:45:00

想统计已经打印页的金额,但这样无效:

<[%Sum(金额)] & "万元">

把单元格单独设置成[%Sum(金额)]就可以,用到表达式里就不行。

2楼
狐狸爸爸 发表于:2010/8/5 11:50:00
不能这么做,用标记,或者分开两个单元格
3楼
reachtone 发表于:2010/8/5 11:53:00
以下是引用狐狸爸爸在2010-8-5 11:50:00的发言:
不能这么做,用标记,或者分开两个单元格

但这样要受制于列宽,有的列宽,有的列窄,说明文字和统计结果不能融为一体,比较难看。

如果在表达式里可以使用这种统计就好了。

4楼
狐狸爸爸 发表于:2010/8/5 12:41:00

这个以前也有人提过,不好办的。

5楼
blackzhu 发表于:2010/8/5 13:12:00
以下是引用狐狸爸爸在2010-8-5 12:41:00的发言:

这个以前也有人提过,不好办的。

我提的.

6楼
mr725 发表于:2010/8/5 14:33:00

或者这样,比如"小计"在A6 :

...........

........

Wb.Sheets(1).range("A7").Value = Wb.Sheets(1).range("A7").Value & "万元"

..........

..........

7楼
狐狸爸爸 发表于:2010/8/5 15:01:00
以后有空我再看看。
8楼
mr725 发表于:2010/8/5 18:55:00

这样可以满足:  用系统自带例子 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

 

  
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2010-8-5 19:01:27编辑过]
9楼
blackzhu 发表于:2010/8/6 7:43:00
R版的那个报表全攻略的确不错.
10楼
狐狸爸爸 发表于:2010/8/6 7:48:00
呵呵,其实这种简单的功能,foxtable自己提供的编程功能就能实现的。
共14 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02539 s, 2 queries.