[已解决]单元格值格式转换

z4214488

求教：

=IF((TEXT(I2,"0-00-00")-TEXT(G2,"0-00-00"))<=366,"短期","中长期")

这个EXCEL公式，如果用VBA应该怎样写代码？

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-3-14 16:12

z4214488 发表于 2017-3-14 15:38
都是中长期了

简单处理成数组，执行效率会高很多，用这段代码吧

1. Sub Ti()
   
2.     Dim x, arr
   
3.     arr = [g2:i239]
   
4.     For x = 1 To UBound(arr)
   
5.         arr(x, 2) = IIf(CDate(Format(arr(x, 3), "0000-00-00")) - CDate(Format(arr(x, 1), "0000-00-00")) <= 366, "短期", "中长期")
   
6.     Next
   
7.     [h2].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
   
8. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. IIf(Cells(2, "i").Value - Cells(2, "g").Value <= 366, "短期", "中长期")

复制代码

大概这样？

z4214488

望帝春心 发表于 2017-3-14 13:36
大概这样？

提示：编辑错误          缺少 ：=

望帝春心

z4214488 发表于 2017-3-14 15:06
提示：编辑错误          缺少 ：=

你要把这个结果放到哪个单元格就写哪个单元格=IIF。。。。比如CELLS(1,1)=IIF(...)

z4214488

望帝春心 发表于 2017-3-14 15:11
你要把这个结果放到哪个单元格就写哪个单元格=IIF。。。。比如CELLS(1,1)=IIF(...)

都是“短期”，值都=0

望帝春心

z4214488 发表于 2017-3-14 15:21
都是“短期”

把数据发上来看看行么？不要让别人瞎猜好吗？

z4214488

望帝春心 发表于 2017-3-14 15:22
把数据发上来看看行么？不要让别人瞎猜好吗？

都是中长期了


T.zip (61.5 KB, 下载次数: 1)

2017-3-14 15:36 上传

点击文件名下载附件

望帝春心

z4214488 发表于 2017-3-14 15:38
都是中长期了

简单改了下

1. Sub Ti()
   
2.     Dim x
   
3.     For x = 2 To 239
   
4.         Range("h" & x) = IIf(CDate(Format(Cells(x, "i"), "0000-00-00")) - CDate(Format(Cells(x, "g"), "0000-00-00")) <= 366, "短期", "中长期")
   
5.     Next
   
6. End Sub

复制代码

望帝春心

z4214488 发表于 2017-3-14 15:38
都是中长期了

简单处理成数组，执行效率会高很多，用这段代码吧

1. Sub Ti()
   
2.     Dim x, arr
   
3.     arr = [g2:i239]
   
4.     For x = 1 To UBound(arr)
   
5.         arr(x, 2) = IIf(CDate(Format(arr(x, 3), "0000-00-00")) - CDate(Format(arr(x, 1), "0000-00-00")) <= 366, "短期", "中长期")
   
6.     Next
   
7.     [h2].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
   
8. End Sub

复制代码

z4214488

望帝春心 发表于 2017-3-14 16:12
简单处理成数据，执行效率会高很多，用这段代码吧

万分感谢！！