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

[µo°Ý] ¸óÄæ¸m¤¤»PÂ^¨ú¤å¦r°ÝÃD

¦^´_ 9# ­ã´£³¡ªL


    ¦^´_ 9# ­ã´£³¡ªL


Q1.·PÁ¤j¤j!! §Ú°w¹ïµ{¦¡½X­×§ï¦Ü§Ú¦Û¤vªºµ{¦¡³øªí(FMC), µo²{Äæ¦ìSubstrate »P B/D Np Äæ¦ì ´N¬O¨ú ¡y-¡z ¦n¹³¤Á±o¤£¬O«Ü°®²b (W»PXÄæ¦ì)
ÁÙ¦³³Ì«á¤@Äæ¤@ªø¦ê¨º­Ó, §Ú­×§ï¤£¥X¨Ó...¨D«ü±Ð....

Q2.ÁÙ¦³¥i¥H±N¶×¤J³øªí¼Ò¦¡§ï¦¨ Excel ¥´¶}«á¤ñ¹ï (°Ñ¦Ò³øªí¸ê®Æ¨Ó·½:ONHAND2HR_Ist_Flow)
          A2Äæ¦ì¦³ ON HAND--PC_ONHAND2HR_1ST_FLOW ´Nµ¥¦P¶×¤J³øªí¶Ü?  
      ·N«ä´N¬O¥u­n¥´¶}µ{¦¡EXCEL »P °Ñ¦Ò¸ê®Æ¨Ó·½ ¤ñ¹ï¸ê®ÆªíSheet1 A2Ä榳ON HAND--PC_ONHAND2HR_1ST_FLOW ¦r²´

½Ð°Ý¤j¤j¯à§_·s¼W´X¼Ë¥\¯à¶Ü
1. ¥\¯à1
    1-1. ¦pªG°õ¦æ®É¶¡¤ñ¹ï°Ñ¦Ò¸ê®Æ¨Ó·½Date Time (LÄæ)¶W¹L24H ¯àÀ°§Ú¤Ï¶À¦â¼Ð¥Ü¶Ü?
2. ¥\¯à2
   2-1. µ{¦¡¤¤³øªí¤WCUSTNAME Äæ¦ì¤¤¦pªG¦³ CSP / L1 / L2 / ¦r¦ê«h¾ã­Ó§R°£
   2-2. «O¯d ENG / HQCSP / HQ-CSP / HQ-L1 / HQ-L2 / HQL1 / HQL2
   2-3. µM«á²¾¥hENG ²¾¦ÜENG¸ê®Æªí, HQ CSP¨t¦C²¾¦ÜCSP¸ê®Æªí, HQ L1 / HQ L2 ¨t¦C²¾¦ÜOther¸ê®Æªí
3. ¥\¯à3
    3-1. ³øªí°Ñ¦Ò¸ê®Æ¤¤ªºQÄæ¦ìQTY ,¯à¤ñ¹ï PÄæ¦ì STEP ±a¤J
            µ{¦¡¤¤ªº¬Û¹ïÄæ¦ì¶Ü?   (¦p°õ¦æµ²ªGEXCEL)
4. ¥\¯à4
   4-1. µ{¦¡¤¤,¸ê®ÆªíFMC,«e­±¦³¬Ý¨£AÄæ¦ì»PBÄæ¦ì ¤w¦³¦X¨ÖÀx¦s®æ, µo²{«á­±¦³«Ü¦h¬Û¦P­«½Æªº ¤]¥i¥H¦X¨Ö¶Ü?
     4-1-1. SÄæ¦ì(Custname)   TÄæ¦ì(Device)  UÄæ¦ì(Datetime) ¢äÄæ¦ì(MO QTY)  WÄæ¦ìSubstrate  XÄæ¦ì(B/D No)  YÄæ¦ì(Flow)

Àɮפº»¡©ú
[2F·s³øªíµ{¦¡_v1] ¤W­z¬°µ{¦¡   [ONHAND2HR_Ist_Flow] ¤W­z¬°°Ñ¦Ò¸ê®Æ¨Ó·½
Report.rar (434.41 KB)

TOP

¦^´_ 11# v03586


    ¸É¥R....
STEP ¸Ì­± ¥u­n¦³WGD1  /   WGH1   /   WGP1 / WGS1  / WG01
³£¦C¤JWGÄæ¦ì¸Ì­±..!!!  WGxx³£ÄÝ©óWG»sµ{Äæ¦ì

TOP

¦^´_ 12# v03586


    Sorry....µ{¦¡Àɮפ¤TBG1®ÇÃä¡]¥k¡^»sµ{Äæ¦ì¦h¥[¤@­Ó»sµ{Äæ¦ìPGH1
§Ñ°O¥[¤W¥h.....thanks

TOP

¦^´_ 11# v03586

ÁקK¤j¤j­Ì²V¶Ã§Ú¤@ª½·s¼W¦^ÂЪº°ÝÃD
¦¹½g¾ã¦X­è­è³æ¿W¦^ÂЪº°ÝÃD , ¤Î¦Û¦æ·s¼WPGH1
·s¼WQ3°ÝÃD

Q1.§Ú°w¹ïµ{¦¡½X­×§ï¦Ü§Ú¦Û¤vªºµ{¦¡³øªí(FMC), µo²{Äæ¦ìSubstrate »P B/D No Äæ¦ì ´N¬O¨ú ¡y-¡z ¦n¹³¤Á±o¤£¬O«Ü°®²b (X»PYÄæ¦ì)
ÁÙ¦³³Ì«á¤@Äæ¤@ªø¦ê¨º­Ó, §Ú­×§ï¤£¥X¨Ó...¨D«ü±Ð....

Q2.ÁÙ¦³¥i¥H±N¶×¤J³øªí¼Ò¦¡§ï¦¨ Excel ¥´¶}«á¤ñ¹ï (°Ñ¦Ò³øªí¸ê®Æ¨Ó·½:ONHAND2HR_Ist_Flow)
          A2Äæ¦ì¦³ ON HAND--PC_ONHAND2HR_1ST_FLOW ´Nµ¥¦P¶×¤J³øªí¶Ü?  
      ·N«ä´N¬O¥u­n¥´¶}µ{¦¡EXCEL »P °Ñ¦Ò¸ê®Æ¨Ó·½ ¤ñ¹ï¸ê®ÆªíSheet1 A2Ä榳ON HAND--PC_ONHAND2HR_1ST_FLOW ¦r²´
Q3.Äæ¦ì½uªº¹º¸m¯à¥þ³¡²Ó½u±ø , ¨Ì·ÓB/D No ¤£¦Pµe²Ê½u±ø¶Ü? (°õ¦æµ²ªGexcel¨º¼Ë)
   ¥Ø«e¦n¹³¤£¦PªºMO µe²Ê½u

½Ð°Ý¤j¤j¯à§_·s¼W´X¼Ë¥\¯à¶Ü
1. ¥\¯à1
    1-1. ¦pªG°õ¦æ®É¶¡¤ñ¹ï°Ñ¦Ò¸ê®Æ¨Ó·½Date Time (CÄæ)¶W¹L24H ¯àÀ°§Ú¤Ï¶À¦â¼Ð¥Ü¶Ü?
2. ¥\¯à2
   2-1. µ{¦¡¤¤³øªí¤WCUSTNAME Äæ¦ì(VÄæ¦ì)¤¤¦pªG¦³ CSP / L1 / L2 / ¦r¦ê«h¾ã­Ó§R°£
   2-2. «O¯d ENG / HQCSP / HQ-CSP / HQ-L1 / HQ-L2 / HQL1 / HQL2
   2-3. µM«á²¾¥hENG ²¾¦ÜENG¸ê®Æªí, HQ CSP¨t¦C²¾¦ÜCSP¸ê®Æªí, HQ L1 / HQ L2 ¨t¦C²¾¦ÜOther¸ê®Æªí
3. ¥\¯à3
    3-1. ³øªí°Ñ¦Ò¸ê®Æ¤¤ªºQÄæ¦ìQTY ,¯à¤ñ¹ï PÄæ¦ì STEP ±a¤J,
            µ{¦¡¤¤HÄæ~UÄæ¦ì¬Û¹ï»sµ{Äæ¦ì¶Ü?   (¦p°õ¦æµ²ªGEXCEL)
4. ¥\¯à4
   4-1. µ{¦¡¤¤,¸ê®ÆªíFMC,«e­±¦³¬Ý¨£AÄæ¦ì(PKG)»PBÄæ¦ì(MO) ¤w¦³¦X¨ÖÀx¦s®æ, µo²{«á­±¦³«Ü¦h¬Û¦P­«½Æªº ¤]¥i¥H¦X¨Ö¶Ü?
     4-1-1. VÄæ¦ì(Custname)  WÄæ¦ì(Device)  CÄæ¦ì(Datetime) GÄæ¦ì(MO QTY)   XÄæ¦ìSubstrate  YÄæ¦ì(B/D No)  ZÄæ¦ì(Flow)

Àɮפº»¡©ú
[2F·s³øªíµ{¦¡_v1] ¤W­z¬°µ{¦¡   [ONHAND2HR_Ist_Flow] ¤W­z¬°°Ñ¦Ò¸ê®Æ¨Ó·½
Report - updata.rar (362.32 KB)

TOP

½Ð°Ý¬O§_¦³¤H·|¸ÑÃD©O...!! ¥dÃö¤F

TOP

¦^´_ 14# v03586

¤w¸g±N¥\¯à4°ÝÃD¸Ñ¨M...³Ñ¤U¨D§U

Q1.§Ú°w¹ïµ{¦¡½X­×§ï¦Ü§Ú¦Û¤vªºµ{¦¡³øªí(FMC), µo²{Äæ¦ìSubstrate »P B/D No Äæ¦ì ´N¬O¨ú ¡y-¡z ¦n¹³¤Á±o¤£¬O«Ü°®²b (X»PYÄæ¦ì)
ÁÙ¦³ZÄæ¦ì, µLªk±q¡yQVS¡z«á¨ì¡y  SPC ¡z ©Î ¡y  SCL  ¡z«O¯d, ¨ä¥L¥h°£

Q2.ÁÙ¦³¥i¥H±N¶×¤J³øªí¼Ò¦¡§ï¦¨ Excel ¥´¶}«á¤ñ¹ï (°Ñ¦Ò³øªí¸ê®Æ¨Ó·½:ONHAND2HR_Ist_Flow)
          A2Äæ¦ì¦³ ON HAND--PC_ONHAND2HR_1ST_FLOW ´Nµ¥¦P¶×¤J³øªí¶Ü?  
      ·N«ä´N¬O¥u­n¥´¶}µ{¦¡EXCEL »P °Ñ¦Ò¸ê®Æ¨Ó·½ ¤ñ¹ï¸ê®ÆªíSheet1 A2Ä榳ON HAND--PC_ONHAND2HR_1ST_FLOW ¦r²´
Q3.Äæ¦ì½uªº¹º¸m¯à¥þ³¡²Ó½u±ø , ¨Ì·ÓB/D No ¤£¦Pµe²Ê½u±ø¶Ü? (°õ¦æµ²ªGexcel¨º¼Ë)
   ¥Ø«e¦n¹³¤£¦PªºMO µe²Ê½u

½Ð°Ý¤j¤j¯à§_·s¼W´X¼Ë¥\¯à¶Ü
1. ¥\¯à1
    1-1. ¦pªG°õ¦æ®É¶¡¤ñ¹ï°Ñ¦Ò¸ê®Æ¨Ó·½Date Time (CÄæ)¶W¹L24H ¯àÀ°§Ú¤Ï¶À¦â¼Ð¥Ü¶Ü?
    1-2. (¥Ø«e¦³³]©w®æ¦¡¤Æ±ø¥ó Àx¦s®æ­È< ¤p©ó =NOW()-3 ) ¤Ï¶À³£³£¨S¦³§@¥Î
2. ¥\¯à2
   2-1. µ{¦¡¤¤³øªí¤WCUSTNAME Äæ¦ì(VÄæ¦ì)¤¤¦pªG¦³ CSP / L1 / L2 / ¦r¦ê«h¾ã­Ó§R°£
   2-2. «O¯d ENG / HQCSP / HQ-CSP / HQ-L1 / HQ-L2 / HQL1 / HQL2
   2-3. µM«á²¾¥hENG ²¾¦ÜENG¸ê®Æªí, HQ CSP¨t¦C²¾¦ÜCSP¸ê®Æªí, HQ L1 / HQ L2 ¨t¦C²¾¦ÜOther¸ê®Æªí

3. ¥\¯à3
    3-1. ³øªí¤¤ªºAAÄæ¦ìQTY ,¯à¤ñ¹ï PÄæ¦ì STEP ±a¤J,HÄæ~UÄæ¦ì¬Û¹ï»sµ{Äæ¦ì¶Ü?   
          EX: ( F9Äæ¦ì=DB) AA¼Æ¦r70 ,  «h±a¤J¹ïÀ³Ä欰 UÄæ(DB) U9Åã¥ÜAAÄæ¼Æ¦r70



NewReport.rar (413.2 KB)

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-1-23 02:05 ½s¿è

¥\¯à3§Ú¯à·Q¨ìªº§e²{¤è¦¡´N¬O
¦pªGFÄ楼 [STEP] = TBG1 «h´N±qAAÄæ¦ì°Å¤U¶K¤W, ½Ð°Ý¦p¦ó¼g¦¨¦h§PÂ_
  1. For h = 9 To 3500
  2.         If .Cells(h, "F") = "TBG1" Then
  3.             .Cells(h, "AA").Select
  4.             Selection.Cut
  5.             .Cells(h, "H").Select
  6.             ActiveSheet.Paste
  7.         End If
  8.     next
½Æ»s¥N½X
§Ú¦b¤U­±¦b·s¼W¤@­Óif  ´N¶]¤£¥X¨Ó¤F
ÁÙ¦³¤°»ò¿ìªk©O?©ÎªÌ¦p¦ó­×§ï?
  1. For h = 9 To 3500
  2.         If .Cells(h, "F") = "TBG1" Then
  3.             .Cells(h, "AA").Select
  4.             Selection.Cut
  5.             .Cells(h, "H").Select
  6.             ActiveSheet.Paste
  7.         End If
  8.         If .Cells(h, "F") = "PGH1" Then
  9.             .Cells(h, "AA").Select
  10.             Selection.Cut
  11.             .Cells(h, "I").Select
  12.             ActiveSheet.Paste
  13.         End If
  14.       Next
½Æ»s¥N½X

TOP

¥H¤Wªº°ÝÃD³æÂI¬ð¯}«á¥u³Ñ¤U¨â­Ó°ÝÃD...
§Æ±æ¦³°ª¤â¯à´À§Ú¸Ñµª¤@¤U

Q1.Äæ¦ì½uªº¹º¸m¯à¥þ³¡²Ó½u±ø , ¨Ì·ÓB/D No ¤£¦Pµe²Ê½u±ø¶Ü?
   ¥Ø«e¦n¹³¤£¦PªºMO µe²Ê½u
¦p¹Ï¤ù ­ì¥»¬O³o¼Ë

·QÅý¹º½uÅܦ¨³o¼Ë




1. ·s¼W¥\¯à
   1-1. µ{¦¡¤¤³øªí¤WCUSTNAME Äæ¦ì(VÄæ¦ì)¤¤¦pªG¥u¦³ CSP / L1 / L2 / ¦r¦ê«h¾ã­Ó§R°£
   1-2. «O¯d ENG / HQCSP / HQ-CSP/ HQ-L1 / HQ-L2 / HQL1 / HQL2
   1-3. µM«á²¾¥hENG ²¾¦ÜENG¸ê®Æªí, HQ CSP¨t¦C²¾¦ÜCSP¸ê®Æªí, HQ L1 / HQ L2 ¨t¦C²¾¦ÜOther¸ê®Æªí

help.rar (292.68 KB)
  1. Dim UType%
  2. Sub ·s³øªí_¶×¤J()

  3. Dim xFile$, x As New Application, xB As Workbook, xS As Worksheet
  4. Dim RepSht As Worksheet, xR As Range, xLab As Range, xAddress$
  5. Set RepSht = Sheets("FMC")
  6. Application.ScreenUpdating = False
  7. RepSht.UsedRange.EntireRow.Delete
  8.     Dim currentPKG, currentDevice, whichFirst As String
  9.     Dim index As Integer
  10.     Dim hasReport As Boolean
  11.     title_row = 8
  12.     hasReport = False
  13.     For i = 1 To Workbooks.Count
  14.         With Workbooks(i).Sheets(1)
  15.             If .Range("A" & title_row).Value Like "LOTID*" And .Range("D" & title_row).Value Like "TYPE*" And .Range("M" & title_row) Like "QTY*" Then
  16.                 Set xS = Workbooks(i).Sheets(1)
  17.                 hasReport = True
  18.                 i = Workbooks.Count + 1
  19.             End If
  20.         End With
  21.     Next i
  22.     If hasReport = False Then MsgBox "§ä¤£¨ì³øªíÀÉ¡I¡@": Exit Sub
  23.     R = xS.Cells(Rows.Count, 1).End(xlUp).Row + 5
  24. With RepSht
  25.      .Range("A1:A" & R) = xS.Range("AJ1:AJ" & R).Value  'pkg
  26.      .Range("B1:B" & R) = xS.Range("B1:B" & R).Value 'MO
  27.      
  28.      .Range("C1:C" & R).NumberFormatLocal = "@"   'Date time
  29.      .Range("C1:C" & R) = xS.Range("L1:L" & R).Value   'Date time
  30.      
  31.      .Range("D1:D" & R) = xS.Range("A1:A" & R).Value 'LOTID

  32.      .Range("E1:E" & R) = xS.Range("D1:D" & R).Value  'DIE TYPE
  33.      .Range("F1:F" & R) = xS.Range("P1:P" & R).Value   'STEP
  34.      .Range("G1:G" & R) = xS.Range("M1:M" & R).Value  ' MO QTY
  35.      .Range("AA1:AA" & R) = xS.Range("Q1:Q" & R).Value   '  QTY
  36.      .Range("H8").Value = "TBG1"
  37.      .Range("I8").Value = "PGH1"
  38.      .Range("J8").Value = "SLS1"
  39.      .Range("K8").Value = "WG"
  40.      .Range("L8").Value = "DE01"
  41.      .Range("M8").Value = "WM01"
  42.      .Range("N8").Value = "FL01"
  43.      .Range("O8").Value = "LWS1"
  44.      .Range("P8").Value = "WS01"
  45.      .Range("Q8").Value = "UTI1"
  46.      .Range("R8").Value = "VS01"
  47.      .Range("S8").Value = "QVS1"
  48.      .Range("T8").Value = "RQVS1"
  49.      .Range("U8").Value = "DB"
  50.      .Range("V1:W" & R) = xS.Range("E1:F" & R).Value  'CUST DEVICE
  51.      .Range("X1:X" & R) = xS.Range("AD1:AD" & R).Value  'Substrate
  52.      .Range("Y1:Y" & R) = xS.Range("AE1:AE" & R).Value  'B/D No
  53.      .Range("Z1:Z" & R) = xS.Range("AQ1:AQ" & R).Value  'flow
  54.      .Range("A8").Value = "PKG"
  55.      .Range("A7").Value = ""
  56.      .Range("X8").Value = "Substrate"
  57.      .Range("X7").Value = ""
  58.      .Range("Y8").Value = "B/D No."
  59.      .Range("Y7").Value = ""
  60.      .Range("D2").Value = ""
  61.      .Range("AA8").Value = ""
  62.      .Range("A1").Value = "1ST Flow On Hand Report"
  63.      .Range("A2").Value = Now()
  64. End With

  65. Dim RRR&, xAArea As Range, xRRR As Range, xHH As Range, Q, TTTT, XXX
  66. RRR = [FMC!A65536].End(xlUp).Row: If RRR < 9 Then Exit Sub
  67. Set xAArea = Sheets("FMC").Range("A9:A" & RRR)
  68. For Each xRRR In xAArea
  69.     Q = xRRR(1, 26)
  70.     Q = Mid(Q & ",QVS", InStr(Q, "QVS") + 4) '¨ú QVS ¥H«á¦r¦ê
  71.     For Each TTTT In Array("SPC", "SCL")
  72.         XXX = InStr(Q, TTTT): If XXX > 0 Then xRRR(1, 26) = Left(Q, XXX + 2): Exit For
  73.     Next
  74. Next
  75. With RepSht
  76. '     For g = 3500 To 8 Step -1
  77. '        If .Cells(g, "V") Like "*CSP*" Or .Cells(g, "V") Like "*L1*" Or .Cells(g, "V") Like "*L2*" _
  78. '           Or .Cells(g, "V") Like "*ENG*" Or .Cells(g, "A") Like "LQFP*" Or .Cells(g, "A") Like "PLCC*" _
  79. '           Or .Cells(g, "A") Like "SOP*" Or .Cells(g, "A") Like "SSOP*" Or .Cells(g, "A") Like "TSOP*" _
  80. '           Or .Cells(g, "A") Like "TSSOP*" Or .Cells(g, "A") Like "TFBGA*" Then
  81. '            .Rows(g).Delete
  82. '        End If
  83. '     Next
  84. RepSht.Select
  85.   For h = 9 To 3500
  86.     .Cells(h, "AA").Select
  87.     Selection.Cut
  88.     Select Case .Cells(h, "F").Value
  89.     Case "TBG1"
  90.      .Cells(h, "H").Select
  91.      ActiveSheet.Paste
  92.     Case "PGH1"
  93.      .Cells(h, "I").Select
  94.      ActiveSheet.Paste
  95.     Case "SLS1"
  96.      .Cells(h, "J").Select
  97.      ActiveSheet.Paste
  98.     Case "DE01"
  99.      .Cells(h, "L").Select
  100.      ActiveSheet.Paste
  101.     Case "WM01"
  102.      .Cells(h, "L").Select
  103.      ActiveSheet.Paste
  104.     Case "FL01"
  105.      .Cells(h, "N").Select
  106.      ActiveSheet.Paste
  107.     Case "LWS1"
  108.      .Cells(h, "O").Select
  109.      ActiveSheet.Paste
  110.     Case "WS01"
  111.      .Cells(h, "P").Select
  112.      ActiveSheet.Paste
  113.     Case "UTI1"
  114.      .Cells(h, "Q").Select
  115.      ActiveSheet.Paste
  116.     Case "VS01"
  117.      .Cells(h, "R").Select
  118.      ActiveSheet.Paste
  119.     Case "QVS1"
  120.      .Cells(h, "S").Select
  121.      ActiveSheet.Paste
  122.     Case "RQVS1"
  123.      .Cells(h, "T").Select
  124.      ActiveSheet.Paste
  125.     Case "DB"
  126.      .Cells(h, "U").Select
  127.      ActiveSheet.Paste
  128.    End Select
  129.   Next
  130.     For e = 9 To 3500
  131.       If .Cells(e, "F") Like "WG*" Then
  132.             .Cells(e, "AA").Select
  133.             Selection.Cut
  134.             .Cells(e, "K").Select
  135.             ActiveSheet.Paste
  136.       End If
  137.     Next
  138. End With
  139. 'xB.Close 0
  140. Dim RR&, xArea As Range, xRR As Range, xH As Range, T, TT, XX
  141. RR = [FMC!A65536].End(xlUp).Row: If RR < 9 Then Exit Sub
  142. Set xArea = Sheets("FMC").Range("A9:A" & R)
  143. For Each xRR In xArea
  144.     T = xRR(1, 25): xRR(1, 25) = Mid(T, InStr(T, "-") + 1)
  145.     xRR(1, 24) = Right(xRR(1, 24), 9)
  146.       
  147.     T = xRR(1, 5):  T = Left(T, 2) & "-" & Mid(T, 24, 1) & "-" & Mid(T, 23, 4)
  148. Next
  149. xArea.Resize(, 26).Sort Key1:=xArea(1, 1), Order1:=xlAscending, _
  150.                        Key2:=xArea(1, 25), Order2:=xlAscending, Header:=xlNo
  151. Application.DisplayAlerts = False
  152. For Each xRR In xArea
  153.     If xRR & xRR(1, 2) <> xRR(0) & xRR(0, 2) Then Set xH = xRR
  154.     If xRR & xRR(1, 2) <> xRR(2) & xRR(2, 2) Then
  155.       Range(xH, xRR).Merge: Range(xH(1, 2), xRR(1, 2)).Merge
  156.       Range(xH, xRR).Merge: Range(xH(1, 3), xRR(1, 3)).Merge
  157.       Range(xH, xRR).Merge: Range(xH(1, 7), xRR(1, 7)).Merge
  158.       Range(xH, xRR).Merge: Range(xH(1, 22), xRR(1, 22)).Merge
  159.       Range(xH, xRR).Merge: Range(xH(1, 23), xRR(1, 23)).Merge
  160.       Range(xH, xRR).Merge: Range(xH(1, 24), xRR(1, 24)).Merge
  161.       Range(xH, xRR).Merge: Range(xH(1, 25), xRR(1, 25)).Merge
  162.       Range(xH, xRR).Merge: Range(xH(1, 26), xRR(1, 26)).Merge
  163.       Range(xH, xRR(1, 26)).Borders.LineStyle = 1
  164.       For i = 7 To 10
  165.           Range(xH, xRR(1, 26)).Borders(i).Weight = xlMedium
  166.       Next i
  167.     End If
  168. Next
  169. With RepSht
  170.     Sheets("FMC").Select
  171.     Cells.Select
  172.     Selection.Font.Size = 14
  173.     With Selection.Font
  174.         .Name = "Arial"
  175.         .Size = 14
  176.         .Strikethrough = False
  177.         .Superscript = False
  178.         .Subscript = False
  179.         .OutlineFont = False
  180.         .Shadow = False
  181.         .Underline = xlUnderlineStyleNone
  182.         .ThemeColor = xlThemeColorLight1
  183.         .TintAndShade = 0
  184.         .ThemeFont = xlThemeFontNone
  185.     End With
  186.     Range("A8:Z8").Select
  187.     With Selection.Interior
  188.         .Pattern = xlSolid
  189.         .PatternColorIndex = xlAutomatic
  190.         .Color = 255
  191.         .TintAndShade = 0
  192.         .PatternTintAndShade = 0
  193.     End With
  194.     With Selection.Font
  195.         .ThemeColor = xlThemeColorDark1
  196.         .TintAndShade = 0
  197.     End With
  198. End With
  199.     Range("A8").Select
  200.     ActiveWindow.Zoom = 63

  201. Call ½Õ¾ã
  202.    
  203. End Sub

  204. Sub ³øªí_²M°£()
  205. Sheets("FMC").UsedRange.EntireRow.Delete
  206. End Sub

  207. Sub ½Õ¾ã()
  208. Dim RepSht As Worksheet
  209. Set RepSht = Sheets("FMC")
  210. With RepSht
  211.     Columns("A:A").Select
  212.     Selection.ColumnWidth = 30
  213.     Columns("B:B").Select
  214.     Selection.ColumnWidth = 11.63
  215.     Columns("C:C").Select
  216.     Selection.ColumnWidth = 16
  217.     Columns("D:D").Select
  218.     Selection.ColumnWidth = 20.88
  219.     Columns("E:E").Select
  220.     Selection.ColumnWidth = 8.25
  221.     Columns("F:F").Select
  222.     Selection.ColumnWidth = 9.25
  223.     Columns("G:G").Select
  224.     Selection.ColumnWidth = 10
  225.     Selection.NumberFormatLocal = "#,##0_ "
  226.     Columns("H:U").Select
  227.     Selection.ColumnWidth = 8.63
  228.     Columns("V:V").Select
  229.     Selection.ColumnWidth = 40.38
  230.     ActiveWindow.SmallScroll ToRight:=11
  231.     Columns("W:W").Select
  232.     Selection.ColumnWidth = 59.75
  233.     Columns("X:X").Select
  234.     Selection.ColumnWidth = 15.5
  235.     Columns("Y:Y").Select
  236.     Selection.ColumnWidth = 10.5
  237.     ActiveWindow.SmallScroll ToRight:=4
  238.     Columns("Z:Z").Select
  239.     Selection.ColumnWidth = 93.38
  240.     Range("A7").Select
  241. End With

  242. End Sub
½Æ»s¥N½X

TOP

³oÀÉ®×»á¶O®É¡A¥u¯à°µ¥D­nµ{¦¡¡A¨ä¥¦²Ó¸`¤Î¤£¨¬³B¡A¦Û¦æ¥h®M§ï¡ã¡ã
¡@
2F·s³øªíµ{¦¡_v1.rar (291.83 KB)
¡@

TOP

¦^´_ 19# ­ã´£³¡ªL


    ·PÁ¤j¤jªº¨ó§U!!! ³Ñ¤U±o§Ú¦Û¦æ¬ã¨s
¦Ü©ó¹º½u³¡¤À¯à¹³³o¼Ë¶Ü? ¨Ì·ÓB/D No
¦p¹Ï¥Ø«e¬O³o¼Ë¹º½u



¨Ì·ÓB/D No ¹º½u¤è¦¡

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD