以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]不能从其他表复制货币格式到整数列问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97852)
--  作者：jick0526
--  发布时间：2017/3/20 2:23:00
--  [求助]不能从其他表复制货币格式到整数列问题
老师，请问下，我从其他EXCEL复制数据到狐表，EXCEL数据的格式是货币格式，例如＄100.00，我把它复制到整数列里不能复制，整数列里我也把货币设置成＄了，也不行，不能
识别，只有将列改成字符型才能复制进去，问题是字符型又不能统计，有什么办法可以解决这问题吗？

我想把＄100.00复制到表里的时候，自动默认会变成100，会默认自动把＄和.00去掉，这个代码该怎么写，或者粘贴时会自动变成整数的，不带货币符号的粘贴进去就行了，老师帮帮我，谢谢！
--  作者：有点色
--  发布时间：2017/3/20 10:18:00
--  

 做个按钮，替换字符。你复制了数据后，点一下按钮，然后再粘贴进去

 

If ClipBoard.GetText > "" Then
    ClipBoard.SetText(ClipBoard.GetText.Replace("$", "" ).replace(".00", ""))
    msgbox("替换完毕")
End If
--  作者：jick0526
--  发布时间：2017/3/20 15:08:00
--  
老师，如果不想用按钮，用另一列来代替，比如在A列粘贴＄100.00，B列就自动输入100，这样代码怎么写，谢谢！
--  作者：有点色
--  发布时间：2017/3/20 15:59:00
--  

DataColChanged事件

 

If e.DataCol.Name = "第一列" Then

    e.DataRow("第二列") = val(e.NewValue.Replace("$", "").Replace(".00", ""))

End If
--  作者：jick0526
--  发布时间：2017/3/20 16:23:00
--  
老师，上面这段代码，第一列粘贴后，第二列显示的是0
--  作者：jick0526
--  发布时间：2017/3/20 16:26:00
--  
老师，对不起，是我失误，现在可以了，谢谢！
--  作者：北狐
--  发布时间：2019/8/3 12:32:00
--  

DataColChanged事件

 

If e.DataCol.Name = "第一列" Then

   e.DataRow("第二列") = val(e.NewValue.Replace("柜货","FD").Replace("件", ""))

End If

用上述代码同样出现：第一列粘贴后，第二列显示的是0的错误 
第一列的内空为 柜货（50）件
需要第二列正确显示为   FD(50)
请问老师具体是什么原因
--  作者：有点蓝
--  发布时间：2019/8/3 14:16:00
--  
e.DataRow("第二列") =e.NewValue.Replace("柜货","FD").Replace("件", "")