求助货币符号的处理

ccclizhe · 发表于 2015-5-18 09:26

本帖最后由 ccclizhe 于 2015-5-18 13:03 编辑

有一个订单汇总文件，在它里面有以网站价格为标题的列，这里面有价格，币种是不一样的，而且有的是用单元格格式来设置币种的，有的是在单元格格式里设置了欧元格式，但是外面却是输入的英镑符号，有的用的是币种的简称。。。录入人员不长心所以我想处理一下，手头有2,30个这样的文件，一个一个处理太慢了，跪求各位大神相助希望处理得到的结果如图英镑符号：￡对应编码：GBP 欧元符号在这上面打不出来求大神帮做个例子小白我可以添加上其他的货比处理

huang1314wei · 发表于 2015-5-18 10:34

楼主，你应该提供点资料出来，比如世界各国货币英文缩写及对应的符号做个表格出来，有这个东西做参照物，编程就好编了，你什么都不给，还要我们去百度给你搜“各国货币英文缩写及对应的符号”再来给你写代码，花费时间未免太长了点

ccclizhe · 发表于 2015-5-18 12:47

huang1314wei 发表于 2015-5-18 10:34
楼主，你应该提供点资料出来，比如世界各国货币英文缩写及对应的符号做个表格出来，有这个东西做参照物，编 ...

好的其实我是想请教一下代码该如何去写然后能自己动手的自己动手

huang1314wei · 发表于 2015-5-18 15:17

Sub 货币符号处理()
Dim arr, i, j, k, m
i = Range("A1").End(xlToRight).Column
For j = 1 To i
   If Cells(1, j) = "网站价格" Or Cells(1, j) = "买入价格" Then
      Cells(1, j).EntireColumn.Insert
      Cells(1, j) = "货币英文缩写"
   End If
   Next
arr = Range("A1").CurrentRegion
i = UBound(arr)
k = Left(Cells(2, 6), 1)
m = Left(Cells(46, 6), 1)
For j = 2 To i
   If Left(arr(j, 6), 1) = k Then
      arr(j, 5) = "GBP"
      arr(j, 6) = Right(arr(j, 6), Len(arr(j, 6)) - 1)
      End If
   If Left(arr(j, 6), 1) = m Then
      arr(j, 5) = "USD"
      arr(j, 6) = Right(arr(j, 6), Len(arr(j, 6)) - 1)
      End If
   Next
   Range("A1").Resize(i, UBound(arr, 2)) = arr
   Range(Cells(2, 6), Cells(i, 6)).NumberFormatLocal = "G/通用格式"

End Sub

huang1314wei · 发表于 2015-5-18 15:23

后话：有的时候写代码，我们应该灵活变通一下，你说的那个货币符号我也不会输入，复制粘贴过去是个问号，可能是VBA环境不支持该字符集后来想不能复制粘贴我就把这个符号取出来总可以吧，所以用变量代码那个符号，这也是编程的一种思路

三月订单 4月1日更新.rar (41.23 KB, 下载次数: 26)

ccclizhe · 发表于 2015-5-18 17:29

huang1314wei 发表于 2015-5-18 15:23
后话：有的时候写代码，我们应该灵活变通一下，你说的那个货币符号我也不会输入，复制粘贴过去是个问号，可 ...

谢谢老师指点~一语惊醒梦幻中人！！！学习了

		自动登录	找回密码
密码			免费注册

[求助] 求助货币符号的处理