Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表根据单元格内容触发其他单元格


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

主题：excel报表根据单元格内容触发其他单元格
帅哥哟，离线，有人找我吗？
i4whylg
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：281 积分：3183 威望：0 精华：0 注册：2014/2/19 10:32:00 		excel报表根据单元格内容触发其他单元格  发帖心情 Post By：2021/3/8 2:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
请老师指教：如图所示，能否判断前一个红框内的字符串的长度大于80，就以逗号分割，依次填入第二个红框内的多个单元格中
 回到顶部
帅哥哟，离线，有人找我吗？
i4whylg
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：281 积分：3183 威望：0 精华：0 注册：2014/2/19 10:32:00 		  发帖心情 Post By：2021/3/8 8:49:00 [只看该作者]

不打算在狐表里增加列，能实现么？

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


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 9:07:00 [只看该作者]

先生成报表，然后使用代码判断单元格的长度，再拆分。

execl文件的处理可以看看
 回到顶部
帅哥哟，离线，有人找我吗？
i4whylg
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：281 积分：3183 威望：0 精华：0 注册：2014/2/19 10:32:00 		  发帖心情 Post By：2021/3/8 9:43:00 [只看该作者]

请问老师我怎么才能知道选了多少行，例如单元格Sheet(i,m).value里面的i，m怎么通过代码赋值呢

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


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 9:48:00 [只看该作者]

Sheet(i,2).value = xxx
或者
dim m as integer = 2
Sheet(i,m).value = xxx
 回到顶部
帅哥哟，离线，有人找我吗？
i4whylg
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：281 积分：3183 威望：0 精华：0 注册：2014/2/19 10:32:00 		  发帖心情 Post By：2021/3/8 10:28:00 [只看该作者]

请教老师，我写了如下代码：
放在报表生成按钮里面：
'''
Dim Book As New XLS.Book(ProjectPath & "Attachments\ylgg.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim fl As String = ProjectPath & "Reports\ylgg.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Dim i As Integer = Sheet.Rows.Count
For m As Integer = 5 To i
    Dim s As String = Sheet(m, 4).Value
    If s.Length > 10 Then
    Dim Values() As String
Values = s.split("，")
For k As Integer = 11 To Values.Length + 10
    Sheet(m, k).Value = Values(k - 11)
Next
Sheet(m, 4).Value = "见附件管号一览表"
End If
Next
Proc.File = fl
Proc.Start()

或者放在报表事件的AfterBuild里面：
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim i As Integer = Sheet.Rows.Count
For m As Integer = 5 To i
    Dim s As String = Sheet(m, 4).Value
    If s.Length > 10 Then
    Dim Values() As String
Values = s.split("，")
For k As Integer = 11 To Values.Length + 10
    Sheet(m, k).Value = Values(k - 11)
Next
Sheet(m, 4).Value = "见附件管号一览表"
End If
Next

无论放在生成报表还是放在报表事件的AfterBuild里面都没效果
[此贴子已经被作者于2021/3/8 10:32:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 10:34:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim i As Integer = Sheet.Rows.Count
For m As Integer = 5 To i
    Dim s As String = Sheet(m, 4).Value
    If s.Length > 10 Then
    Dim Values() As String
Values = s.split("，")
msgbox(Values.Length)
For k As Integer = 0 To Values.Length -1
    Sheet(m, k+11).Value = Values(k)
Next
Sheet(m, 4).Value = "见附件管号一览表"
End If
Next

Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

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


加好友 发短信
等级：童狐 帖子：281 积分：3183 威望：0 精华：0 注册：2014/2/19 10:32:00 		  发帖心情 Post By：2021/3/8 10:41:00 [只看该作者]

运行显示“打开存储文件失败”，不知道是什么原因

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


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 10:43:00 [只看该作者]

文件路径不正确，或者不存在

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/8 10:45:00 [只看该作者]

'''
Dim Book As New XLS.Book(ProjectPath & "Attachments\ylgg.xlsx")
Dim fl As String = ProjectPath & "Reports\ylgg.xlsx"
Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim i As Integer = Sheet.Rows.Count
For m As Integer = 5 To i
    Dim s As String = Sheet(m, 4).Value
    If s.Length > 10 Then
    Dim Values() As String
Values = s.split("，")
For k As Integer = 11 To Values.Length + 10
    Sheet(m, k).Value = Values(k - 11)
Next
Sheet(m, 4).Value = "见附件管号一览表"
End If
Next
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿Proc.File = fl
Proc.Start()
 回到顶部
总数 13 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.05176 秒, 4 次数据查询