十日均线操作法(亦喜大师)＋強勢投資法（江百虎和湖俊）-进可攻，退可守。

江百虎

原帖由 西甲霸王 于 11-4-2008 04:35 PM 发表
可以分享一下原因吗？我已经上车了，8.25，想听一下你不碰的理由。在sime（8.70）和maybank（8.25）之间我竟然选了maybank，因为手上已经有ioicorp了，想说分散一下组合。结果sime上得可猛了，又在后悔当中。不然今早 ...

有時候也是要看自己的運氣好不好的。。。命里有時終須有。。。呵呵。。。

我是看 3 日漲幅來選股的，也可以加多一個指標就是  3  日漲幅增減的巴仙率。。。那就是拿今天的  3  日漲幅減去昨日的  3  日漲幅，數值越大就代表漲的越兇。。。因為單看  3 日漲幅的話就無法比較今天和昨天它到底漲了多少。。。應該可以幫助找到漲的最利害的個股的。。。



[ 本帖最后由 江百虎 于 11-4-2008 10:09 PM 编辑 ]

SKY@SAM

原帖由 湖俊 于 11-4-2008 04:33 PM 发表


慢慢来没关系，反正资本不大，我是保守派。

你一时保守一时又乱冲的？

应该说投资投机随时更改。。。

现在全副身家摆在那一边？





我还在等你年中的时间通知啊。。。要订机票都不能。。。错过了便宜的优惠期鸟。。。

股友

又有新的function鸟？江师傅是否可share你的新file。（红着脸不好意思要心中又想要）

湖俊

我都还没接到通知啊，追问上头没有结果，迟迟给不到答案。

我乱冲过了咯，现在观望得多。
身家分配
resort 50%
maybulk 30%
kulim 20%
暂时来说还在赚。

湖俊

原帖由 股友 于 12-4-2008 00:28 发表
又有新的function鸟？江师傅是否可share你的新file。（红着脸不好意思要心中又想要）

若你有之前我放的那个Excel，里面的G5 G10就是这种东西来的。

bonuslinklite1

原帖由 有目标的大头 于 10-4-2008 01:06 AM 发表


问题是大头没有highlight anything．:L:L:L
算了，等下alter后看看file size decrease or not??

• 在excel 按 Alt + F11.
• 从menu中选择 Insert-Module.
• 把下面的东东贴到右边的窗口.
• 然后savefile，关闭这vbe窗口
• 去tool-macro, 让后选择 Bonuslink,大大力给他两下
• save file,关闭，然后在检查看看file size 如何？？:rf:

Option Explicit

Sub Bonuslink()
     
    Dim j               As Long
    Dim k               As Long
    Dim LastRow         As Long
    Dim LastCol         As Long
    Dim ColFormula      As Range
    Dim RowFormula      As Range
    Dim ColValue        As Range
    Dim RowValue        As Range
    Dim Shp             As Shape
    Dim ws              As Worksheet
     
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     
    On Error Resume Next
     
    For Each ws In Worksheets
        With ws
             'Find the last used cell with a formula and value
             'Search by Columns and Rows
            On Error Resume Next
            Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
            Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
            Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
            Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
            On Error Goto 0
            
             'Determine the last column
            If ColFormula Is Nothing Then
                LastCol = 0
            Else
                LastCol = ColFormula.Column
            End If
            If Not ColValue Is Nothing Then
                LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column)
            End If
            
             'Determine the last row
            If RowFormula Is Nothing Then
                LastRow = 0
            Else
                LastRow = RowFormula.Row
            End If
            If Not RowValue Is Nothing Then
                LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row)
            End If
            
             'Determine if any shapes are beyond the last row and last column
            For Each Shp In .Shapes
                j = 0
                k = 0
                On Error Resume Next
                j = Shp.TopLeftCell.Row
                k = Shp.TopLeftCell.Column
                On Error Goto 0
                If j > 0 And k > 0 Then
                    Do Until .Cells(j, k).Top > Shp.Top + Shp.Height
                        j = j + 1
                    Loop
                    If j > LastRow Then
                        LastRow = j
                    End If
                    Do Until .Cells(j, k).Left > Shp.Left + Shp.Width
                        k = k + 1
                    Loop
                    If k > LastCol Then
                        LastCol = k
                    End If
                End If
            Next
            
            .Range(Cells(1, LastCol + 1).Address & ":IV65536").Delete
            .Range(Cells(LastRow + 1, 1).Address & ":IV65536").Delete
        End With
    Next
     
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
     
End Sub

请自行替换脸部表情本该拥有的code, 比如 ： I :I 。。。

[ 本帖最后由 湖俊 于 12-4-2008 01:39 AM 编辑 ]

湖俊

帮你解决了笑脸问题。

原来是多余的column作怪的关系啊。
你vba的功夫不错哦，有空要多像你请教了。

No.AMD

各位大大，到底3日涨幅是怎样算出来的，是算百分之多少吗？股票每天有涨跌的时候，可以举个简单的例子吗？
偶还是菜鸟一个，可是时常有跟这个帖子。

四伯爽

就是今天的价钱和三天前的价钱相比
就是这么简单

湖俊

原帖由 No.AMD 于 12-4-2008 11:18 发表
各位大大，到底3日涨幅是怎样算出来的，是算百分之多少吗？股票每天有涨跌的时候，可以举个简单的例子吗？
偶还是菜鸟一个，可是时常有跟这个帖子。

上图是算出来的结果，下图是formula。

No.AMD

谢谢各位大大，现在明白了！
以后希望向你们多多学习了！

江百虎

[ 本帖最后由 江百虎 于 12-4-2008 01:24 PM 编辑 ]

江百虎

原帖由 股友 于 12-4-2008 12:28 AM 发表
又有新的function鸟？江师傅是否可share你的新file。（红着脸不好意思要心中又想要）

呵呵。。。

http://www.savefile.com/files/1499443

江百虎

SKY@SAM

原帖由 湖俊 于 12-4-2008 12:29 AM 发表
我都还没接到通知啊，追问上头没有结果，迟迟给不到答案。

我乱冲过了咯，现在观望得多。
身家分配
resort 50%
maybulk 30%
kulim 20%
暂时来说还在赚。

嘿嘿嘿。。。有点赚头倒是恭喜恭喜。。。

看重resort那方面的优势？不然一半身家会买下？

还是在均线指令下单纯执行？

股友

是的，还是很多人迷信巴菲特的长期投资法，都说了他会买股票因为他有话事权，能把好烂公司引入正道。这是小小散仔做不到的事。

leong9000

（借用我在他处的回复）

所谓投资，不外也是寻找受到市场低估的股只买入，高估时卖出。这一方面，用公司数据及盈利能力来寻找，或用统计精算学寻找，何别之有？

巴菲特有几个项目是真正投资，因为他运用能力并行动来改变了一家家优资但面临困境的公司的命运（如全权买入股权，并入主管理层，进行改革），

除此之外的行为不外是买低卖高的异殊同归道路，何存此优彼劣之别？

相信，两者之间当有相同之处

江百虎

原帖由 leong9000 于 12-4-2008 05:21 PM 发表
（借用我在他处的回复）

所谓投资，不外也是寻找受到市场低估的股只买入，高估时卖出。这一方面，用公司数据及盈利能力来寻找，或用统计精算学寻找，何别之有？

巴菲特有几个项目是真正投资，因为他运用能力并 ...

呵呵。。。

不要說的那么白拉。。。

就讓我們這些沒錢沒勢的平民小百姓幻想一下自己也是上市公司的股東之一拉。。。

leong9000

原帖由 江百虎 于 12-4-2008 05:48 PM 发表


呵呵。。。

不要說的那么白拉。。。

就讓我們這些沒錢沒勢的平民小百姓幻想一下自己也是上市公司的股東之一拉。。。

百虎兄，你比我还要坏

有目标的大头

原帖由 bonuslinklite1 于 12-4-2008 01:19 AM 发表
在excel 按 Alt + F11.
从menu中选择 Insert-Module.
把下面的东东贴到右边的窗口.
然后savefile，关闭这vbe窗口
去tool-macro, 让后选择 Bonuslink,大大力给他两下
save file,关闭，然后在检查看看f ...

大大，File size 还是一样。