相机客观参数整理软件需求报告自动化统计

news/2024/10/29 0:22:59/

魅族和TCL手机的相机项目，需要通过几十项的客观参数验证，每一类参数最终都会获得一个excel表格文件，每个表格文件又包含若干工作薄，要在几十个表格文件的几十个工作薄中统计计算某些参数的值并把结果写入新的表格文件中，手动操作是一件十分枯燥且易出错的，其实这部分工作可以使用宏来解决。下面是为驱动部门开发的excel宏文件，略作记录，以备后用。

Sub 自动统计()
Dim myPath$
Dim AK As Workbook
myPath = ThisWorkbook.Path '把文件路径定义给变量
Application.ScreenUpdating = False '冻结屏幕， 以防屏幕抖动Set AK = Workbooks.Open(myPath & "\1 (6)_summary.csv")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B137:B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D3:D3")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D10")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D11")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D3:G3")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D3:D6")If Range("C3:C5").MergeCells Then
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B50:B50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5")
Else
Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B50:B50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5")
End IfWorkbooks("report.xlsm").Sheets("SNR").Range("C6:C8").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("C50:C50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C6:C8")
Workbooks("report.xlsm").Sheets("SNR").Range("C9:C11").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("D50:D50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C9:C11")
Workbooks("report.xlsm").Sheets("SNR").Range("C12:C14").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("E50:E50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C12:C14")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\D50_summary.csv")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B137:B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D4:D4")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D16")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D17")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D4:G4")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D7:D10")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\CWF_summary.csv")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D5")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D12")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D13")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D6:G6")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D15:D18")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\HOR_summary.csv")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D6")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D18")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D19")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D7:G7")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D19:D22")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\TL84_summary.csv")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D7")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D20")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D21")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D8:G8")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D23:D26")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\D75_summary.csv")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D8")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D14")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D15")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D5:G5")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D11:D14")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\A_summary.csv")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D9")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D22")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D23")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D9:G9")
Workbooks("A_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D27:D30")
AK.Close FalseSet AK = Workbooks.Open(myPath & "\step_summary.csv")Dim i As Integer, count As Integer
count = 0
For i = 9 To 27If (Abs(Workbooks("step_summary.csv").Sheets("step_summary").Cells(i + 1, 2).Value - Workbooks("step_summary.csv").Sheets("step_summary").Cells(i, 2).Value) > 8) Thencount = count + 1End If
Next
Workbooks("report.xlsm").Sheets("动态范围（Gamma）").Cells(3, 3).Value = count
AK.Close FalseApplication.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用End Sub
Sub test()
Set AK = Workbooks.Open(myPath & "\CWF_summary.csv")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D5")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D12")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D13")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D6:G6")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D15:D18")
AK.Close FalseEnd Sub



http://www.ppmy.cn/news/661983.html

相关文章

java适配器模式

java适配器模式

一、是什么？ 定义: 将一个类的接口变成另外一个类所期待的另一个接口, 从而使因接口不匹配而无法一起工作的两个类能够一起工作 举个例子, 苹果手机想用type-c的充电器充电, 但充电接口不吻合, 所以就选哦一个转接头, 使type-c 能给苹果手机充电, 这就是适配器 …
阅读更多...
i5 1240p和i7 13700h差距 酷睿ii51240和i713700h参数对比

i5 1240p和i7 13700h差距 酷睿ii51240和i713700h参数对比

i5-1240P处理器具有4个性能核心，8个效能核心，总计12核心，16线程。12MB三级缓存，最大频率4.4GHz。锐炬Xe集成显卡有80EU，频率最高1.3GHz。CPU基础功率28W，最大功率64W，多线程性能提升可达70%。选…
阅读更多...
i9 12900参数 i912900怎么样

i9 12900参数 i912900怎么样

i9-12900 为 16 核 24 线程，8 个大核心 8 个小核心，最高 5.1GHz，30MB 三级缓存，基础功耗 65W，最高功耗 202W。核显为 UHD770，32EU，最高 1.55GHz。 i9 12900组装电脑怎么搭配更合适这些点很重要…
阅读更多...
求职贴 | 多源融合定位方向24届硕士秋招求职

求职贴 | 多源融合定位方向24届硕士秋招求职

求职方向 多源融合定位 / LIO / VIO 基本情况 现就读于华中区某985，研究方向为多源融合定位，主要内容是LiDAR / IMU融合两篇期刊论文在投，论文内容即项目经历；具有丰富的电子设计类竞赛经历自我认为学习能力强，爱动…
阅读更多...
SAP-QM质量管理视图字段解析

SAP-QM质量管理视图字段解析

QM物料授权：如果在物料主记录中输入物料授权组，则系统将检查（在物料基础上）用户是否具有对以上名称对象的授权。如果未输入授权组，则不进行授权检查。要通过授权检查，用户需要 物料授权，其中包含有字段值所表示的相关授权组。 收货处理时间：收货后的加盐时间（天数）如…
阅读更多...
给网游写一个挂

给网游写一个挂

给网游写一个挂吧（一） – 反反外挂驱动的驱动 去年做了一些研究，研究做外挂的一些相关技术，打算放出来跟大家分享，分享一下我们做挂的一些思路，挂的原理，希望抛砖引玉。 外挂说白了就是用程序代…
阅读更多...
（转载）应该对什么告警

（转载）应该对什么告警

告警的本质 没有多少系统的告警是设计得当的。良好的告警设计是一项非常困难的工作。如何知道你收到的告警是糟糕的？多少次你收到了告警之后，立即就关掉了的？是不是成天被这些然而并没有什么卵用的东西给淹没？最常见的告警设置&am…
阅读更多...
《皇室战争》体验报告：游戏时长被无限拉长

《皇室战争》体验报告：游戏时长被无限拉长

《皇室战争》体验报告 http://www.gameres.com/678457.html by伊达政宗 2016.8.26 ↑ 笔者不久前才开出的传奇卡电磁炮 前言： 　　今年上半年的早一些时候，笔者听说了国民老公王思聪在某款游戏中获得了全球排名第四的好成绩，后…
阅读更多...
最新文章

Copyright @ 2022~2023