ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý¹Ïªí¦p¦ó¨Ì¿z¿ï±ø¥ó¨ÃÅã¥Ü³Ì·snµ§¸ê®Æ

¦^´_ 10# Andy2483


    ¶}±ÒÀɮ׫á±Nµ§¼Æ¥Ñ100§ï¦¨50®É
¿Ã¹õÂ^¨úµe­± 2022-07-15 224054.png
2022-7-15 22:42
¿Ã¹õÂ^¨úµe­± 2022-07-15 224129.png
2022-7-15 22:42


    ÀH·N§ó´«¾÷¥x¡B³W®æ¡Bµ§¼Æ®É
¿Ã¹õÂ^¨úµe­± 2022-07-15 223856.png
2022-7-15 22:43
¿Ã¹õÂ^¨úµe­± 2022-07-15 223928.png
2022-7-15 22:43

TOP

¦^´_ 11# 074063


   ²q´ú À³¸Ó¬Oª©¥»ªº°ÝÃD
©êºp°²¤éµLªk§Y®ÉÀ° ­×§ï ´ú¸Õ
¨Ì¾Ú¥H«eªº¸gÅç²q¨ì¤F°ÝÃDªº»Ý¨D
«á¾Ç©Ò¾Ç¦³­­ ¹Ïªíªº±±¨î¤]¬O¿ý»s¥X¨Óªº
½Ð¦U¦ì¦³¿³½ìªº«e½ú À°¦£
«á¾Ç¤]·Q¦A¾Ç²ß
ÁÂÁ¡I

TOP

¦^´_ 11# 074063


    Ca ,Cp ,CpkÄÝ »s³y¯à¤O/«~«O ½dÃ¥ ,«á¾Çªì¦¸±µÄ²,¤]½Ð¼Ó¥D·V­«¨DÃÒ!

¦bCpk¤½¦¡¤¤¥[¤F ABS(µ´¹ï­È)   =(1-ABS(L3))*L2
¨Ì¾ÚCpk­Èªº§t·N:
»s³y¥­§¡­È»P¤¤¤ß­Èªº°¾®tCa ¦³¥¿­È.¦³­t­È,¦ýÀ³¸Ó³£­n¥H¥¿­È±a¤JCpk
Cpk=(1-|Ca|)*Cp

ªþ¥ó½Ð°Ñ¦Ò!

D1_20220718.zip (363.67 KB)

TOP

¦^´_ 13# Andy2483


    ·PÁÂAndy2483¤j¤j¸Ñµª, ¤p§Ì§l¦¬«á¦p¦³ºÃ°Ý¦A·Ð½Ð¸Ñ´b

TOP

¦^´_ 13# Andy2483


    ½Ð±ÐAndy2483¤j¤j°ÝÃD
    1. ¦pªG±ý¬d¸ßªºµ§¼Æ[C3] > ¹ê»Ú¬d¸ßªº¸ê®Æµ§¼Æ,
       «hChart ª½±µÅã¥Ü¹ê»Ú¬d¸ßªº¸ê®Æµ§¼Æ, ¨Ã¥BC3ªº­È´À´«¦¨¹ê»Ú¬d¸ßªº¸ê®Æµ§¼Æ
    2. [C2] List²M³æ¨Ó·½¥i§_§ï¬°data!B:B, ¥B¤£­«½Æ (¥ÎVBA, ¤£¥Î»²§UÄæ)

TOP

¦^´_ 15# 074063


    ¸Õ¸Õ¬Ý!

D1_20220722.zip (414.7 KB)

TOP

¦^´_ 16# Andy2483


    Andy2483 ¤j¤j, ½Ð°Ý¤U©Ô²M³æ¥h­«½Æ«á¥i¥H±Æ§Ç¶Ü

TOP

¦^´_ 17# 074063


    ÁÂÁ«e½ú´£¥X¦UºØ»Ý¨D!«á¾ÇÂǦ¹²ß±o¦hºØ§Þ¥©!ÁÂÁÂ!
¤µ¤é²ß±o ¤å¦r¥i¥H¤ñ¤j¤p,¨ä³W«h¦p±Æ§Ç!
²M³æ¥i±Æ§Çªº¤è¦¡­×§ï¦p¤U:

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] = "¤j¦Ü¤p±Æ§Ç" 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 = "¥þ³¡¾÷¥x," & 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

«ùÄò¾Ç²ß¤¤! ½Ð¦U¦ì«e½ú¤£§[«ü¥¿! ÁÂÁÂ!

TOP

¦^´_ 18# Andy2483


    Ãö©ó¹ÏªíÃD§÷²ß±oCa,Cp,Cpk....µ¥ª¾ÃÑ
»sµ{¯à¤O¤ÀªR³øªí.png
2022-7-25 14:00


ªþ¥ó½Ð°Ñ¦Ò!
½Ð¦U¦ì«e½ú¤£§[«ü¥¿!

D1_20220725.zip (426.08 KB)

ÁÂÁ¦U¦ì«e½ú!

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-8-8 16:48 ½s¿è

1.ª©­±µy§@½Õ¾ã
2.¼W¥[ªø±ø¹Ï¤ñ¨Ò
3.¼W¥[ 6£m
4.¼W¥[¾Þ§@°µ»¡©ú¦bÀx¦s®æµù¸Ñ¤¤
Cpk=0.64»sµ{¯à¤O¤£¨¬
Cpk=0.64»sµ{¯à¤O¤£¨¬.JPG
2022-8-8 16:37


Cpk=1.38»sµ{¯à¤O¨¬°÷
Cpk=1.38»sµ{¯à¤O¨¬°÷.JPG
2022-8-8 16:39


Cpk=1.99»sµ{¯à¤O¨¬°÷
Cpk=1.99»sµ{¯à¤O¨¬°÷.JPG
2022-8-8 16:39


Cpk=3.5»sµ{¯à¤O«Ü¨¬°÷
Cpk=3.5»sµ{¯à¤O«Ü¨¬°÷.JPG
2022-8-8 16:40


³æ¦V¤½®t»sµ{¯à¤O«Ü¨¬°÷
³æ¦V¤½®t»sµ{¯à¤O«Ü¨¬°÷.JPG
2022-8-8 16:41


³æ¦V¤½®t»sµ{¯à¤O¤£¨¬_ºë«×Áö°ª¦ý·Ç«×®t
³æ¦V¤½®t»sµ{¯à¤O¤£¨¬_ºë«×Áö°ª¦ý·Ç«×®t.JPG
2022-8-8 16:41


¤£¹ïºÙ¤½®t»sµ{¯à¤O«Ü¨¬°÷
¤£¹ïºÙ¤½®t»sµ{¯à¤O«Ü¨¬°÷.JPG
2022-8-8 16:42


¤£¹ïºÙ¤½®t»sµ{¯à¤O¤£¨¬_ºë«×Áö°ª¦ý·Ç«×®t

¤£¹ïºÙ¤½®t»sµ{¯à¤O¤£¨¬_ºë«×Áö°ª¦ý·Ç«×®t

¤£¹ïºÙ¤½®t»sµ{¯à¤O¤£¨¬_ºë«×Áö°ª¦ý·Ç«×®t.JPG
2022-8-8 16:42

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD