[已解决]求，hrpotter 老师制作代码

759857387

看附件，加几句代码，谢谢！
Book8.rar (11.49 KB, 下载次数: 9)

2012-5-22 18:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-5-22 19:24

1. Sub test()
   
2.     Dim rng As Range
   
3.     With Sheet1
   
4.         For Each rng In .Range("b26:e26")
   
5.             If rng Like "*↑↑*" Or rng Like "*↓↓*" Then
   
6.                 MsgBox .Cells(1, rng.Column)
   
7.             End If
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

能把要求说得明白点吗？

759857387

hrpotter 发表于 2012-5-22 18:34
能把要求说得明白点吗？

我想：查找对应股票代码，然后SendKeys

hrpotter

表里就一行数据，实在弄不懂要怎么查

759857387

hrpotter 发表于 2012-5-22 18:52
表里就一行数据，实在弄不懂要怎么查

4.rar (306.16 KB, 下载次数: 6)

2012-5-22 19:03 上传

点击文件名下载附件
这是原文件图，因链接公式太多怕搞错了，见谅。
目的：当股票买卖时要输入股票代码，只有当信号（↑↑或↓↓）出现时，查找出现信号对应的股票代码，填入交易单中。
不知说清楚没有？

hrpotter

是要查↑↑或↓↓对应的同列的第一行所在的股票代码？

759857387

hrpotter 发表于 2012-5-22 19:16
是要查↑↑或↓↓对应的同列的第一行所在的股票代码？

-------------是的

hrpotter

1. Sub test()
   
2.     Dim rng As Range
   
3.     With Sheet1
   
4.         For Each rng In .Range("b26:e26")
   
5.             If rng Like "*↑↑*" Or rng Like "*↓↓*" Then
   
6.                 MsgBox .Cells(1, rng.Column)
   
7.             End If
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

759857387

hrpotter 发表于 2012-5-22 19:24

hrpotter老师不辞辛苦，晚饭都没有吃来帮助我，实在感动！谢谢！