网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：281,531贴子：1,551,760
  • 10回复贴，共1页

vba求帮助！


If Target.Column = 4 And Target.Row > 4 Then
If Target <> "" Then
Sheets("产品信息库").Names.Add "a", Cells(Target.Row, 4).Value
Target.Offset(, 1) = Evaluate("a")
Sheets("产品信息库").Names("a").Delete
End If
End If
这样出来的值还是原来的30*40*25,试了好多方法就是没法得到乘积,老师来帮下忙！@zipall @青水蛙鸣


Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Cells(1)
If .Column = 4 And .Row > 4 And .Value <> "" Then
.Offset(0, 1) = Evaluate(.Value)
End If
End With
End Sub
直接用Evaluate方法计算


2025-08-29 21:11:40
广告
不感兴趣
开通SVIP免广告
直接在E列输入公式就行了,


后面加上
arr=split(target,"*")
target = arr(1)*arr(2)*arr(3)


Evaluate(Evaluate("a"))可行，
试出来的，什么原因？


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 10回复贴，共1页
分享到: