请高手帮忙： 多个网页数据导入excel

xmyjk

原帖由 ck1668 于 2011-4-24 15:21 发表


啊，老师，刚发现一个小小的问题，就是排序只能是AF栏以前的可以，AG栏和以后的都不能排序了，麻烦你帮忙看看。

911924

排序的不可能做到每行都行，你一般最多会用到到哪一列？没办法无限制的做到最后一列。

ck1668

用得比较多的主要是“代码”、“最新价”、“净流入”、“大单净流入”，“中单净流入”用得比较少一点。
这样吧，你帮我把“最新价”改为放到“股票名称”后面一栏吧，另外，把“代码”、“名称”、“最新价”这三栏冻结起来，至于后面的“中单净流入”能排序的就排序，不能排序的就不管它了。

xmyjk

原帖由 ck1668 于 2011-4-24 16:26 发表
用得比较多的主要是“代码”、“最新价”、“净流入”、“大单净流入”，“中单净流入”用得比较少一点。
这样吧，你帮我把“最新价”改为放到“股票名称”后面一栏吧，另外，把“代码”、“名称”、“最新价”这三 ...

1. Dim x As Boolean, m As Single '设置计数器和逻辑判断，定义区域变量，可保存在内存中直至工作薄关闭
   
2. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
3. 
   
4. Dim cl As Long
   
5. cl = [iv1].End(xlToLeft).Column
   
6. 
   
7. x = m Mod 2 '点击两次，重新每次的设置逻辑切换，仅仅排序后才改变逻辑
   
8. 
   
9. If x = False Then '降序逻辑操作
   
10.    If Target.Count = 1 And Target.Column <= cl And Target.Row = 1 Then
    
11.          Target.CurrentRegion.Sort Target, xlDescending, , , , , , 1: m = m + 1
    
12.    End If
    
13.    
    
14. ElseIf x = True Then '升序逻辑操作
    
15.    If Target.Count = 1 And Target.Column <= cl And Target.Row = 1 Then
    
16.          Target.CurrentRegion.Sort Target, xlAscending, , , , , , 1: m = m + 1
    
17.    End If
    
18. End If
    
19. 
    
20. End Sub
    
21. 
    

复制代码

[ 本帖最后由 xmyjk 于 2011-4-24 21:50 编辑 ]

120HYH

谢谢，xmyjk兄弟。

ck1668

这个可以，好像全部可以排序了，多谢老师的帮忙！

ck1668

老师，你好！

首先，非常感谢你帮我做的这个统计表，查询很方便，但今天发现一个这样的问题，我copy今天4月28日的“涨跌幅”到“统计表”里，然后按涨跌幅排序，排序后发现是乱的，故我想能不能再麻烦你一下，统计表里增加一栏：当天的“涨跌幅”，感谢！

xmyjk

原帖由 ck1668 于 2011-4-28 21:02 发表
老师，你好！

首先，非常感谢你帮我做的这个统计表，查询很方便，但今天发现一个这样的问题，我copy今天4月28日的“涨跌幅”到“统计表”里，然后按涨跌幅排序，排序后发现是乱的，故我想能不能再麻烦你一下，统计 ...

试看看如何吧。

ck1668

原帖由 xmyjk 于 2011-4-28 22:00 发表


试看看如何吧。

正是这样，老师，但还有两点要你再帮忙一下：
1，涨跌幅你帮我用不同的颜色显示，涨的用红色，跌的用绿色，这样容易看一点；
2，我还有这样一个设想，不知道你的代码能不能做到，请看附件，我在“起始页”里增加了我自己的股票，并编了号，我想统计表的前面三栏分别为“自”“代码”“名称”，并且，“自”栏里的编号能自动跟回“起”里的编号，这样，我只要点一下“自”，我买的股票就马上出现在最前面，如果统计表里的“自”不能放到第一栏，那就放到最后一栏，靠“涨跌幅”一起也可以，感谢！

注： 考虑到以后工作表会越来越多，“起始页”我精减为“起”，“自选股”精减为“自”。
终结版股票V3.1.zip (650.17 KB, 下载次数: 13)

2011-4-29 09:19 上传

点击文件名下载附件

1005191301

上旋下弦月，你好！
你的第4楼附件，为啥只有第一次打开EXCEL，运行的话，才能刷新最新的数据呢？
不关闭EXCEL第2次若运行还是第1次运行的数据呢？
若单独用浏览器把http://hqdigi2.eastmoney.com/EM_ ... page=1&style=33打开一次，也可以刷新!

请教怎样改呢！
谢谢！

ck1668

老师，我上面78楼那个要求能不能做到？