SoftGanz By Little Bear.

Web & Software Developer Gang.

"หุ้น 10 เด้ง" ของ...ปีเตอร์ ลินช์

โดย Little Bear on August,31 2014 09.07

"หุ้น 10 เด้ง" ของ...ปีเตอร์ ลินช์

โดย : ดร.วีรพงษ์ ชุติภัทร์

Bangkokbiznews.com

ในหนังสือ “30 วัน รวยด้วยรายได้ที่ไม่ต้องทำงาน” มีบทความหนึ่งที่ผมชอบมากก็คือ “หุ้น 10 เด้ง ของ ปีเตอร์ ลินช"

โดยลินช์เป็นผู้ที่บริหารกองทุนรวมที่ใหญ่ที่สุดกองหนึ่งของสหรัฐอเมริกาที่มีชื่อว่า ไฟเดลลิตี้ แมกเจลลัน (Fidelity Magellan) ตั้งแต่ปี 2520 จากนั้นลินช์ก็ได้สร้างความฮือฮาให้เกิดขึ้นในวงการตลาดหุ้นของสหรัฐอเมริกา ด้วยการทำให้ผลตอบแทนของกองทุนของเขาออกมาสูงถึง 28 เท่า ภายในระยะเวลา 13 ปี พูดง่ายๆ ก็คือ หากคุณผู้อ่านลงทุนกับนายลินช์ในปี 2520 เป็นเงิน 1 ล้านบาท พอถึงปี 2533 คุณผู้อ่านก็จะได้เงินสูงถึง 28 ล้านบาทโดยลินช์มีเทคนิคในการมองหา “หุ้นสิบเด้ง” ดังนี้ครับ

  1. ชื่อบริษัทฟังแล้ว...น่าเบื่อหน่าย บริษัทที่มีชื่อว่า Crown, Cork and Seal ซึ่งมีความหมายถึง จุกขวด หรือการผนึกฝาต่างๆ เป็นชื่อที่ธรรมดาๆ และน่าเบื่อหน่าย แต่ลินช์จะมองว่า...เป็นข้อดี เพราะผู้คนมักจะไม่สนใจในสิ่งที่...น่าเบื่อหน่าย

  2. ผลิตสินค้าที่...น่าเบื่อหน่าย - บริษัทที่ผลิตสินค้า...ที่น่าเบื่อหน่าย ก็จะสามารถกันคนที่ไม่เฉลียวฉลาดออกไปได้ แต่ลินช์จะชอบมากที่สุดถ้าค้นพบ...บริษัทที่มีชื่อน่าเบื่อหน่าย และยังจะผลิตสินค้าที่น่าเบื่อหน่ายออกมาอีกด้วย

  3. เป็นหุ้นของบริษัทที่ทำอะไรให้คนไม่ชอบ - บริษัทที่คนมักจะไม่ชอบได้แก่ บริษัทที่ทำอะไรเกี่ยวกับความสกปรกหรือขยะ เป็นต้น แค่เริ่มต้นทำในสิ่งที่คนไม่ชอบ...คนที่จะสนใจก็น้อยลงไปแล้ว

  4. เป็นหุ้นของบริษัทที่แตกตัวออกมา - การแตกบริษัทย่อยออกมาจากบริษัทใหญ่ที่มีชื่อเสียงแสดงว่า ผู้บริหารของบริษัทนั้นๆ จะต้องเห็นความสามารถและมีความมั่นใจในบริษัทลูก นอกจากนั้นชื่อเสียงของบริษัทแม่ยังช่วยให้บริษัทลูกมีโอกาสประสบความสำเร็จได้เร็วขึ้นอีกด้วย

  5. เป็นหุ้นที่สถาบันลงทุนไม่ชอบที่จะลงทุนด้วย - หากคุณผู้อ่านค้นพบหุ้นที่ดีตัวใดก็ตามที่สถาบันลงทุนถือไว้น้อยหรือไม่ได้ถือไว้เลย นั่นอาจแสดงว่า...โอกาสกำลังมาแล้ว เพราะคุณสามารถจะซื้อเก็บสะสมมันไว้ได้ก่อนที่...ยักษ์ใหญ่จะลงมาเล่น

  6. เป็นหุ้นที่รู้สึกว่ามีปัญหาบางอย่าง...กำลังคุกคามอยู่ - ปัญหาทางสังคมหลายๆ อย่างก็เคยกระหน่ำไปยังบริษัทดีๆ หลายต่อหลายบริษัท หากปัญหาเหล่านี้เกิดขึ้น ไม่ว่าจะเป็นปัญหาสิ่งแวดล้อม ปัญหาชุมชนประท้วง ปัญหามวลชนอื่นๆ สิ่งเหล่านี้อาจจะเป็นโอกาสอันดีที่จะได้ “หุ้นดี...ราคาต่ำ”

  7. เป็นบริษัทที่ประสบกับปัญหาขั้นร้ายแรง - ตัวอย่างที่อาจทำให้คุณผู้อ่านได้เห็นภาพง่ายๆ ขึ้นมาหน่อย เช่น การแพ้คดีความครั้งใหญ่ โรงงานระเบิด กระบวนการผลิตที่ทำให้มีผู้เสียชีวิต สิ่งเหล่านี้มีผลกับราคาหุ้นแทบจะทันที

  8. เป็นหุ้นที่อยู่ในอุตสาหกรรมที่กำลังจะแย่ - อุตสาหกรรมเหล็ก เป็นอุตสาหกรรมที่หลายคนคิดว่า เป็นอุตสาหกรรมประเภทดวงอาทิตย์ตก นั่นหมายถึงอุตสาหกรรมนี้มีอนาคตที่กำลังจะแย่ลง บริษัทเหล็กของอินเดียที่ชื่อว่า มิตทาลสตีล (Mittal Steel) เป็นบริษัทที่คอยกว้านซื้อบรรดาโรงงานเหล็กทั่วโลกในราคาถูก ทำให้ผลิตสินค้าได้ในต้นทุนที่ต่ำ จึงสามารถทำกำไรได้อย่างเป็นกอบเป็นกำ

  9. เป็นบริษัทที่มีจุดเด่น - พอจะจำกันได้ไหมครับว่า บริษัทที่ผลิตยาไวอากร้า (Viagra) ยาที่ทำให้อวัยวะสืบพันธุ์ของผู้ชายแข็งตัว และทำยอดขายถล่มทลายไปทั่วโลกจากยาตัวนี้มีชื่อว่าอะไร? ใช่แล้วครับ...บริษัทไฟเซอร์ นั่นเอง ยาไวอากร้าได้ทำให้ราคาหุ้นของบริษัทนี้พุ่งกระฉูดสูงขึ้นไปหลายเด้งทีเดียว หลังจากนั้นมา ยาไวอากร้าเพียงตัวเดียวก็ถือเป็น “รายได้ที่ไม่ต้องทำงาน” ก้อนมหึมา...ของบริษัทไฟเซอร์ไปโดยปริยาย

  10. ผู้คนต้องซื้อสินค้าของบริษัทนี้เรื่อยๆ - ลินช์จะชอบลงทุนในบริษัที่ทำใบมีดโกน น้ำอัดลม หรือบุหรี่ มากกว่าบริษัทที่ทำของเล่น เพราะผู้คนต้องซื้อมันเป็นประจำ และมีโอกาสน้อยมากที่จะเปลี่ยนแปลงไปใช้สินค้าอย่างอื่นแทน

  11. เป็นบริษัทที่ชอบใช้เทคโนโลยี - ลินช์จะไม่ชอบลงทุนในบริษัทเทคโนโลยีที่ต้องดิ้นรนเพื่อความอยู่รอดในการแข่งขันทางด้านราคาที่ไม่สิ้นสุด แต่เขาจะเลือกบริษัทที่ใช้เทคโนโลยีแทน เช่น ซูเปอร์มาร์เก็ตใช้เครื่องคิดเงินที่มีเทคโนโลยีใหม่ๆ เป็นต้น

  12. คนในบริษัทกำลังซื้อหุ้นของบริษัทตัวเองอยู่ - ไม่มีสัญญาณอะไรที่จะเด่นชัดไปกว่า คนในบริษัทพากันซื้อหุ้นของบริษัทที่ตนเองทำงานอยู่ สิ่งเหล่านี้บ่งบอกด้วยตัวมันเองอยู่แล้วว่า บริษัทของตนต้องมีผลประกอบการดีแน่ๆ

  13. บริษัทกำลังซื้อหุ้นคืนอยู่ - การซื้อหุ้นของบริษัทตัวเองคืน เป็นสิ่งที่บริษัทจดทะเบียนในเมืองไทยก็เริ่มทำกันเป็นจำนวนมากแล้ว การซื้อหุ้นคืนก็เหมือนกับ...การที่คนในบริษัทกำลังซื้อหุ้นของบริษัทตัวเองอยู่ ซึ่งแสดงถึง บริษัทต้องมีอนาคตที่ดีแน่ และหุ้น...ก็ต้องมีอนาคตที่ดีตามไปด้วย

ตำนานของปีเตอร์ ลินช์ ไม่ว่าจะเป็นการแสวงหา “หุ้น 10 เด้ง” หรือการทำให้กองทุนของเขาเติบโตขึ้นเป็น 28 เท่าภายในเวลาแค่ 13 ปี ยังเป็นตำนานที่คนรุ่นหลังยังประทับใจอยู่จนถึงปัจจุบัน เพียงแต่...จนถึงทุกวันนี้ ก็ยังไม่มีใครที่จะสามารถ...ลงทุนได้ยิ่งใหญ่...ในเวลาอันรวดเร็วได้เหมือนกับ..ปีเตอร์ ลินช์

ที่มา ผ่าน รู้ทันหุ้น

History API

โดย Little Bear on August,23 2014 14.22

เคยลองตามหาประวัติศาสตร์มาหลายรอบแล้ว ลองใช้งานดูบ้าง ก็ไม่ถูกใจ

อาจจะถึงเวลาต้องเขียนขึ้นมาใช้เอง จากบทความที่ www.siamhtml.com สรุปได้คร่าว ๆ ว่า

  1. การเรียกใช้ จะเรียกผ่านทาง object ของ javascript ที่มีชื่อว่า window.history

  2. History API มี method ให้ใช้คือ

    • Back & Forward (Method) คือ window.history.back() และ window.history.forward()
    • Go (Method) คือ window.history.go(steps)
    • Length (Property) คือ window.history.length
    • pushState (Method) เพิ่ม entry ใหม่
    • replaceState (Method) ทับของปัจจุบัน
    • state (Property) เรียกดู data ของ history ปัจจุบัน
    • popstate (Event) เป็น event ที่จะ “ทำงาน” ทุกครั้งที่ users กดปุ่ม back หรือ forward หรือเมื่อมีการสั่งให้ method back(), forward() หรือ go() ทำงาน แค่ดึงออกมา แต่ไม่ได้โหลดหน้าเว็บ

ส่วนตัวอย่างดูได้จาก History API คืออะไร? + สอนวิธีใช้ หรือ Demo | Source

10 วิธีที่ฟรีแลนซ์ก็สามารถทำเพื่อให้ผู้ร่วมงานของเราไม่มีวันลืมได้เช่นกัน

โดย Little Bear on August,20 2014 12.31

10 วิธีที่ฟรีแลนซ์ก็สามารถทำเพื่อให้ผู้ร่วมงานของเราไม่มีวันลืมได้เช่นกัน

  1. ทำให้ทุกครั้งที่เริ่มงานใหม่เป็นงานที่ยิ่งใหญ่และมีคุณค่าต่อสังคม
  2. มองงานให้เป็นสิ่งที่เรากำลังเข้าไปช่วยเพื่อให้เกิดประโยชน์สูงสุด
  3. สร้างความสัมพันธ์กับผู้ใช้ให้เหมือนกับเป็นผู้ร่วมสร้างสรรค์ผลงาน
  4. ทำงานให้เสร็จก่อนกำหนดเพื่อเตรียมความพร้อมก่อนเริ่มใช้งานจริง
  5. อย่าปิดกั้นตนเอง มองงานของคนอื่นอย่างมีคุณค่าที่สามารถนำมาร่วมกับเรา
  6. คิด ทำ วางแผนล่วงหน้า 2-3 ขั้นเสมอ
  7. กล้าเอ่ยปากหาคนช่วย และเปิดรับการขอความช่วยเหลือจากคนอื่
  8. หาเวทีโชว์ผลงานบ้าง ไม่ควรปล่อยให้ตัวเองเงียบเกินไป
  9. ริเริ่มสร้างสรรค์ผลงานของเราเองสักโปรเจกท์
  10. เตือนตัวเองให้จำไว้เสมอว่า เราทำงานเพราะอะไร และงานที่ทำสร้างประโยชน์ต่อสังคมอย่างไร

ปล. ลอกต่มาจาก Trick of the Trade ดามที่แชร์มาด้านล่างนะครับ ไม่ได้คิดเอง

โจทย์ : นำเข้าข้อมูลจาก web สู่ excel กระจายไปเก็บไว้ใน row/column ที่ต้องการ

โดย Little Bear on August,05 2014 16.36

โจทย์ : ให้นำเข้าข้อมูลสู่ไฟล์ Microsoft Excel โดยดึงมาจากเว็บไซท์ แยกข้อมูลออกมาและนำแต่ละรายการไปใส่ไว้ใน row/col ต่าง ๆ

แนวทาง :

  1. เขียน VB Script เพื่อดึงข้อมูลจากหน้าเว็บ (มีฟังก์ชั่นอยู่แล้ว)
  2. วนลูปเพื่อเขียนข้อมูลแต่ละรายการ ลงไปใน cell ที่ต้องการ

ตัวอย่าง VB Script code

Dim IE As Object
Sub Website()

    Dim Doc As Object, lastRow As Long, tblTR As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

    navigate:
    IE.navigate "http://www.spk.gov.tr/apps/MutualFundsPortfolioValues/FundsInfosFP.aspx?ctype=E&submenuheader=0"

    Do While IE.readystate <> 4: DoEvents: Loop

    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.document

    If Doc Is Nothing Then GoTo navigate

    Set txtDtBegin = Doc.getelementbyid("txtDateBegin")
    txtDtBegin.Value = Format(Sheet1.Range("B3").Value, "dd.MM.yyyy")

    Set txtDtEnd = Doc.getelementbyid("txtDateEnd")
    txtDtEnd.Value = Format(Sheet1.Range("B4").Value, "dd.MM.yyyy")

    lastRow = Sheet1.Range("B65000").End(xlUp).row
    If lastRow < 5 Then Exit Sub

    For i = 5 To lastRow
        Set company = Doc.getelementbyid("lstCompany")
        For x = 0 To company.Options.Length - 1
            If company.Options(x).Text = Sheet1.Range("B" & i) Then
            company.selectedIndex = x

            Set btnCompanyAdd = Doc.getelementbyid("btnCompanyAdd")
            btnCompanyAdd.Click
            Set btnCompanyAdd = Nothing

            wait
            Exit For
            End If
        Next
    Next

    wait

    Set btnSubmit = Doc.getelementbyid("btnSubmit")
    btnSubmit.Click

    wait

    Set tbldgFunds = Doc.getelementbyid("dgFunds")
    Set tblTR = tbldgFunds.getelementsbytagname("tr")

    Dim row As Long, col As Long
    row = 1
    col = 1

    On Error Resume Next

    For Each r In tblTR

    If row = 1 Then
        For Each cell In r.getelementsbytagname("th")
            Sheet2.Cells(row, col) = cell.innerText
            col = col + 1
            Next
            row = row + 1
            col = 1
            Else
            For Each cell In r.getelementsbytagname("td")
            Sheet2.Cells(row, col) = cell.innerText
            col = col + 1
            Next
            row = row + 1
            col = 1
            End If
        Next

    IE.Quit
    Set IE = Nothing

    MsgBox "Done"

End Sub

Sub wait()
    Application.wait Now + TimeSerial(0, 0, 10)
    Do While IE.readystate <> 4: DoEvents: Loop
End Sub

ปล. ไว้ค่อยลองแล้วได้ผลอย่างไร จะมาเขียนต่อนะครับ

ที่มา Import web data in excel using VBA

475 items|« First « Prev 3 4 (5/95) 6 7 Next » Last »|