Foxtable(狐表)用户栏目专家坐堂 → excel报表问题


  共有3050人关注过本帖树形打印复制链接

主题:excel报表问题

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
excel报表问题  发帖心情 Post By:2018/11/17 12:03:00 [显示全部帖子]

<"辅机事业部生产计划("&Format(Month(Date)+1,"yyyy年MM月"&")")> 
"yyyy年MM月"的格式显示下个月,该怎么改?

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/17 13:08:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:辅机月度生产计划.xls

没有显示

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/17 14:50:00 [显示全部帖子]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:辅机月度生产计划.xls

 


报表模版里能一次生成两个表么?

要怎么改?


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/17 15:43:00 [显示全部帖子]

复杂,我先看看


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/17 15:47:00 [显示全部帖子]

报表中产值列的公式设为<*[数量]*-[可入库数量]>,在最后一行有个汇总,公式要怎么设?现在设成这个不行<*[%Sum(<*[数量]*-[可入库数量]>)]*>


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/19 17:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:qr755-002领料清单.xls


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/19 17:37:00 [显示全部帖子]

要在报表领料清单最下面实现“领料人”和“审核人”的电子签该怎么弄?


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/19 17:57:00 [显示全部帖子]

1、在同一个Excel中合并:
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("f:\test.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.Cells(ws .UsedRange.Rows.Count+1,1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step -1
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
rg2.Copy
rg.PasteSpecial()
rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)
Ws2.Delete
Next
Wb.Save
App.Quit
 
这段代码要写在哪里?

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/19 18:47:00 [显示全部帖子]

多行内容生成一张报表,这样好像不行啊!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:qr755-002领料清单.xls


 回到顶部
美女呀,离线,留言给我吧!
13775189031
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:804 积分:5542 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/11/19 19:03:00 [显示全部帖子]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("\\172.17.57.200\jsdlzb-pub\辅机事业部\生产采购管理系统\生产计划\生产计划.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range  = ws.Cells(ws .UsedRange.Rows.Count+1,1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step -1
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
    Dim Rg2 As MSExcel.Range = Ws2.UsedRange
    rg2.Copy
    rg.PasteSpecial()
    rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)
    Ws2.Delete
Next
Wb.Save
App.Quit

 

是在afterbuild事件中么?

显示


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

 回到顶部
总数 23 1 2 3 下一页