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

[µo°Ý] ¦p¦ó¸ü¤J¤@ÀɮרçPÂ_¯S©wÄæ¦ì°µ¹Bºâ«á²£¥Í¤@·sÀÉ®×(¤º§tÂÂÀÉ»P¹Bºâ«á¤§µ²ªG)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-22 15:48 ½s¿è

¦^´_ 10# happycoccolin
¿ù»~½Ð°Ñ¦Ò http://forum.twbts.com/viewthread.php?tid=6733
  1.   '**********************************************************
  2.     '1.§Ú¥Ø«e¬O·Q°µ¦¨§Ú¥i¥H°õ¦æ¦¹µ{¦¡«á¸õ¥X¤@­Óµøµ¡->Åý§Ú¬D¿ï­n¸ü¤JªºÀÉ®×->¸ü¤J«á°õ¦æ¹Bºâ->¸õ¥Xµøµ¡Åý§Ú¥i¥t¦s·sÀÉ~
  3.    If MsgBox("½Ð°Ý¬O§_­nÀx¦sÀÉ®×?", vbYesNo) = vbYes Then
  4.         fileout = Application.GetSaveAsFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="¥t¦s¬°·sÀÉ")
  5.         If Not TypeName(fileout) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
  6.         SH.Copy
  7.         With ActiveWorkbook
  8.             .SaveAs fileout ', FileFormat:=xlWorkbookDefault
  9.             .Close True
  10.         End With
  11.       
  12.     End If

  13.     '******************************
  14.     '1¤£­n±Nµ²ªGÅã¥Ü¦b­ìÀÉ®×
  15.     SH.Parent.Close False
  16.   
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE


    Hi ª©¤j~

¹ï¤£°_¤p©f¤£¤~
²{¦b¤w¸g¶Ã±¼¤F..½Ðª©¤jÀ°¦£«ü¥¿¦n¶Ü~

¦pªþÀÉ

TEST_20141222-1.zip (22.01 KB)

TOP

¦^´_ 11# GBKEE


    ·PÁª©¤j!!

§Ú¥ß¨è¨Ó¸Õ¸Õ~~~


«D±`·P¿E!!!

TOP

¦^´_ 11# GBKEE


    ª©¤j~­è­èµo²{¨âÂI­n¼W¥[ªº~~~^^

1.
"C" ¶µ¥Ø¹Bºâ³¡¤À
¦bMÄæ¦ì·|¥X²{KVªº³æ¦ì,»Ý­n*1000

'IF(O1="C",IF(¡yÂ^¨úM1Äæ"/"«á¦r¤¸¡z*0.6>Q1,PASS,FAIL))

·N§Y"/"«á¦r¤¸­Y¬O±aKV,»Ý­n*1000

EX. ­YMÄæ­È¬°1000PF/2KV->´£¨ú¥X2KV=2*1000
¤½¦¡¬°
'IF(O1="C",IF(2*1000*0.6>Q1,PASS,FAIL))

2."R"¶µ¥Ø¹Bºâ³¡¤À
'M1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
¦ý¬O­Y¬O2.64ohm §Y¥iª½±µ¹Bºâ,·|Åܦ¨
'IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1^2/2.64-2.64*N1<0.0625*0.6,PASS,FAIL)))

½Ð°Ý¥¼±a"K" &"M"ªº¥Ø«e¦³°µ¹Bºâ¶Ü?

Áٽм·¤¾À°¦£¬Ý¬Ý~ÁÂÁª©¤jªºÀ°¦£~~^^

TOP

¦^´_ 11# GBKEE


    Hi ª©¤j~

½Ð°Ý¤@¤Uª©¤j~~§ÚÁÙ¦³¨âÂI»Ý­n¼W¥[~¦ý¬O¤p©f·Q¤F¨â¤ÑÁÙ¬O¥Î¤£¥Xµ²ªG,¥i¥HÀ°¦£¬Ý¬Ý¶Ü~ÁÂÁÂ~
½Ð¬Ý¤W«h¯d¨¥14#

TOP

¦^´_ 15# happycoccolin
¼g¤£¥Xµ²ªG¨SÃö«Y,PO¤W©p©Ò¼gªº,¬Ý¬Ý¦p¦ó§ï.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


    ª©¤j~~

§Ú¥[¤W³o¬q~¦ý¬O°£¤F"R" "BEAD"¥H¥~ªºªF¦è³£·|®ø¥¢¤£¨£ TEST_20141225.zip (18.9 KB)

------------------------------------------------------------------
                If Msg = "KV" Then
                    '¦bMÄæ¦ì·|¥X²{KVªº³æ¦ì,»Ý­n*1000
                      M = Val(Cells(i, "M")) * 1000       'KV
                Msg = Val(Split(Cells(i, "M"), "/")(1)) * 0.6 > Cells(i, "Q")
------------------------------------------------------------------
"C" ¶µ¥Ø¹Bºâ³¡¤À
¦bMÄæ¦ì·|¥X²{KVªº³æ¦ì,»Ý­n*1000

'IF(O1="C",IF(¡yÂ^¨úM1Äæ"/"«á¦r¤¸¡z*0.6>Q1,PASS,FAIL))

·N§Y"/"«á¦r¤¸­Y¬O±aKV,»Ý­n*1000

EX. ­YMÄæ­È¬°1000PF/2KV->´£¨ú¥X2KV=2*1000
¤½¦¡¬°
'IF(O1="C",IF(2*1000*0.6>Q1,PASS,FAIL))

¥H¤W¬O»Ý¨D
-------------------------------------------------------------
µM«áµo²{¦³¤@­Ó¯S®íª¬ªp

"R"§PÂ_ ¦h¥X²{¤F¤@­Ómx_c0603_hxx

³o¬q§Ú¤£·|¼g..ÁٽЪ©¤j¼·ªÅ±Ð¾Ç~~~«ô°U~~

    Case "R"
                Msg = Split(Cells(i, "P"), "_")   'Msg = PÄ椤¥Î "_" ¦r¦ê¤À³Î¶Ç¦^ªº°}¦C
                If UBound(Msg) = 0 Then           '°}¦C¤¸¯À¥u¦³¤@­Ó,PÄ椤¨S¦³"_"ªº¦r¤¸
                    Msg = Split(Cells(i, "P"), "_")(0)
                ElseIf UBound(Msg) > 0 Then        'PÄ椤¦³"_"ªº¦r¤¸
                    Msg = Split(Cells(i, "P"), "_")(1)
                    If Mid(UCase(Msg), 1, 1) = "H" Then
                      '"r0603_hxx"(xx¬OÅܼÆ) : r+«á¥|½X¦r¦ê_hxx
                        Msg = Split(Cells(i, "P"), "_")(0)
                    End If

TOP

¦^´_ 17# happycoccolin
½Ð­×§ï ¬Ý¬Ý
  1. Case "C"
  2.                 'IF(O1="C",IF(¡yÂ^¨úM1Äæ"/"«á¦r¤¸¡z*0.6>Q1,PASS,FAIL))
  3.                 If Right(Cells(i, "M"), 2) = "KV" Then Msg = True
  4.                     '¦bMÄæ¦ì·|¥X²{KVªº³æ¦ì,»Ý­n*1000
  5.                 Msg = Val(Split(Cells(i, "M"), "/")(1)) * IIf(Msg = True, 1000, 1) * 0.6 > Cells(i, "Q")
  6.             Case "R"
  7.                 Msg = Split(Cells(i, "P"), "_")   'Msg = PÄ椤¥Î "_" ¦r¦ê¤À³Î¶Ç¦^ªº°}¦C
  8.                 If UBound(Msg) = 0 Then           '°}¦C¤¸¯À¥u¦³¤@­Ó,PÄ椤¨S¦³"_"ªº¦r¤¸
  9.                     Msg = Split(Cells(i, "P"), "_")(0)
  10.                 ElseIf UBound(Msg) > 0 Then        'PÄ椤¦³"_"ªº¦r¤¸
  11.                     Msg = Split(Cells(i, "P"), "_")(UBound(Split(Cells(i, "P"), "_")))
  12.                     If Mid(UCase(Msg), 1, 1) = "H" Then
  13.                       '"r0603_hxx"(xx¬OÅܼÆ) : r+«á¥|½X¦r¦ê_hxx
  14.                         Msg = Split(Cells(i, "P"), "_")(UBound(Split(Cells(i, "P"), "_")) - 1)
  15.                     Else
  16.                         Msg = Split(Cells(i, "P"), "_")(UBound(Split(Cells(i, "P"), "_")))
  17.                     End If
  18.                 End If
  19.                 W = 0
  20.                 Select Case Right(Trim(Msg), 4)  ' PÄæ«á4½X¦r¦ê
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE


    ÁÂÁª©¤j!!!

¥ß°¨´ú¸Õ¤¤~

TOP

¥»©«³Ì«á¥Ñ happycoccolin ©ó 2015-1-20 17:06 ½s¿è

¦^´_ 18# GBKEE


    ª©¤j~½Ð°Ý¤@¤U¥Ø«e§Úrun¹L,µo²{0hm³¡¤À³£·|Åã¥ÜFAIL,¦ý¬O§Ú­Ì¸Ì­±¤w¸g¦³¼g¨ì¦¹¬q¤F,½Ð°ÝÀ³¦p¦ó­×§ï©O?ÁÂÁÂ~

¡y0ohm¡z¡GohmÃþªº¦r¤¸«e­±¥i¯à±aªÅ®æ,³¡¤À¥¼±aªÅ®æ

IF(O1="R",IF(OR((M1="0ohm"),(M1="0 ohm")),IF(Q1¥­¤è*N1< W°Ñ¾\¶µ¥Ø2*0.6,PASS,FAIL)))
¨Ò¦p:W»Ý­n§PÂ_P1¥u­n¦³¥X²{0402¦r¤¸´N= 0.0625 ³Ì¤U­±¦³¤@¹ïÀ³ªí®æ
IF(O1="R",IF(OR((M1="0ohm"),(M1="0 ohm")),IF(Q1¥­¤è*N1<0.0625*0.6,PASS,FAIL)))

Case "R"
                Msg = Split(Cells(i, "P"), "_")   'Msg = PÄ椤¥Î "_" ¦r¦ê¤À³Î¶Ç¦^ªº°}¦C
                If UBound(Msg) = 0 Then           '°}¦C¤¸¯À¥u¦³¤@­Ó,PÄ椤¨S¦³"_"ªº¦r¤¸
                    Msg = Split(Cells(i, "P"), "_")(0)
                ElseIf UBound(Msg) > 0 Then        'PÄ椤¦³"_"ªº¦r¤¸
                    Msg = Split(Cells(i, "P"), "_")(1)
                    If Mid(UCase(Msg), 1, 1) = "H" Then
                      '"r0603_hxx"(xx¬OÅܼÆ) : r+«á¥|½X¦r¦ê_hxx
                        Msg = Split(Cells(i, "P"), "_")(0)
                    End If
                End If
                W = 0
                Select Case Right(Trim(Msg), 4)  ' PÄæ«á4½X¦r¦ê
                    Case "0402"           '¹s¥ó¤j¤p
                        W = 0.0625        '¥\²v(W)
                    Case "0603"
                        W = 0.1
                    Case "0805"
                        W = 0.125
                    Case "1206"
                        W = 0.25
                    Case "1210"
                        W = 0.3333
                    Case "1812"
                        W = 0.5
                    Case "2010"
                        W = 0.75
                    Case "2512"
                        W = 1
                End Select
                '**********************************************************************
                '4.¥H¤U³o¬q,­Y¬OKohm & Mohm¤¤¶¡±a¤@­ÓªÅ®æ(K ohm & M ohm),¤@¼Ë¥i¥H§PÂ_¥X¨Ó¶Ü?
                '**************************************************************************
                Msg = UCase(Right(Trim(Cells(i, "M")), 5))
               
                If Msg = "K OHM" Or Msg = "M OHM" Then   'Ū¨ú5­Ó¦r¤¸,¨ú±o¼Ú©i³æ¦ì
                    'M1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
                    '¨Ò¦p:M1=2.64Kohm=2.64*1000=2640
                     M = Val(Cells(i, "M")) * 10000        'Kohm
                    If Msg = "M OHM" Then M = Val(Cells(i, "M")) * 1000000
                    'IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/2640-2640*N1<0.0625*0.6,PASS,FAIL)))
                    Msg = Cells(i, "Q") ^ 2 / M - M * Cells(i, "N") < W * 0.6
                End If
               
                If Not IsNumeric(Msg) Then                      '5­Ó¦r¤¸,«D¼Ú©i³æ¦ì
                    Msg = UCase(Right(Trim(Cells(i, "M")), 4))  'Ū¨ú4­Ó¦r¤¸,¨ú±o¼Ú©i³æ¦ì
                    If Msg = "0OHM" Or Msg = " OHM" Then  '¡y«D0 ohm¡z¡GohmÃþªº¦r¤¸«e­±¥i¯à±aªÅ®æ,³¡¤À¥¼±aªÅ®æ
                        'IF(O1="R",IF(OR((M1="0ohm"),(M1="0 ohm")),IF(Q1¥­¤è*N1< W°Ñ¾\¶µ¥Ø2*0.6,PASS,FAIL)))
                        M = Val(Cells(i, "M"))
                        Msg = Cells(i, "Q") ^ 2 * Cells(i, "N") < W * 0.6
                    ElseIf Msg = "KOHM" Or Msg = "MOHM" Then
                        'M1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
                        '¨Ò¦p:M1=2.64Kohm=2.64*1000=2640
                        M = Val(Cells(i, "M")) * 10000        'Kohm
                        If Msg = "MOHM" Then M = Val(Cells(i, "M")) * 1000000
                        'IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/2640-2640*N1<0.0625*0.6,PASS,FAIL)))
                        Msg = Cells(i, "Q") ^ 2 / M - M * Cells(i, "N") < W * 0.6
                    End If
                End If
                If Not IsNumeric(Msg) Then                  '4­Ó¦r¤¸,«D¼Ú©i³æ¦ì
                    Msg = UCase(Right(Trim(Cells(i, "M")), 3))  '³Ñ¤U3­Ó¦r¤¸,³Ì¤pªº¼Ú©i³æ¦ì
                    M = Val(Cells(i, "M"))
                    Msg = Cells(i, "Q") ^ 2 * Cells(i, "N") < W * 0.6
               
                End If

³o¬O°õ¦æ¥X¨Óªºµ²ªG
½Æ¥» 1222_test_bom1.zip (55.63 KB)
»yªk
TEST20150120.zip (17.02 KB)

¦A«ô°Uª©¤j«ü¾É,ÁÂÁÂ~~~«ô°U~~

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD