Board logo

標題: 請問圖表如何依篩選條件並顯示最新n筆資料 [打印本頁]

作者: 074063    時間: 2022-7-12 05:25     標題: 請問圖表如何依篩選條件並顯示最新n筆資料

[attach]35029[/attach]
[attach]35030[/attach]
作者: samwang    時間: 2022-7-12 08:07

回復 1# 074063

不太懂您的需求? 請再詳細說明,謝謝
作者: 074063    時間: 2022-7-13 02:33

回復 2# samwang


    篩選 chart data : 機台=C1 , 規格=C2 , 僅顯示最後(新)筆數=C3

    假設 C1="G1", C2="5 mil", C3=5  , 則 Chart
[attach]35037[/attach]

    用 vba 也可, C1、C2會改用listbox, C3則用textbox
作者: samwang    時間: 2022-7-13 10:26

回復 3# 074063

請測試看看,謝謝
作者: 074063    時間: 2022-7-14 00:43

回復 4# samwang


    你好, C3儲存格設定要顯示的最近資料筆數, 如 篩選出的資料有 7 筆,
    C3=5的話, Chart就只要顯岀5筆最近的資料就好

    另外詢問一下, C1, C2, C3 改用ActiveX控制項變更資料時, chart不會跟著變動

[attach]35042[/attach]
作者: samwang    時間: 2022-7-14 07:29

回復 3# 074063

還是不清楚您的需求,請確認,謝謝
1.  在條件: G1、5mil,結果7 筆,何謂"僅顯示最後(新)筆數"?
2.   假設 C1="G1", C2="5 mil", C3=5 ,為何 C3 =5? 如何得知??
3.  工作表chart的C1= "G1",G2="5 mil" ,C3 = 3,為何3 ? 如何得知??
4.  在5樓回覆, C3儲存格設定要顯示的最近資料筆數, >> 什麼是顯示的最近資料筆數,??
如 篩選出的資料有 7 筆,  C3=5的話, >> 如何判定是5筆 Chart就只要顯岀5筆最近的資料就好
作者: Andy2483    時間: 2022-7-14 11:29

回復 1# 074063


    參考!
也請各位前輩指教!
作者: 074063    時間: 2022-7-14 23:55

回復 6# samwang


    samwang大大, C3為條件3, 當C3=5時, 條件1(機台)和條件2(規格)篩選出來的資料不論筆數有多少, 只取最後5筆資料
作者: 074063    時間: 2022-7-15 00:05

回復 7# Andy2483


    Andy2483 大大, 謝謝解答
   跟我預計之後要繪製的管制圖差不多, 不知大大有沒有想法
   1. out spec 的資料點是否可以突顯格式
   2. chart 更新最後一個資料點顯示資料標籤
   3. 將篩選出來的資料計算 平均、標準差、Ca、Cp、Cpk
作者: Andy2483    時間: 2022-7-15 13:15

回復 9# 074063


謝謝回復!
附件請再參考!
受益良多!
謝謝!
作者: 074063    時間: 2022-7-15 22:43

回復 10# Andy2483


    開啟檔案後將筆數由100改成50時
[attach]35050[/attach][attach]35051[/attach]

    隨意更換機台、規格、筆數時
[attach]35052[/attach][attach]35053[/attach]
作者: Andy2483    時間: 2022-7-16 13:04

回復 11# 074063


   猜測 應該是版本的問題
抱歉假日無法即時幫 修改 測試
依據以前的經驗猜到了問題的需求
後學所學有限 圖表的控制也是錄製出來的
請各位有興趣的前輩 幫忙
後學也想再學習
謝謝!
作者: Andy2483    時間: 2022-7-18 10:33

回復 11# 074063


    Ca ,Cp ,Cpk屬 製造能力/品保 範疇 ,後學初次接觸,也請樓主慎重求證!

在Cpk公式中加了 ABS(絕對值)   =(1-ABS(L3))*L2
依據Cpk值的含意:
製造平均值與中心值的偏差Ca 有正值.有負值,但應該都要以正值帶入Cpk
Cpk=(1-|Ca|)*Cp

附件請參考!
作者: 074063    時間: 2022-7-19 22:43

回復 13# Andy2483


    感謝Andy2483大大解答, 小弟吸收後如有疑問再煩請解惑
作者: 074063    時間: 2022-7-21 23:51

回復 13# Andy2483


    請教Andy2483大大問題
    1. 如果欲查詢的筆數[C3] > 實際查詢的資料筆數,
       則Chart 直接顯示實際查詢的資料筆數, 並且C3的值替換成實際查詢的資料筆數
    2. [C2] List清單來源可否改為data!B:B, 且不重複 (用VBA, 不用輔助欄)
作者: Andy2483    時間: 2022-7-22 16:40

回復 15# 074063


    試試看!
作者: 074063    時間: 2022-7-23 07:26

回復 16# Andy2483


    Andy2483 大大, 請問下拉清單去重複後可以排序嗎
作者: Andy2483    時間: 2022-7-25 13:52

回復 17# 074063


    謝謝前輩提出各種需求!後學藉此習得多種技巧!謝謝!
今日習得 文字可以比大小,其規則如排序!
清單可排序的方式修改如下:

Sub TEST_4()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableCancelKey = xlDisabled
Application.EnableEvents = False
Dim Vrr, C1V, C2V, i&, Spc1rr, Spc2rr, x&
With Sheets("data")
   Vrr = .Range(.[A2], .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row, "B"))
End With
C1V = [data!A2] & ","
C2V = [data!B2] & ","
For i = 1 To UBound(Vrr)
   If InStr(C1V, Vrr(i, 1) & ",") = 0 Then
      Spc1rr = Split(C1V, ",")
      For x = 0 To UBound(Spc1rr)
         If Vrr(i, 1) < Spc1rr(x) Then '
            Spc1rr(x) = Vrr(i, 1) & "," & Spc1rr(x)
            C1V = Join(Spc1rr, ",")
            Exit For
            ElseIf Vrr(i, 1) > Spc1rr(x) And Vrr(i, 1) < Spc1rr(x + 1) Then
               Spc1rr(x) = Spc1rr(x) & "," & Vrr(i, 1)
               C1V = Join(Spc1rr, ",")
               Exit For
            ElseIf Spc1rr(x + 1) = "" Then
               Spc1rr(x) = Vrr(i, 1)
               C1V = Join(Spc1rr, ",")
               Exit For
         End If
      Next
   End If
   If InStr(C2V, Vrr(i, 2) & ",") = 0 Then
      Spc2rr = Split(C2V, ",")
      For x = 0 To UBound(Spc2rr)
         If Vrr(i, 2) < Spc2rr(x) Then '
            Spc2rr(x) = Vrr(i, 2) & "," & Spc2rr(x)
            C2V = Join(Spc2rr, ",")
            Exit For
            ElseIf Vrr(i, 2) > Spc2rr(x) And Vrr(i, 2) < Spc2rr(x + 1) Then
               Spc2rr(x) = Spc2rr(x) & "," & Vrr(i, 2)
               C2V = Join(Spc2rr, ",")
               Exit For
            ElseIf Spc2rr(x + 1) = "" Then
               Spc2rr(x) = Vrr(i, 2)
               C2V = Join(Spc2rr, ",")
               Exit For
         End If
      Next
   End If
Next
If [list!I1] = "大至小排序" Then
   Spc1rr = Split(C1V, ",")
   C1V = ""
   For i = UBound(Spc1rr) - 1 To 0 Step -1
      C1V = C1V & "," & Spc1rr(i)
   Next
   
   Spc2rr = Split(C2V, ",")
   C2V = ""
   For i = UBound(Spc2rr) - 1 To 0 Step -1
      C2V = C2V & "," & Spc2rr(i)
   Next
End If
C1V = "全部機台," & C1V
With Sheets("chart").[C1].Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=C1V
End With
With Sheets("chart").[C2].Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=C2V
End With
Application.EnableEvents = True
Set Vrr = Nothing
Set Spc1rr = Nothing
Set Spc2rr = Nothing
End Sub

持續學習中! 請各位前輩不吝指正! 謝謝!
作者: Andy2483    時間: 2022-7-25 14:05

回復 18# Andy2483


    關於圖表題材習得Ca,Cp,Cpk....等知識
[attach]35076[/attach]

附件請參考!
請各位前輩不吝指正!

[attach]35077[/attach]

謝謝各位前輩!
作者: Andy2483    時間: 2022-8-8 16:43

本帖最後由 Andy2483 於 2022-8-8 16:48 編輯

1.版面稍作調整
2.增加長條圖比例
3.增加 6σ
4.增加操作做說明在儲存格註解中
Cpk=0.64製程能力不足
[attach]35122[/attach]

Cpk=1.38製程能力足夠
[attach]35123[/attach]

Cpk=1.99製程能力足夠
[attach]35124[/attach]

Cpk=3.5製程能力很足夠
[attach]35125[/attach]

單向公差製程能力很足夠
[attach]35126[/attach]

單向公差製程能力不足_精度雖高但準度差
[attach]35127[/attach]

不對稱公差製程能力很足夠
[attach]35128[/attach]

不對稱公差製程能力不足_精度雖高但準度差
[attach]35129[/attach]
作者: Andy2483    時間: 2022-8-9 08:53

組界數可以修改

組界數7
[attach]35131[/attach]

組界數3
[attach]35132[/attach]

[attach]35133[/attach]
作者: 0989575670    時間: 2022-8-9 09:00

謝謝分享,原來還可以這樣設計,增加見識
作者: Andy2483    時間: 2022-8-9 11:55

運用NORMDIST函數_常態分布(高斯分布)
[attach]35134[/attach]

[attach]35135[/attach]
作者: Andy2483    時間: 2022-8-19 15:12

此帖上論壇熱點讓後學忐忑不安
1.在常態分布圖的學習過程誤以為規則的平滑折線圖就是常態分布圖(高斯分布圖),
   然而常態分布圖是 組界、平均值與標準差有關以 NORMDIST 函數做平均分配的
   數列形成的曲線,雖然圖型也是用平滑折線圖! 但數列是經過平均分配的。
   終究這錯誤學習過程的原因是 不求甚解 沒有真正了解常態分布的意義!
   就矇著頭做自動化,   讓各位前輩看笑話了! 如果範例檔還有需改正的部分,
   也請各位前輩指正!
2.後學認為前段所製作的平滑折線圖雖然不是正宗的常態分布圖,但是能呈現實際的
   數據分布!也具統計參考價值!索性就把兩種表整合在同一範例檔案裡,使用者視需求選用

[attach]35165[/attach]
[attach]35166[/attach]
[attach]35167[/attach]
[attach]35168[/attach]




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)