[ABI 云体验] 5.24 请问abi中能导入带宏的excel吗?

21094
16

chenz 数据达人Lv4

发表于2020-12-8 15:44

悬赏50

已解决

楼主
如题

最近看过此主题的会员

tongchx

bbs

xxxl

asdf

zyasdh

凹凸曼

caiy

最佳答案

xxxl

发表于2020-12-8 15:44

只看该作者

取消 关注该作者的回复

chenz 发表于 2020-12-8 17:12
不行吧  我这是固定报表  不是浮动的   加了$肯定不行啊

好吧 那表格中去掉vb函数试试吧,感觉是这个函数的问题
16个回答

只看楼主

xxxl 数据领袖Lv6

发表于2020-12-8 15:46

只看该作者

取消 关注该作者的回复

沙发

您想导入excel做什么

chenz 数据达人Lv4

发表于2020-12-8 15:46

只看该作者

取消 关注该作者的回复

板凳

xxxl 发表于 2020-12-8 15:46
您想导入excel做什么

导入表格 自动回填

xxxl 数据领袖Lv6

发表于2020-12-8 15:52

只看该作者

取消 关注该作者的回复

地板

chenz 发表于 2020-12-8 15:46
导入表格 自动回填

这里可以设置导入回填规则

chenz 数据达人Lv4

发表于2020-12-8 15:52

只看该作者

取消 关注该作者的回复

5#

xxxl 发表于 2020-12-8 15:52
这里可以设置导入回填规则

都进行了设置

chenz 数据达人Lv4

发表于2020-12-8 15:53

只看该作者

取消 关注该作者的回复

6#

xxxl 发表于 2020-12-8 15:52
这里可以设置导入回填规则

报的错是这样的 因为导入的表格是带宏表达式的

xxxl 数据领袖Lv6

发表于2020-12-8 16:15

只看该作者

取消 关注该作者的回复

7#

chenz 发表于 2020-12-8 15:53
报的错是这样的 因为导入的表格是带宏表达式的

是表格数据里带有宏表达式吗

chenz 数据达人Lv4

发表于2020-12-8 16:23

只看该作者

取消 关注该作者的回复

8#

xxxl 发表于 2020-12-8 16:15
是表格数据里带有宏表达式吗

是有vb函数,上传表格的时候  不能预览

xxxl 数据领袖Lv6

发表于2020-12-8 16:37

只看该作者

取消 关注该作者的回复

9#

chenz 发表于 2020-12-8 16:23
是有vb函数,上传表格的时候  不能预览

没太明白 vb函数,excel里的有关宏的数据 以及excel导入规则可以看一下吗

chenz 数据达人Lv4

发表于2020-12-8 16:54

只看该作者

取消 关注该作者的回复

10#

xxxl 发表于 2020-12-8 16:37
没太明白 vb函数,excel里的有关宏的数据 以及excel导入规则可以看一下吗

VB函数:Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
'让数据有效性选择 可以多选,重复选
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal = "" Then
Else
If newVal = "" Then
Else
Dim oldValArray
oldValArray = Split(oldVal, ",")
Dim exitVal As Boolean
exitVal = False
Dim i As Integer
Dim resultVal As String
For i = 0 To UBound(oldValArray)
  If oldValArray(i) = newVal Then
    exitVal = True
  Else
    If resultVal = "" Then
      resultVal = oldValArray(i)
    Else
      resultVal = resultVal & "," & oldValArray(i)
    End If
  End If
Next
If exitVal = False Then
   If oldVal = newVal Then
     Target.Value = resultVal
   Else
     Target.Value = resultVal & "," & newVal
   End If
Else
Target.Value = resultVal
End If
End If
End If
End If

exitHandler:
Application.EnableEvents = True
End Sub




xxxl 数据领袖Lv6

发表于2020-12-8 17:05

只看该作者

取消 关注该作者的回复

11#

chenz 发表于 2020-12-8 16:54
VB函数:Option Explicit

Sub Worksheet_Change(ByVal Target As Range)

导入规则格式改成这种试试  加$符号

上一页12下一页共2页

登录后可回答问题,请登录注册

快速回复 返回顶部 返回列表

小时

全天响应

分钟

快速处理问题

工程师强势助力

明星产品
解决方案
联系合作

400咨询:400-0011-866

技术支持QQ:400-0011-866(工作日9:00-18:00)

产品建议邮箱yixin@esensoft.com

关注我们

扫TA学习更多干货

一对一专家交流

版权所有© 2006-2024 北京亿信华辰软件有限责任公司 京ICP备07017321号 京公网安备11010802016281号