Snasui Excel Forum

ขอบคุณครับ

Private Sub Chart_select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Select Case ElementID
Case xlSeries
If Arg2 > 0 Then
x = ActiveChart.SeriesCollection(Arg1).XValues
y = ActiveChart.SeriesCollection(Arg1).Values

xi = x(Arg2)
yi = y(Arg2)
With Worksheets("Sheet2 ...

ผมอยากกำหนดจุดในchart 3จุด ซึ่งค่า x,y ทั้ง3 จุดจะไปแสดงที่ sheet2 เพื่อจะเอาค่า x,y ไปคำนวณต่อ แต่เมื่อclickครบ 3ครั้งแล้ว อยากให้ครั้งที่4 ไปจุดที่จบมีMSGBOXขึ้นมาเตือนครับ

ผมลองแก้โดยการใช้จุดseriesเล้กๆแทน
แต่มีปัญหาว่าพอครบทุกจุดแล้ว แต่จุดที่2 ยังเปลี่ยนไปมาอยู่
ทำยังไงให้พอจุดครบ แล้วให้ขึ้นmsgboxแทนครับ

ขอถามเพิ่มหน่อยครับ ถ้าต้องการให้ msgbox ขึ้นในการคลิ๊กแต่ละครั้ง ซึ่งข้อความไม่เหมือนกันทุกครั้งนะครับ
เราจะเอาคำสั่งmsgbox ไปแทรกตรงไหนครับ

ขอขอบคุณมากๆครับ
ขอให้มีแต่ความสุขความเจริญนะครับ

ลองดูแล้วครับ ทำไมจุดแดงมันไม่เคลื่อนมาที mouse clickล่ะครับ และค่าx,y มันผิดนะครับ
และจะบันทึกในการคลิ้กครั้งต่อไป มันทำยังไงครับ ผมลองcopy อีกรอบแต่ไม่ได้ครับ
ขอบคุณครับ และขอโทษที่ถามเยอะครับ

ลองทำดูแล้วครับ วงกลมไม่ขยับเลย แต่เห็นค่าแกนx,yแปลงเปลี่ยนที่status barครับ แต่ค่าไม่ตรงกับแกนครับ
และถ้าอยาก ให้กดครั้งที่1 ค่าx บันทึกที่ ("sheet1").range("d1") ค่าyบันทึกที่("sheet1").range("E1")
และกดครั้งที่2 ค่าx บันทึกที่ ("sheet1").range("d2") ค่าyบันทึกที่("sheet1").range("E2")
ประมาณน ...

ขอบคุณมากครับ จะลองไปทำดูครับ

fileครับ

ผมลองใช้ codeนี้แล้วมันกำหนด เป็นค่าแกน X, Y ของmouseนะครับ ไม่ใช้ของchart
มีวิธีให้เป็นค่าของchart ไหมครับ
ขอบคุณครับ

Private Sub Chart_MouseDown(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

MsgBox "X = " & X & " Y = " & Y
ActiveWorkbook.Worksheets("Sheet2 ...

คือไม่รู้จะเริ่มยังไงเลยครับ
แค่ต้องการกำหนดจุดเองโดยใช้mouse เพราะการลากจุดในchart (excel2003) มันช้ามากถ้ามีหลายๆจุดครับ เพราะจะเอาค่าแต่ละจุดไปคำนวนต่อครับ

คือถ้าเรามีscatter chart อยู่ แล้วอยากเอา mouse ไปclick ที่ตำแหน่งในกราฟ แล้วให้ค่าแกนxและแกนyของจุดนั้น ไปใส่ในcell ที่เรากำหนดได้ไหมครับ
พยายามหาวิธีเขียนมานานแล้วแต่หาไม่ได้เลยครับ
ขอบคุณมากครับ