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

[µo°Ý] ¼Ï¯Ã¤ÀªR+¶×¤J¨ä¥L¸ê®Æªí¸ê®Æ

[µo°Ý] ¼Ï¯Ã¤ÀªR+¶×¤J¨ä¥L¸ê®Æªí¸ê®Æ

¼Ï¯Ã¤ÀªR¥Î¿ý»sªº, ¥u­n¥Lªº°Ñ¦Ò¸ê®Æ¦³·s¼W¨S¦³³Q¿ý»s¶i¥hªº¸ê®Æ´N·|¸õ¥X¿ù»~
      ·Q½Ð±Ð¦U¦ì°ª¤â­Ì¦³¨S¦³¤ñ¸û¦nªº¤è¦¡¥i¥H§e²{¥XÃþ¦ü¤U¹Ïªºªí®æ, ( Ãþ¦ü¥Î¼Ï¯Ã¤ÀªR©Ô¥X¨Óªº®æ¦¡)
      ¦b§ÚTest reportªºEXCEL "¾÷¥x¼Æ"ªº¤À­¶, ¥h°µ¤@­ÓÃþ¦ü¤ÀªR¸ê®Æ

       Q1-1.jpg

      µ{¦¡¨BÆJ¬O, ¶}±ÒTest Report ¦A¥´¶}"°Ñ¦Ò¸ê®Æ" ¡÷  ¦A«ö²£¥Í³øªí
      µ{¦¡·|±q°Ñ¦Ò¸ê®Æ§ì¨ú­nªº¸ê®Æ¨ìTest report ¥h°µ¸ê®Æ·J¾ã
      ª½¨ìMoudle3¡y¾÷¥x¼Æ¡z ¥u¬O§â°Ñ¦Ò¸ê®Æ¤¤§Ú­nªº¸ê®Æ§ì¹L¨Ó, ¦A°µ¤@­Ó¿z¿ï
     ³Ñ¤Uªº¸ê®Æ­n°µ¤ÀªRªº
      Q1:  ¯à§_±NMoudle3 ¿z¿ï§¹ªº¸ê®Æ¦b¦P¤@­Ó¤À­¶ ¡y¾÷¥x¼Æ¡z §e²{¥X  ¤W¹Ïªº¸ê®Æ©O?
               ¦pªGPKG¬OªÅ¥Õ¥Nªí¾÷¥x«Ý®Æ, ¥i§_§âªÅ¥Õ¦r²´´«¦¨" «Ý®Æ "

      
      
      ¢ß2: ¯à§_±N¤ÀªR§¹ªº¸ê®Æ¦A¶×¤JFMC »P ENG ªº¸ê®Æªí¤º
       Q33.png
      
      test2.rar (750.09 KB)

¦^´_ 1# v03586

½Ð°Ý¤@¤U...§Ú¤w¸g±N¤W­z°ÝÃD¿ý»s¼Ï¯Ã¤ÀªR, ¦p¤Uµ{¦¡½X
½Ð°Ý§Ú­n¦p¦ó§Q¥Î°j°éor §PÂ_¦¡ ±N¼Ï¯Ã¤ÀªRµ²ªG, ¾É¤J¨ìFMC¸ê®ÆÄ檺¾÷¥x¼Æ©O??


Q33.png

Test.rar (762.02 KB)
  1. Sub ¾÷¥x¼Æ¤ÀªR()
  2.     Application.CutCopyMode = False
  3.     Range("A1").Select
  4.     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  5.         "¾÷¥x¼Æ!R1C1:R144C16", Version:=xlPivotTableVersion15).CreatePivotTable _
  6.         TableDestination:="¾÷¥x¼Æ!R1C17", TableName:="¼Ï¯Ã¤ÀªRªí1", DefaultVersion:= _
  7.         xlPivotTableVersion15
  8.     Sheets("¾÷¥x¼Æ").Select
  9.     Cells(1, 17).Select
  10.     ActiveWindow.ScrollColumn = 2
  11.     ActiveWindow.ScrollColumn = 3
  12.     ActiveWindow.ScrollColumn = 4
  13.     ActiveWindow.ScrollColumn = 5
  14.     ActiveWindow.ScrollColumn = 6
  15.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Package")
  16.         .Orientation = xlRowField
  17.         .Position = 1
  18.     End With
  19.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").AddDataField ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1" _
  20.         ).PivotFields("Machine"), "­p¼Æ - Machine", xlCount
  21.     ActiveWindow.ScrollColumn = 7
  22.     ActiveWindow.ScrollColumn = 8
  23.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Area")
  24.         .Orientation = xlPageField
  25.         .Position = 1
  26.     End With
  27.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Area").ClearAllFilters
  28.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Area").CurrentPage = "HQ4F-FMC"

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

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD