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

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

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

¤j®a¦n~~
³Ìªñ¦³­Ó°ÝÃD·Q½Ð±Ð¤@¤U
¥Ø«e¤w¸g¼g¦n¨ç¼Æ,¦ý¦]¬°»Ý­n¤H¤u³B²z¥BÀɮײ³¦h,·Q­n±N¤§Âনµ{¦¡°õ¦æ,·Q«ô°U¤j¤j­Ì¨ó§U~~

¦p¤U

¤½¦¡

¡yC¡z¡G

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

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

IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/M1-M1*N1<W°Ñ¾\¶µ¥Ø2*0.6,PASS,FAIL)))
¨Ò¦p: W»Ý­n§PÂ_P1¥u­n¦³¥X²{0402¦r¤¸´N= 0.0625³Ì¤U­±¦³¤@¹ïÀ³ªí®æ
¥BM1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
¨Ò¦p:M1=2.64Kohm=2.64*1000=2640
IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/2640-2640*N1<0.0625*0.6,PASS,FAIL)))

¡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)))

¡yBead¡z¡G

IF(O1="Bead",IF(Q1¥­¤è<¡y§PÂ_F1Ä桨/¡¨«á¦r¤¸,­Y¥X²{mA¦r¤¸,¨ä­È­n¡Ò1000¤Ï¤§«h§_¡z¥­¤è*0.6,PASS,FAIL)))
¨Ò¦p:F1­È=FERRITE BEAD(0402)600OHM/300mA,«h°õ¦æ¡¨/¡¨«á¦r¤¸=300mA=300/1000
IF(O1="Bead",IF(Q1¥­¤è<0.3¥­¤è*0.6,PASS,FAIL)))

¶µ¥Ø»¡©ú
1.²Õ­È´«ºâ(¥H¼Ú©i­È­pºâohm¡B­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
2.W(¥Ë¯S¼Æ)¡G¦³¤@¹ïÀ³ªí®æ¨£¦¹¤å³Ì¤U¤è,»Ý»P¡uPCB Footprint¡vÄæ¦ì¹ïÀ³¨Ã°µ§PÂ_


¹s¥ó¤j¤p»P¥\²v¹ïÀ³ªí¡G
¹s¥ó¤j¤p        ¥\²v(W)
0402        0.0625
0603        0.1
0805        0.125
1206        0.25
1210        0.3333
1812        0.5
2010        0.75
2512        1

¥Ø«e§Æ±æ¯à°÷«Ø¥ß¤@­ÓÀÉ®×,µM«á§Ú¥i¥H¸ü¤J¤@­Óªí®æ,¸g¹L¹Bºâ«á²£¥Í¤@­Ó·sÀɮר÷|¸õ¥Xµøµ¡¸ß°Ý­n¤£­nÀx¦s¤@­Ó·sÀÉ

±N¹Bºâ«áªºµ²ªGPASS or FAIL Åã¥Ü¦bªí®æ³Ì«á¤@Äæ(ªíÀY¬°PASS/FAIL)

PASSÅã¥Üºñ©³¶Â¦r FAILÅã¥Ü¬õ©³¥Õ¦r ­Y¨âªÌ¬Ò«D(ªí¥Ü«e­±§PÂ_OÄæ¦ì§Y«D§Ú­Ì¤W­zªºÃöÁä¦r)½ÐÅã¥ÜªÅ¥Õ§Y¥i


ªþÀɬ°»Ý­n¹Bºâ¤ñ¹ïªºÀÉ®×,ÁٽЦU¦ì¤j¤j¤û¤M¤p¸Õ¤@¤U,«ô°U«ô°U~~ÁÂÁ¤j®a~

MATERIALS.zip (60.03 KB)

¤£ª¾¹D¦³¨S¦³¤j¤jÄ@·N¼·®É¶¡¬Ý¬Ý©O?

¤p©f¹ï¤WVBA¸£µ¬´NÂण¹L¨Ó¤F,ÁٽЦU¦ì¤j¤j¸Ñ±Ï

­Y¦³¸ÑÄÀ¤£²Mªº¦a¤è¤]½Ð¤£§[´£¥X°ÝÃD~

ÁÂÁÂ~~

TOP

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

¦^´_ 2# happycoccolin
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR, Sh As Worksheet
  4.     Dim i As Long, Msg As Variant, W As Single, M As Single, s As String, filein As String, fileout As String
  5.      filein = Application.GetOpenFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="½Ð¿ï¾Ü­n¤ñ¹ïªºÀÉ®×")
  6.      If Not TypeName(filein) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
  7.      With Workbooks.Open(filein)
  8.         Set Sh = .Sheets(1)
  9.         AR = Sh.UsedRange.Columns("S")
  10.      End With
  11.     AR(1, 1) = "PASS/FAIL"
  12.     For i = 2 To UBound(AR)
  13.         Msg = ""
  14.         Select Case Cells(i, "O")
  15.             
  16.             Case ""
  17.                 '**********************************************************************
  18.                 '2.­Y¬OOÄæ(Implementation)¬°ªÅ,½Ð¦bSÄæ¦ì(µ²ªGÄæ¦ì)Åã¥Ü"µL¤u§@¹qÀ£/¹q¬y"
  19.                 Msg = "µL¤u§@¹qÀ£/¹q¬y"
  20.             Case "C"
  21.                 'IF(O1="C",IF(¡yÂ^¨úM1Äæ"/"«á¦r¤¸¡z*0.6>Q1,PASS,FAIL))
  22.                 Msg = Val(Split(Cells(i, "M"), "/")(1)) * 0.6 > Cells(i, "Q")
  23.             Case "R"
  24.                 Msg = Split(Cells(i, "P"), "_")   'Msg = PÄ椤¥Î "_" ¦r¦ê¤À³Î¶Ç¦^ªº°}¦C
  25.                 If UBound(Msg) = 0 Then           '°}¦C¤¸¯À¥u¦³¤@­Ó,PÄ椤¨S¦³"_"ªº¦r¤¸
  26.                     Msg = Split(Cells(i, "P"), "_")(0)
  27.                 ElseIf UBound(Msg) > 0 Then        'PÄ椤¦³"_"ªº¦r¤¸
  28.                     Msg = Split(Cells(i, "P"), "_")(1)
  29.                     If Mid(UCase(Msg), 1, 1) = "H" Then
  30.                       '"r0603_hxx"(xx¬OÅܼÆ) : r+«á¥|½X¦r¦ê_hxx
  31.                         Msg = Split(Cells(i, "P"), "_")(0)
  32.                     End If
  33.                 End If
  34.                 W = 0
  35.                 Select Case Right(Trim(Msg), 4)  ' PÄæ«á4½X¦r¦ê
  36.                     Case "0402"           '¹s¥ó¤j¤p
  37.                         W = 0.0625        '¥\²v(W)
  38.                     Case "0603"
  39.                         W = 0.1
  40.                     Case "0805"
  41.                         W = 0.125
  42.                     Case "1206"
  43.                         W = 0.25
  44.                     Case "1210"
  45.                         W = 0.3333
  46.                     Case "1812"
  47.                         W = 0.5
  48.                     Case "2010"
  49.                         W = 0.75
  50.                     Case "2512"
  51.                         W = 1
  52.                 End Select
  53.                 '**********************************************************************
  54.                 '4.¥H¤U³o¬q,­Y¬OKohm & Mohm¤¤¶¡±a¤@­ÓªÅ®æ(K ohm & M ohm),¤@¼Ë¥i¥H§PÂ_¥X¨Ó¶Ü?
  55.                 '**************************************************************************
  56.                 Msg = UCase(Right(Trim(Cells(i, "M")), 5))
  57.                
  58.                 If Msg = "K OHM" Or Msg = "M OHM" Then   'Ū¨ú5­Ó¦r¤¸,¨ú±o¼Ú©i³æ¦ì
  59.                     'M1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
  60.                     '¨Ò¦p:M1=2.64Kohm=2.64*1000=2640
  61.                      M = Val(Cells(i, "M")) * 10000        'Kohm
  62.                     If Msg = "M OHM" Then M = Val(Cells(i, "M")) * 1000000
  63.                     'IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/2640-2640*N1<0.0625*0.6,PASS,FAIL)))
  64.                     Msg = Cells(i, "Q") ^ 2 / M - M * Cells(i, "N") < W * 0.6
  65.                 End If
  66.                
  67.                 If Not IsNumeric(Msg) Then                      '5­Ó¦r¤¸,«D¼Ú©i³æ¦ì
  68.                     Msg = UCase(Right(Trim(Cells(i, "M")), 4))  'Ū¨ú4­Ó¦r¤¸,¨ú±o¼Ú©i³æ¦ì
  69.                     If Msg = "0OHM" Or Msg = " OHM" Then  '¡y«D0 ohm¡z¡GohmÃþªº¦r¤¸«e­±¥i¯à±aªÅ®æ,³¡¤À¥¼±aªÅ®æ
  70.                         'IF(O1="R",IF(OR((M1="0ohm"),(M1="0 ohm")),IF(Q1¥­¤è*N1< W°Ñ¾\¶µ¥Ø2*0.6,PASS,FAIL)))
  71.                         M = Val(Cells(i, "M"))
  72.                         Msg = Cells(i, "Q") ^ 2 * Cells(i, "N") < W * 0.6
  73.                     ElseIf Msg = "KOHM" Or Msg = "MOHM" Then
  74.                         'M1»Ý§PÂ_­È:¥H¼Ú©i­È­pºâ.­Y¬°Kohm¡G¨ä­È¡Ñ1000¡B­Y¬°Mohm¡G¨ä­È¡Ñ1000000)
  75.                         '¨Ò¦p:M1=2.64Kohm=2.64*1000=2640
  76.                         M = Val(Cells(i, "M")) * 10000        'Kohm
  77.                         If Msg = "MOHM" Then M = Val(Cells(i, "M")) * 1000000
  78.                         'IF(O1="R",IF(OR((M1<>"0ohm"),(M1<>"0 ohm")),IF(Q1¥­¤è/2640-2640*N1<0.0625*0.6,PASS,FAIL)))
  79.                         Msg = Cells(i, "Q") ^ 2 / M - M * Cells(i, "N") < W * 0.6
  80.                     End If
  81.                 End If
  82.                 If Not IsNumeric(Msg) Then                  '4­Ó¦r¤¸,«D¼Ú©i³æ¦ì
  83.                     Msg = UCase(Right(Trim(Cells(i, "M")), 3))  '³Ñ¤U3­Ó¦r¤¸,³Ì¤pªº¼Ú©i³æ¦ì
  84.                     M = Val(Cells(i, "M"))
  85.                     Msg = Cells(i, "Q") ^ 2 * Cells(i, "N") < W * 0.6
  86.                
  87.                 End If
  88.             Case "BEAD"
  89.                 'IF(O1="Bead",IF(Q1¥­¤è<¡y§PÂ_F1Ä桨/¡¨«á¦r¤¸,­Y¥X²{mA¦r¤¸,¨ä­È­n¡Ò1000¤Ï¤§«h§_¡z¥­¤è*0.6,PASS,FAIL)))
  90.                 '¨Ò¦p:F1­È=FERRITE BEAD(0402)600OHM/300mA,«h°õ¦æ¡¨/¡¨«á¦r¤¸=300mA=300/1000
  91.                 'IF(O1="Bead",IF(Q1¥­¤è<0.3¥­¤è*0.6,PASS,FAIL)))
  92.                 If InStr(Cells(i, "f"), "/") Then   '§PÂ_F1Äæ ¦³¡¨/¡¨¦¹¦r¤¸
  93.                     M = Val(Split(Cells(i, "f"), "/")(1))
  94.                     Msg = InStr(UCase(Split(Cells(i, "f"), "/")(1)), "MA")
  95.                     If Msg Then M = Val(Split(Cells(i, "f"), "/")(1)) / 1000
  96.                     Msg = Cells(i, "Q") ^ 2 > M
  97.                 End If
  98.         End Select
  99.         If Msg <> "" Then
  100.             If Msg = "µL¤u§@¹qÀ£/¹q¬y" Then
  101.                 AR(i, 1) = Msg
  102.             Else
  103.                 AR(i, 1) = IIf(Msg, "PASS", "FAIL")
  104.             End If
  105.         End If
  106.     Next
  107.    
  108.     With Sh.UsedRange.Columns("S")
  109.         .Cells = AR
  110.         Msg = Array("PASS", "FAIL")
  111.         For i = 0 To UBound(Msg)
  112.             .Replace Msg(i), "=EX", xlWhole
  113.              With .SpecialCells(xlCellTypeFormulas, xlErrors)
  114.                 .Cells = Msg(i)
  115.                 'PASSÅã¥Üºñ©³¶Â¦r FAILÅã¥Ü¬õ©³¥Õ¦r
  116.                 .Font.Color = IIf(i = 0, vbBlack, vbWhite)
  117.                 .Interior.Color = IIf(i = 0, vbGreen, vbRed)
  118.              End With
  119.         
  120.         Next
  121.         .SpecialCells(xlCellTypeConstants).EntireRow.Copy
  122.     End With
  123.      '**********************************************************
  124.     '1.§Ú¥Ø«e¬O·Q°µ¦¨§Ú¥i¥H°õ¦æ¦¹µ{¦¡«á¸õ¥X¤@­Óµøµ¡->Åý§Ú¬D¿ï­n¸ü¤JªºÀÉ®×->¸ü¤J«á°õ¦æ¹Bºâ->¸õ¥Xµøµ¡Åý§Ú¥i¥t¦s·sÀÉ~
  125.    If MsgBox("½Ð°Ý¬O§_­nÀx¦sÀÉ®×?", vbYesNo) = vbYes Then
  126.         fileout = Application.GetSaveAsFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="¥t¦s¬°·sÀÉ")
  127.         If Not TypeName(fileout) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
  128.         With Workbooks.Add(1)
  129.             .Sheets(1).Paste
  130.             .SaveAs fileout ', FileFormat:=xlWorkbookDefault
  131.             .Close True
  132.         End With
  133.     Else
  134.          Application.CutCopyMode = False
  135.       
  136.     End If

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

TOP

¦^´_ 3# GBKEE


    ÁÂÁªO¤jªºÀ°¦£~~~~

¦ý¬O§Ú°õ¦æ®É°±¦b³o¦æ~ÁÙ¨S¯à¸ü¤JÀÉ®×~¥i¥HÀ°¦£¬Ý¬Ý¶Ü~~~ÁÂÁÂ~~~~~
Sub Ex()
    Dim AR, SH As Worksheet
    Dim i As Long, Msg As Variant, W As Single, M As Single
    Set SH = ActiveSheet
    With SH.UsedRange
        .Columns("S").Clear
        AR = .Columns("S")
    End With
AR(1, 1) = "PASS/FAIL" <-°±¦b¦¹¦æ
For i = 2 To UBound(AR)

TOP

¦^´_ 3# GBKEE


Hi~ª©¤j~~~

½Ð°Ý¤@¤U~

1.§Ú¥Ø«e¬O·Q°µ¦¨§Ú¥i¥H°õ¦æ¦¹µ{¦¡«á¸õ¥X¤@­Óµøµ¡->Åý§Ú¬D¿ï­n¸ü¤JªºÀÉ®×->¸ü¤J«á°õ¦æ¹Bºâ->¸õ¥Xµøµ¡Åý§Ú¥i¥t¦s·sÀÉ~
¤£­n±Nµ²ªGÅã¥Ü¦b­ìÀÉ®×

2.­Y¬OOÄæ(Implementation)¬°ªÅ,½Ð¦bSÄæ¦ì(µ²ªGÄæ¦ì)Åã¥Ü"µL¤u§@¹qÀ£/¹q¬y"

3.¥t¥~,­Y¬O°w¹ï"R"ªº³¡¤À,¦bPÄæ·|¥X²{"r0603_hxx"(xx¬OÅܼÆ) or "r0603"ªº¦r¤¸,¤@¼Ë¥i¥H§PÂ_¥X¨Ó¶Ü?(­ì¥ý¬O¹w³]¬°:mx_r0603)            
                Select Case Right(Trim(Cells(i, "P")), 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¨Ó¶Ü?
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
                Else         '<>"0OHM" Or <> " OHM"
                    '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

¥H¤W°ÝÃDÁٽФj¤jÀ°¦£¸Ñµª~~~~~¤p©f·P¿E¤£ºÉ~~

TOP

¦^´_ 5# happycoccolin
3#µ{¦¡½X¤w§ó·s,½Ð¸Õ¸Õ¬Ý.
3.¥t¥~,­Y¬O°w¹ï"R"ªº³¡¤À,¦bPÄæ·|¥X²{"r0603_hxx"(xx¬OÅܼÆ) or "r0603"ªº¦r¤¸,¤@¼Ë¥i¥H§PÂ_¥X¨Ó¶Ü?(­ì¥ý¬O¹w³]¬°:mx_r0603)
½Ð¥X¥Ü PÄæ©Ò¦³­n³B¸Ìªº¦r¦ê¤¸½d¨Ò
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ·PÁª©¤j~~~~^______^

¤£¦n·N«ä°Õ~§Úªí¹Fªº¤£¦n~§Ú·Q­nªº¤è¦¡¦pªþÀÉ MATERIALS (2).zip (65.89 KB)

1.§Ú·|¥Î¤@­Ó«ö¶s³sµ²°õ¦æ¥¨¶°(Àɮ׬°TEST_20141222.xlsm)

«ö¤U«ö¶s«á¶}©l°õ¦æ->¿ï¨ú­n¹BºâªºÀÉ®×(½d¨Ò:MATERIALS.xlsx)->°õ¦æ¹Bºâ->¸õ¥X¤@·sÀɮרø߰ݭn¤£­nÀx¦s

2.´N¤W¦¸ªº¸ß°Ý"R"¶µ¥ØªºPÄæ¦ì»Ý­n§PÂ_ªº¼W¥[¦p¤U¨âºØ
"r0603_hxx"(xx¬OÅܼÆ) : r+«á¥|½X¦r¦ê_hxx
"r0603" : r+«á¥|½X¦r¦ê


¦A¦¸·PÁª©¤j­@¤ß¸Ñµª

TOP

¦^´_ 6# GBKEE


    ÁÂÁª©¤jªº¨³³t¦^ÂÐ^___^

½Ð°Ý¬O§_¥i¥HÅýuser¥ô¿ï·Q­n¤ñ¹ïªºÀɮפÎÀɮצì¸m(User·Q¹BºâªºÀÉ®×¥i¯à¦s¦b¥ô¦ó¦ì¸m)©O?

¤§«e¦³¥t¤@­Óµ{¦¡ªº»yªk¦p¤U
¬O§_¥i¥H¨Ï¥Î³o¼Ëªº¤è¦¡©O?
¦A«ô°Uª©¤jÀ°¦£°Ñ¦Ò¬Ý¬Ý~~·P¿E¤£ºÉ~~~

--------------------------------------

  filein = Application.GetOpenFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="½Ð¿ï¾Ü­n¤ñ¹ïªºÀÉ®×")
  If Not TypeName(filein) = "String" Then Exit Sub '¨ú®ø«hµ²§ô

--------------------------------------
If MsgBox("½Ð°Ý¬O§_­nÀx¦sÀÉ®×?", vbYesNo) = vbYes Then
      fileout = Application.GetSaveAsFilename(FileFilter:="Excel ¬¡­¶Ã¯ (*.xlsx),*.xlsx", Title:="¥t¦s¬°·sÀÉ")
      If Not TypeName(fileout) = "String" Then Exit Sub '¨ú®ø«hµ²§ô
      .SaveAs fileout, FileFormat:=xlWorkbookDefault
    End If
--------------------------------------

TOP

¦^´_ 8# happycoccolin
¥i¥H¸ÕµÛ®M¤W¥Î,¤£¦æ¥i¦A´£°Ý.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


    Hi ª©¤j

¤p©f¤£¬O«Ü¤F¸Ñ"¤£¥¿½Tªº¤Þ¥Î",¬O§_¬O¤Ö«Å§i¤F¬Æ»ò,ÁٽЪ©¤j¨ó§U~·P¿E¤£ºÉ~~~

°±¦b¦¹¦æ
    .SaveAs fileout, FileFormat:=xlWorkbookDefault
½Ð¨£ªþÀÉ~ÁÂÁÂ~~~
TEST_20141222.zip (19.75 KB)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD