dgs編程

『壹』 松下npmdgs編程怎麼設置pcb坐標原點

松下npmdgs編程可以這樣設置pcb坐標原點：選擇菜單Setup→SetOrigin，用滑鼠在PCB上選定恰當的位置並確定為新的坐標原點，一般選擇PCB左下角，並且離PCB板的最左邊。

『貳』 如何用vba實現數據透視表自動篩選

樓主，每個透視表操作上，根據實際的數據類型的什麼，差別比較大的。
這兒也不好說怎麼來做~
使用Excel 2010或2013，錄制宏，然後操作下透視表，就能看到具體怎麼操作了。
2007有Bug，不要用的好，操作的過程好多看不到。

我也做了好些自動篩選的，貼出來，你看下吧，不細說了，可以實現的。

'創建圖表
Set cht = wbd.Sheets("PivotTable").ChartObjects.Add(wbd.Sheets("PivotTable").Cells(1, "J").Left + 8, wbd.Sheets("PivotTable").Cells(1, "J").Top, 708, 284)
cht.Name = "圖表1"
cht.Chart.ChartWizard Source:=tb.TableRange1
cht.Chart.SetElement ()

k = 0
'根據刷新的數據型號，判斷取的不良Code
For Each lotype In tb.PivotFields("Type").PivotItems

lotype_1 = lotype
tb.PivotFields("Type").CurrentPage = lotype_1
'這個地方就是篩選設定的~~~

If UBound(Filter(pdt, lotype)) = 0 Then

tb.PivotFields("DGS%").Orientation = xlHidden
tb.PivotFields("GCS%").Orientation = xlHidden
tb.PivotFields("GGS%").Orientation = xlHidden
tb.PivotFields("Glass Qty").Position = 2

With cht.Chart
.ChartTitle.Text = lotype_1 & "_Tray別Yield確認@Inv%"
.ApplyChartTemplate ( _
"F:\Sputter Daily Report自動化\1.圖表模板\Tray_Yield_TN.crtx")
End With

Else

tb.PivotFields("Inv%").Orientation = xlHidden
tb.PivotFields("Glass Qty").Position = 4

With cht.Chart
.ChartTitle.Text = lotype_1 & "_Tray別Yield確認@DGS/GCS/GGS%"
.ApplyChartTemplate ( _
"F:\Sputter Daily Report自動化\1.圖表模板\Tray_Yield_ADS.crtx")
End With

End If