ถาม-ตอบ วิธีใช้ EPS16YEAR , สรุปข้อมูล บมจ.

[RONNAPUM]

พี่ครรชิตครับ  ตอนนี้ของผม updaet ไม่ได้ครับ มันขึ้นว่า run-time error 1004 ทำอย่างไรครับ

[ครรชิต ไพศาล]

แล้ว

[RONNAPUM]

พี่ ครับ ที่บ้านผมใช้ high speed ของ ture move  ครับ แต่ ผมก็ไปลองที่ร้าน net ทั่วไป มันก็ขึ้น เหมือนกันครับ  .. ของใหม่ที่พี่ ส่งให้ ผมได้รับ แล้วครับ เดียวกลับไปลองที่บ้านครับ ที่ ทำงานไม่ใช้ 2007 ครับ ลองไม่ได้ครับ ..ขอบคุณพี่มากนะครับ

[chanchai_lee]

สวัสดีครับ พี่ครรชิต มีข้อสงสัยว่าเนื่องจากไฟล์ได้อับเดตเป็นรุ่น2007 แล้วแตเผอิญว่าเครื่องที่ผมใช้อยู่ยังเป็นรุ่น2003 อยู่ แล้วที่นี้ถ้าได้รับมาแล้วจะใช้งานได้ไหม แต่ทราบว่าพี่ได้บอกกล่าวให้สมาชิกอับเดตแล้ว เกรงว่าจะใช้งานไม่ได้อีก บังเอิญที่งานคอมสเปคไม่สูงเท่าไหร่ รุ่น2007 ต้องใช้สเปคเครื่องสูง แล้วยังใช้ XP อยู่เลย ต้องทำไงดีครับ ขอคำแนะนำด้วยครับ

[ครรชิต ไพศาล]

ผมเองก็ต้องซื้อ
Notebook Intel Centrino Core 2 Duo RAM 1 GB
Windows Vista
มาใช้เหมือนกัน ครับ  :D

[array]

หุ้น uec มีการแตกพาร์จาก 1 เป็น  0.25  เราต้องเข้าไปแก้ตรงไหนบ้างครับ  แล้วก็มีหุ้น mill  เข้ามาใหม่ในวันนี้ ถ้าต้องการจะเพิ่มหุ้นเข้าไปจะต้องทำไงบ้างครับผม....รบกวนพีช่วยด้วย...อยากจะทำเป็นบ้างจะได้ช่วยพี่ไปอีกแรงคับผม......

[ครรชิต ไพศาล]

เมื่อ UEC เริ่มซื้อขายที่ พาร์ 0.25 ที่ต้องเปลี่ยน
1. ข้อมูลของ UEC ในชีต ALL

[array]

ขอบพระคุณพี่มาก ๆ ครับ

[array]

เราสามารถเข้าไปแก้ไขใจแมโครได้มั๊ยเพราะว่าถ้าไปคูณทุกตัวทุกปีรู้สึกว่าจะใช้เวลามากเลยก็เลยอยากทราบว่าเข้าไปแก้ไขในแมโครได้หรือเป่า.....ขอบคุณคับ

[ครรชิต ไพศาล]

ตัวอย่างการเขียนแมโคร ในการเปลี่ยนค่าตามต้องการ

Sub z_COPY_TO_CellByCell_1()
'
'Keyboard Shortcut: Ctrl+z

' COPY_TO_CellByCell_1 Macro
' แมโครถูกบันทึก ณ วันที่ 30/12/2006 โดย Your User Name
'แมโครนี้ใช้คัดลอกข้อมูล โดยสามารถ เปลี่ยน ค่าโดยการหาร
'ถ้าข้อมูลเดิม 1500000000 บาท แต่เราต้องการ ให้แสดง เป็น หน่วย ล้านบาท
'เราก็ตั้งตัวหารให้เป็น 1000000 เราก็จะได้ 1500.00 ล้านบาท

'ถ้าข้อมูลเดิม 1500000 พันบาท แต่เราต้องการ ให้แสดง เป็น หน่วย ล้านบาท
'เราก็ตั้งตัวหารให้เป็น 1000 เราก็จะได้ 1500.00 ล้านบาท

'ถ้าตัวหารเป็น 1 หน่วยจะเท่าของเก่า

'
Application.Run "CAL_OFF"
Dim Myvar1, Myvar2
Myvar1 = Application.ActiveCell.Value / 1 'เปลี่ยนตัวหารที่ต้องการ

[gehirn]

พี่ ครรชิต ครับ ขอนอกประเด็นซักหน่อยนะครับ

ผมอยากใช้ ms access ในการกรองข้อมูลของ EPS15YEAR บ้างน่ะครับ
แต่ทำไม่เป็นครับ  :(  รบกวนพี่ช่วยสอนแนวทางการกรองข้อมูลด้วยครับ
เช่น วิธีการนำไฟล์เข้ามาคัดกรอง วิธีการตั้งเงื่อนไขข้อมูลที่จะกรอง ฯลฯ

(office 2007)

ขอบคุณครับ  :D

[ครรชิต ไพศาล]

ได้อธิบายไว้แล้วในกระทู้นี้ ค่อยๆไล่อ่านดู

[gehirn]

อ่อเจอแล้วครับ ขอบคุณมากครับพี่

(อยู่หน้าแรกเลย พระเจ้า...  มองข้ามไปได้ไง )

[coor]

ถามเกี่ยวกับการอัพเดทข้อมูลครับ
1 ต้องอัพเดทข้อมุล price chart  ทุกวัน อันนี้ผมทำได้
2 แล้วยังต้องอัพเดทอะไรอีกบ้าง แล้วทำเมือไร

เอาแค่นี้ก่อนครับ  เปิดข้อมูลมาก็งงเลย  เยอะมากแล้วไม่เคยใช้ excel มาก่อน ขอบคุณครับ

[ครรชิต ไพศาล]

ในชีต INVESTOR
update ค่า SET และ ปริมาณซื้อขายของ สถาบัน,ต่างชาติ,รายย่อย

[neo2neo]

lสวัสดีครับพี่ครรชิต

ผมขอแจ้งเรื่องข้อมูลของ metco ครับ
เนื่องจากข้อมูลส่วนของผู้ถือหุ้นของปี 07
ตัวเลขผิดครับ
ผมพยายามจะแก้ด้วยตัวเอง  แต่ยังงงอยู่
เลยอยากรบกวนพี่ช่วยแก้ไขให้ด้วยครับ

ขอบคุณครับ

[ครรชิต ไพศาล]

กดเพลินไปหน่อย  :oops:
มันเป็นรายได้เก้าเดือน ดันไปลงใน ส่วนผู้ถือ
กำไรก่อน เลยไปลงใน รายได้
กำไรสุทธิ เลยไปลงใน กำไรก่อน

เดียวค่อยส่งไปให้ใหม่

[ครรชิต ไพศาล]

[quote]เมื่อ 11/27/07, wutchawat khuruhongsa <[email protected]> เขียนว่า:

คือว่า ผมจะต้อง Up date งบดุลเองใช่ไหมครับ คือไปคัดลอกข้อมูลมาวางใช่ไหมครับ
แล้ว file update balance ผมจะ import ยังไงครับ

Short Cut

[ohmykung]

ขอแจ้งพี่ครรชิตนิดนึงครับ
คือในชีท PRICE&PE ตรง Column กำไร 07-98
ผมว่าข้อมูลมันเหลื่อมปีกันอยู่นะครับผม

[ครรชิต ไพศาล]

ไปดูแล้วครับ ผมเลื่อนข้อมูลในชีต ALL เพื่อเพิ่มปี08
แต่ ไม่ได้มาตรวจดูที่ชีตPRICE&PE

วิธีแก้
ให้เปลี่ยนหัว กำไร07 เป็น กำไร08 ,กำไร06 เป็น กำไร07
กำไร05 เป็น กำไร06

แล้วแทรกคอลัมพ์เพิ่มหน้ากำไร04
เขียนหัวเป็น กำไร05 คัดลอกสูตร =VLOOKUP($A380,ALL,77) ลงไปแปะในตลอดคอลัมพ์นั้น

กำไร04 ถึง กำไร98 ถูกต้องอยู่แล้วไม่ต้องแก้ไข

[neungmd]

ได้ file share table มาแล้วครับ ขอบคุณมากแต่มีปัญหาว่าราคาของ ums ตัวลูกไม่มีครับ มันป็นราคาของตัวแม่แทนครับ ต้องแก้ไขอย่างไรบ้าง หรือจะส่ง file แก้ไขมาก็ได้ครับ:roll:  ขอบคุณครับ [email protected]

[ครรชิต ไพศาล]

ส่งไปให้แล้ว
EPS15YEAR_W_ ShareTable.xlsm

ถ้าจะเพิ่ม W ใน MAI ให้คัดลอก แถวของ UMS-W1 ลงไปแปะในแถวใหม่

ถ้าจะเพิ่ม W ใน SET ให้คัดลอก แถวของ CCET-W1 ลงไปแปะในแถวใหม่

[neungmd]

ขอบคุณมากครับ ได้รับแล้วครับ

[msn_jom]

ใน ไฟล์ EPS15YEAR.XLSM (EXCEL 2007)  ดึงข้อมูล มาจากเวปไซด์  http://www.mai.or.th/แล้วมาอัพเดท ใน EXcel    อยากทราบว่าทำยังไง ใช้วิธีไหน  ในการดึงข้อมูลมาอับเดท

เซทค่าในEXcel  อย่างไร  หรือใช้คำสั่งอะไร ให้ Excel link กับเวปไซด์

[ครรชิต ไพศาล]

ใช้คำสั่งในเมนูบาร์  <DATA> <From web>
แล้วมันก็จะขึ้น popup menu มาให้คุณ ทำการค้นหาเวบและเลือกช่วงข้อมูลที่คุณต้องการ ลิงค์มาลงใน Excel ของเรา

เมื่อเราลงไว้ที่ตำแหน่งไหนแล้ว
อย่างเช่นใน EPS15YEAR อยู่ที่ ชีต SET-TODAY A1 และ P1


คราวหลังเมื่อเราต้องการอับเดท
เราก็เขียนคำสั่งแมโครให้ไปที่ตำแหน่งนั้นแล้วใช้คำสั่ง Refresh
ข้อมูลมันก็จะอับเดท

แล้วก็เขียนแมโครให้มันจัดการข้อมูลและจัดเรียงให้เรา
(ไปค่อยๆศึกษาดูเอาในคำสั่งแมโคร ที่อยู่ใน EPS15YEAR )

[big15096]

[quote="ครรชิต ไพศาล"]ใช้คำสั่งในเมนูบาร์

[sakonr]

พี่ครรชิตครับเวลาผมอัพเดทตัว EPS15YEAR  แล้วมันขึ้น
Run-time error 1004
Reference is not valid

ทั้งๆที่ net ผมก็เป็น high speed
ต้องแก้ code อะไรด้วยรึเปล่าครับ

[shinnozuke]

[quote="farmer"]พี่ครรชิตครับเวลาผมอัพเดทตัว EPS15YEAR

[nicha2007]

รบกวนถามพี่ครรชิตครับ มีปัญหาการใช้ไฟล์ EPS15Year คือว่าผมเปิดไฟล์จาก office 2007 และเซฟเป็น 2003 แต่มีปัญหาเวลาคลิ๊กปุ่ม 1 excel ขึ้นว่า debug และผมเข้าไปดูที่โมดูล Sub MOVEDATA1() มีไฮไลต์สีเหลืองที่บรรทัด
Application.Goto Reference:="DATA_BY_DAYS"
 ส่วนการคลิ๊กที่ปุ่ม 2 ราคาก็อัพเดทได้แต่ก็มี debug ขึ้นมาที่โมดูล Sub MyScale_1() และมีไฮไลต์สีเหลืองที่
.MinimumScale = MyMin1

ไม่ทราบพอจะแก้ debug ได้ไหมครับ

Sub MOVEDATA1()
' MOVEDATA1 Macro
' &aacute;&Aacute;&acirc;&curren;&Atilde;&Ugrave;&iexcl;&ordm;&Ntilde;&sup1;&Ouml;&iexcl; &sup3; &Ccedil;&Ntilde;&sup1;&Otilde;&egrave; 7/11/2006 &acirc;&acute;&Acirc; Your User Name
   Application.Goto Reference:="DATA_BY_DAYS"
   Selection.Copy
   Range("LAST1_DATA_BY_DAYS").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
Application.Goto Reference:="NAME_OF_STOCK"
End Sub



Sub MyScale_1()
' MyScale_1 Macro
' &aacute;&Aacute;&acirc;&curren;&Atilde;&Ugrave;&iexcl;&ordm;&Ntilde;&sup1;&Ouml;&iexcl; &sup3; &Ccedil;&Ntilde;&sup1;&Otilde;&egrave; 8/2/2007 &acirc;&acute;&Acirc; Your User Name

   Sheets("PRICE CHART").Select
Dim MyMax1, MyMax2, MyMax3, MyMin1, MyMin2, MyMin3

Range("Q3").Select
MyMax1 = Application.ActiveCell
Range("Q4").Select
MyMax2 = Application.ActiveCell
Range("Q5").Select
MyMax3 = Application.ActiveCell

Range("S3").Select
MyMin1 = Application.ActiveCell
Range("S4").Select
MyMin2 = Application.ActiveCell
Range("S5").Select
MyMin3 = Application.ActiveCell

   ActiveSheet.ChartObjects("Chart 2").Activate
   ActiveChart.Axes(xlValue).Select
   With ActiveChart.Axes(xlValue)
  .MinimumScale = MyMin1        
.MaximumScale = MyMax1
       .MinorUnitIsAuto = True
       .MajorUnitIsAuto = True
       .Crosses = xlAutomatic
       .ReversePlotOrder = False
       .ScaleType = xlLinear
       .DisplayUnit = xlNone
   End With
       ActiveSheet.ChartObjects("Chart 36").Activate
   ActiveChart.Axes(xlValue).Select
   With ActiveChart.Axes(xlValue)
       .MinimumScale = MyMin2
       .MaximumScale = MyMax2
       .MinorUnitIsAuto = True
       .MajorUnitIsAuto = True
       .Crosses = xlAutomatic
       .ReversePlotOrder = False
       .ScaleType = xlLinear
       .DisplayUnit = xlNone
   End With
           ActiveSheet.ChartObjects("Chart 40").Activate
   ActiveChart.Axes(xlValue).Select
   With ActiveChart.Axes(xlValue)
       .MinimumScale = MyMin3
       .MaximumScale = MyMax3
       .MinorUnitIsAuto = True
       .MajorUnitIsAuto = True
       .Crosses = xlAutomatic
       .ReversePlotOrder = False
       .ScaleType = xlLinear
       .DisplayUnit = xlNone
   End With

   Range("A1").Select
   Application.Goto Reference:="NAME_OF_STOCK"
   End Sub

[ครรชิต ไพศาล]

เนื่องจาก excel 2003 มีจำนวน Column น้อยเพียง 200 กว่าcolumn
แต่ excel 2007 มี หลายหมื่น column

ดังผมได้อธิบายไว้หลายครั้งแล้ว

ข้อมูลราคาหุ้นที่เก็บใน