Snasui Excel Forum

ผมมองข้ามชื่อtabไปเลย เพราะมัวเเต่กังวลเรื่องcode
ได้ความรู้ใหม่ๆจากอาจารย์อีกแล้ว
ขอบคุณครับอาจารย์

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim strShName As String, s As Object
    
    If Not Intersect(Target, Range("C5:C11")) Is Nothing Then
        ActiveCell.Copy Destination:=Sheets("report").Range("A3")
        strShName = Sheets("report").Range("a3").Value
    End If

    ActiveSheet.ChartObjects("display").Activate
    
    For Each s In ActiveChart.SeriesCollection
        s.Delete
    Next s
    With ActiveChart.SeriesCollection
        .NewSeries
        .NewSeries
        .NewSeries
    End With
    With ActiveChart
        .FullSeriesCollection(1).Name = "flow"
        .FullSeriesCollection(1).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
        .FullSeriesCollection(1).Values = "='curve" & strShName & "'!T5:XFD5"  'flow
        
        .FullSeriesCollection(2).Name = "head"
        .FullSeriesCollection(2).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
        .FullSeriesCollection(2).Values = "='curve" & strShName & "'!T6:XFD6"  'head
        
        .FullSeriesCollection(3).Name = "motor power"
        .FullSeriesCollection(3).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
        .FullSeriesCollection(3).Values = "='curve" & strShName & "'!T$7:XFD7"  'motor
    End With
End Sub

:D ปรับชื่อชีต curvep-58001A โดยลบวรรคท้ายสุดทิ้งไปครับ

จากนั้นปรับ Code ตามตัวอย่างด้านล่างครับ

[code]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strShName As String, s As Object

If Not Intersect(Target, Range("C5:C11")) Is Nothing Then
ActiveCell.Copy Destination:=Sheets("report").Range("A3")
strShName = Sheets("report").Range("a3").Value
End If

ActiveSheet.ChartObjects("display").Activate

For Each s In ActiveChart.SeriesCollection
s.Delete
Next s
With ActiveChart.SeriesCollection
.NewSeries
.NewSeries
.NewSeries
End With
With ActiveChart
.FullSeriesCollection(1).Name = "flow"
.FullSeriesCollection(1).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
.FullSeriesCollection(1).Values = "='curve" & strShName & "'!T5:XFD5" 'flow

.FullSeriesCollection(2).Name = "head"
.FullSeriesCollection(2).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
.FullSeriesCollection(2).Values = "='curve" & strShName & "'!T6:XFD6" 'head

.FullSeriesCollection(3).Name = "motor power"
.FullSeriesCollection(3).XValues = "='curve" & strShName & "'!T4:XFD4" 'date
.FullSeriesCollection(3).Values = "='curve" & strShName & "'!T$7:XFD7" 'motor
End With
End Sub
[/code]

เรียนอาจารย์และเพื่อนๆที่เคารพรัก

ผมได้เขียนcode ที่เมื่อ[b]ดับเบิลคลิก[/b]ที่ชื่ออปุกรณ์แล้ว graph ก็จะไปข้อมูลมา plot ได้เอง
การทำงานของcodeมีดังนี้
1.คลิกที่ชื่ออุปกรณ์ใน equipment column
2.กราฟก็จะไปดึงข้อมูลจากworksheetที่เก็บข้อมูลของอุปกรณ์ตัวนั้น เช่นคลิกที่ P-58001A กราฟก็จะไปดึงข้อมูลในworksheetที่ชื่อ curvep-58001A มา plot
3.กราฟจะplot 3 ความสัมพันธ์คือ 1. dateกับ flow 2.dateกับhead และ 3. dateกับ motor power

ปัญหาที่พบคือ
1.ผมเขียนให้code plot 3 ความสัมพันธ์ในกราฟเดียว แต่codeกับ plot แค่1 ความสัมพันธ์ (บางตัวก็plotครบ บางตัวก็plotไม่ครบ บางตัวไม่plotเลย)
2.เมื่อคลิกP-58001A ปรากฏว่ากราฟไม่ plot เหมือนกับว่า code มองไม่เห็นข้อมูล สังเกตได้จากวันที่ในแกนxจะขึ้นเป็น 0/1/00 ผมลองเปลี่ยนวันที่เป็นแบบdateแล้วก็ยังไม่plot
3.มีวิธีเขียน code ให้ graph เลือนขึ้นลงตามเม้ารึเปล่าครับ เพราะในอนาคตจะมีข้อมูลลงมาอีกมากครับ