[已解决]为什么没有判断？

759857387

见附件 ml.rar (145.93 KB, 下载次数: 24)

2013-3-24 11:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lisachen

2013-3-24 11:46

1. Sub MaxLow()         '如果最新价高于历史最高价，写入历史最高价；如果最新价低于历史最低价，写入历史最低价。
   
2.     Dim i
   
3.     With Sheet1
   
4.     For i = 0 To 65536
   
5.     If VBA.CDbl(.Cells(i + 3, 3)) > CDbl(.Cells(i + 3, 20)) Then
   
6.     .Cells(i + 3, 20) = CDbl(.Cells(i + 3, 3))
   
7.     End If
   
8.     If CDbl(.Cells(i + 3, 3)) < CDbl(.Cells(i + 3, 21)) Then
   
9.     .Cells(i + 3, 21) = CDbl(.Cells(i + 3, 3))
   
10.     End If
    
11.     Next i
    
12.     End With
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

lisachen

1. Sub MaxLow()         '如果最新价高于历史最高价，写入历史最高价；如果最新价低于历史最低价，写入历史最低价。
   
2.     Dim i
   
3.     With Sheet1
   
4.     For i = 0 To 65536
   
5.     If VBA.CDbl(.Cells(i + 3, 3)) > CDbl(.Cells(i + 3, 20)) Then
   
6.     .Cells(i + 3, 20) = CDbl(.Cells(i + 3, 3))
   
7.     End If
   
8.     If CDbl(.Cells(i + 3, 3)) < CDbl(.Cells(i + 3, 21)) Then
   
9.     .Cells(i + 3, 21) = CDbl(.Cells(i + 3, 3))
   
10.     End If
    
11.     Next i
    
12.     End With
    
13. End Sub
    

复制代码

lisachen

文本和数值比较的结果是什么  所以先将文本转化为数值 用 CDBL函数

759857387

lisachen 发表于 2013-3-24 11:47
文本和数值比较的结果是什么  所以先将文本转化为数值 用 CDBL函数

怎么会是文本和数值比较，我没有设置格式是文本呀，在其他程序中使用相似代码页没有使用CDBL函数，请老师详细赐教

lisachen

759857387 发表于 2013-3-24 13:33
怎么会是文本和数值比较，我没有设置格式是文本呀，在其他程序中使用相似代码页没有使用CDBL函数，请老师 ...

你附件的C列就是文本格式的

759857387

lisachen 发表于 2013-3-24 18:52
你附件的C列就是文本格式的

看过你的代码我是清楚C列是文本格式。我很想知道文本产生的原因，你可能会说只要问你，是，可我真的不知道。不搞明白我会睡不好觉的。

lisachen

759857387 发表于 2013-3-24 20:53
看过你的代码我是清楚C列是文本格式。我很想知道文本产生的原因，你可能会说只要问你，是，可我真的不知道 ...

应该='F:\修改中\[股票筛选(1).xlsm]Sheet1'!C7的原数据是文本格式的   比如你A列的股票代码也是文本型的

759857387

lisachen 发表于 2013-3-24 21:32
应该='F:\修改中\[股票筛选(1).xlsm]Sheet1'!C7的原数据是文本格式的   比如你A列的股票代码也是文本型的

原来如此，非常感谢老师的耐心帮助