- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-29 17:14 ½s¿è
¦^´_ 58# chaoyiho
°w¹ï #58
¤£ª¾¹D¦³¨S¦³¥i¥H«½Æ°Ê§@ªº¤è¦¡©O?
¦]¬°³o¼Ë¤lªº¤è¦¡¦ü¥G¬O¤@¦¸©Êªº
¤ÀªR¹L«á´NµLªk¦A°µ¿z¿ï ¥²¶·n«·s¦A¤@¦¸¤~¦³¿ìªk³B²z¤F(?)
------------------------------------------------------------------------
¬°¸Ñ¨M¶È¯à°õ¦æ¤@¦¸ªº§xÂZ°ÝÃD¡A×¥¿¦¨¯à°÷«½Æ¡u¥i¦h¦¸°õ¦æ¡v¡A§Y
¡y°õ¦æ¤ÀªR¡z¤§¡u¼Ï¯Ã¤ÀªRªí¡v¡Aק鷺®e¦p¤U (¶È¦C¥Ü¥Xקﳡ¤À)¡G
¤@¡B- Private Sub CommandButton3_Click()
- If TestBookOpen("FORM_REPORT.xlsx") = "" Then MsgBox "ÀÉ®×¥¼¶}±Ò": Exit Sub '¸õ¥Xµ{§Ç
- §R°£¤ÀªRµ²ªGªí ' ¼W¥[§R°£¤ÀªR¤u§@ªí³æ¡A¥H«K¦A¦¸¡y°õ¦æ¤ÀªR¡z
- Range("A1:M50192").Select
- Range("A2").Activate
- Sheets.Add
- ' ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
- "FORM_REPORT!R2C1:R50192C13", Version:=xlPivotTableVersion14). _
- CreatePivotTable TableDestination:="¤u§@ªí1!R3C1", TableName:="¼Ï¯Ã¤ÀªRªí1", _
- DefaultVersion:=xlPivotTableVersion14
- ' 2016/04/29 ×¥¿¶È¯à°õ¦æ¤@¦¸ªº§xÂZ°ÝÃD
- ' 쥻¡y°õ¦æ¤ÀªR¡z¤§¡u¼Ï¯Ã¤ÀªRªí¡v¶È¯à°õ¦æ¤@¦¸¡A¬°¸Ñ¨M¦¹¤@§xÂZ°ÝÃD¡A¬G±N TableDestination
- ' ¶Ç¤JÈ "¤u§@ªí1!R3C1" ¤©¥H×¥¿¬° ActiveSheet.Name & "!R3C1"¡A¦p¦¹«K¥i¦h¦¸°õ¦æ¤F¡C
- ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
- "FORM_REPORT!R2C1:R50192C13", Version:=xlPivotTableVersion14). _
- CreatePivotTable TableDestination:=ActiveSheet.Name & "!R3C1", TableName:="¼Ï¯Ã¤ÀªRªí1", _
- DefaultVersion:=xlPivotTableVersion14
- ' Sheets("¤u§@ªí1").Select ' 쬰¡u¤u§@ªí1¡v¡A¦ý°õ¦æ²Ä¤G¦¸®É¬°¡u¤u§@ªí10¡v, «h·|²£¥Í¿ù»~°T®§
- Sheets(ActiveSheet.Name).Select ' ¬°°t¦X¡u¥i¦h¦¸°õ¦æ¡v¡A±Nªí³æ¦WºÙ§ï¥H°ÊºAÀH¾÷³B²z (2016/04/29)
- Cells(3, 1).Select
½Æ»s¥N½X ¤G¡B- ' 2016/04/26 ¼W¥[»P "EXCELªí³æ³B²z¤¶±.ListBox" ªº³sµ²¡C
- ' ©Ò¦³¼W¦C¤§ Sav¡BJ.C.W¡BP.C.O¡BPmax¡BStuffing Box¡BF.O.¡B
- ' Exh¡BExh ¤u§@ªí³æ VSL §¡»P ¡uÁ`ªí¡v¹ïÀ³¤§ VSL ¦P¨B¡F
- ' «h±N "¥H¤U With ~ End With" ·s¼Wªº¡uµ{¦¡½X¡v¤º®e²¾¦Ü¦¹³B¡C
- Dim cts As Integer
-
- With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields(" VSL")
- For cts = 0 To EXCELªí³æ³B²z¤¶±.ListBox1.ListCount - 1
- ' .PivotItems(EXCELªí³æ³B²z¤¶±.ListBox1.List(cts)).Visible = IIf(EXCELªí³æ³B²z¤¶±.ListBox1.Selected(cts), True, False)
- ' §ó²¼ä¡B§ãnªº Assignment ªºªí¥Ü¦¡¡C
- .PivotItems(EXCELªí³æ³B²z¤¶±.ListBox1.List(cts)).Visible = EXCELªí³æ³B²z¤¶±.ListBox1.Selected(cts)
- Next cts
- End With
- ' ¬°°t¦X¡u¥i¦h¦¸°õ¦æ¡v¡A¤©¥H×¥¿§ï¥H°ÊºA¹ïÀ³·s²£¥Íªí³æ¦WºÙ¡A¥H§K²£¥Í¿ù»~ (2016/04/29)
- ' Sheets("¤u§@ªí1").Select
- Sheets(ActiveSheet.Name).Select
- ' Sheets("¤u§@ªí1").Name = "Liner"
- Sheets(ActiveSheet.Name).Name = "Liner"
- ' Sheets("¤u§@ªí1").Copy Before:=Sheets(1)
- Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
- ' Sheets("¤u§@ªí1 (2)").Select
- Sheets(ActiveSheet.Name).Select
- ' Sheets("¤u§@ªí1 (2)").Name = "Exh"
- Sheets(ActiveSheet.Name).Name = "Exh"
- ' Sheets("¤u§@ªí1 (2)").Copy Before:=Sheets(1)
- Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
- ' Sheets("¤u§@ªí1 (3)").Select
- Sheets(ActiveSheet.Name).Select
- ' Sheets("¤u§@ªí1 (3)").Name = "F.O Inlet"
- Sheets(ActiveSheet.Name).Name = "F.O Inlet"
- ' Sheets("¤u§@ªí1 (3)").Copy Before:=Sheets(1)
- Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
- ' Sheets("¤u§@ªí1 (4)").Select
- Sheets(ActiveSheet.Name).Select
- ' Sheets("¤u§@ªí1 (4)").Name = "Stuffing Box"
- Sheets(ActiveSheet.Name).Name = "Stuffing Box"
- ' Sheets("¤u§@ªí1 (4)").Copy Before:=Sheets(1)
- Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
- ' Sheets("¤u§@ªí1 (5)").Select
- Sheets(ActiveSheet.Name).Select
- ' Sheets("¤u§@ªí1 (5)").Name = "Pmax"
- Sheets(ActiveSheet.Name).Name = "Pmax"
½Æ»s¥N½X |
|