求高手帮我解决下 怎么最简单导入机器固定数据表做比较

yhjkleo

附件中2010-09-26-RWT_PD0.xls是机器里拷出来的生产参数，data分析100907.xls是我要分析表的样式  ，求高手帮我出个最简洁的方法，导入数据表就知道显示出 ，其实分析表关键是跟最理想做比较，(A)-(SPEC.) 低于最小值自动显示红色填充 高于最大值自动显示黄色 填充，小弟EXCL太菜，请告诉出个方案给我 非常感谢

penghaifeng

我是这样理解的，不知道对不对？
先建立一张工作标准表，与导出的数据进行对照，超出的和未超出的各自表示出来，最后用透视表进行计数；其中的关键点是源数据格式需要利用SQl语句进行重新构造，以便于自动与标准进行对比。

附件显示了这种效果，可能与楼主的要求不太一致，未用颜色进行区分；既然发在了透视表版，就利用透视表进行了计数求和哦！~~~

yhjkleo

谢谢这位大哥的帮忙 我先看下

apirl2008

这样做的，不知道可以不？

penghaifeng

应楼主的要求，更改了SQL语句中的公式，计算出实际值与标准值的差异，并在透视表中体现明细数据，仅供参考！~~~

birdxiao

按照你的报表样式，利用VBA实现了点击就自动导入数据的功能。运行有点慢，要点时间。但是什么低于最小值，高于最大值实在没看明白，是和什么比较。
但是你的报表样式实在比较奇怪，没有按照EXCEL每列独立的字段，来设计表格。所以EXCEL自带的数据选取分析功能，根本就没办法用。建议以后设计报表的时候，考虑这个问题
VBA
Sub SelectFile()
Dim FileName As Variant, xlRange As Range, sWKName As String, i As Integer, Hang As Integer, j As Integer
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , , , 0)
If FileName = False Then Exit Sub
Workbooks.Open FileName
sWKName = Application.ActiveWorkbook.Name
On Error Resume Next
    Set xlRange = Application.InputBox("请选取单元格", , , , , , , 8)
    If xlRange Is Nothing Then GoTo 100
xlRange.Copy Destination:=ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(269, 4)
Hang = xlRange.Rows.Count
Application.ScreenUpdating = False
ThisWorkbook.Sheets("RWT_PD0 (2)").Range("G269:K1000").Copy Destination:=ThisWorkbook.Sheets("RWT_PD0 (2)").Range("D269")
ThisWorkbook.Sheets("RWT_PD0 (2)").Range("L269:V1000").Copy Destination:=ThisWorkbook.Sheets("RWT_PD0 (2)").Range("K269")
ThisWorkbook.Sheets("RWT_PD0 (2)").Range("I269:J1000").Clear
ThisWorkbook.Sheets("RWT_PD0 (2)").Range("V269:V1000").Clear

For i = 270 To (268 + Hang * 2) Step 2
ThisWorkbook.Sheets("RWT_PD0 (2)").Rows(i).Insert

ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(i, 10).Value = "(A)-(SPEC.)"
For j = 11 To 21
ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(i, j) = ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(i - 1, j) - ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(2, j)
Next j
ThisWorkbook.Sheets("RWT_PD0 (2)").Range(ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(i, 10), ThisWorkbook.Sheets("RWT_PD0 (2)").Cells(i, 21)).Interior.ColorIndex = 15
Next i
100:
Workbooks(sWKName).Close False
Application.ScreenUpdating = True
End Sub