Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]EXCEL公式


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

主题：[求助]EXCEL公式
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]EXCEL公式  发帖心情 Post By：2022/2/15 17:37:00 [只看该作者]

单元格公式可以象下面这样统计吗

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220215173634.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/15 19:09:00 [只看该作者]

变通解决了

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/21 22:02:00 [只看该作者]

EXCEL中的数据验证设置，在模板中设置的时候是可以的，下拉框是可以打开的，但设置完成在项目中打开报表的时候下拉框就没有了，为什么不行呢

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220221220147.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/2/21 22:04:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/21 22:06:00 [只看该作者]

模板不支持execl内置的各种设置的

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/22 10:34:00 [只看该作者]

哦，那象这种下拉框有什么变通办法解决吗

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/22 10:47:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=142184&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/24 18:13:00 [只看该作者]

已解决

[此贴子已经被作者于2022/2/24 18:36:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/25 14:07:00 [只看该作者]

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\ABC.xlsx")
Dim fl As  String = ProjectPath  &  "Reports\ABC.xlsx"
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

Dim s1 As String  = DataTables("店铺档案").SQLGetComboListString("事业部")
s1 = s1.Replace("|",",")

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath &  "Attachments\ABC.xlsx")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(3)
With Ws1.Range("O1").Validation
  .Delete
  .Add(Type:=MSExcel.XlDVType.xlValidateList,  AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop,  Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s1)
End With

以上会同时打开两个文件，要怎么调整呢
[此贴子已经被作者于2022/2/25 14:07:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/2/25 14:47:00 [只看该作者]

去掉

Dim Proc As New Process 
Proc.File = fl
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1394 积分：10728 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2022/2/25 14:59:00 [只看该作者]

试过，去掉之后，表中的其他设置都无效了

不管去不去掉，App.WorkBooks.Open这里打开的表，除了下拉框其他都是失效的，都是模板设置下的状态，没有生成细节区

如何在下面代码中生成细节区呢
Dim s1 As String  = DataTables("店铺档案").SQLGetComboListString("事业部")
s1 = s1.Replace("|",",")

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath &  "Attachments\ABC.xlsx")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets(3)
With Ws1.Range("O1").Validation
  .Delete
  .Add(Type:=MSExcel.XlDVType.xlValidateList,  AlertStyle:=MSExcel.XlDVAlertStyle.xlValidAlertStop,  Operator:=MSExcel.XlFormatConditionOperator.xlBetween, Formula1:=s1)
End With
[此贴子已经被作者于2022/2/25 15:33:14编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询