食物热量表大全excel,食物热量表大全excel

牵着乌龟去散步 万象 40 0
Excel做的黑洞主要参数表:质量、视界半径、密度、重力加速度

黑洞是广义相对论计算的结果,也是天体物理学中最迷人的天体之一。

黑洞的尺寸可以从很小一直到几乎无限,经常有人提出这样的问题,多少大的黑洞会怎么样。

离我们最近的恒星是太阳,太阳的半径是696300公里,总质量是1.98×10的27次方吨,平均密度是水的1.4倍。我们暂且把太阳的质量看作1,以此作为衡量黑洞大小的最基本度量,来计算不同大小黑洞的情况。

下面这张表就是用Excel计算出的,各种大小黑洞的一览表。该表经过仔细计算并且校对过,一共22种黑洞。没有列出的部分,大家可以用插值的 *** 估算。

第1类黑洞:太阳质量黑洞。

太阳等质量黑洞,在大自然中是不存在的。太阳演化的最后阶段经历超新星爆发以后,会形成一颗白矮星。太阳黑洞的密度是中子星的2~20倍。

第2类黑洞:恒星黑洞。

大质量恒星在燃尽以后经历超新星爆炸,如果剩下的星核的质量大于太阳质量的三倍,会溃缩成黑洞。这是自然演化中,形成黑洞的质量下限。它的半径在9千米左右。

第3类黑洞,银河系中心大黑洞。

这个黑洞的质量有不同说法,有资料说是太阳质量的400万倍,也有资料说是650万倍太阳。所以,这两种大小的黑洞都在计算列表里。650万倍太阳质量黑洞,半径是大约2000万公里,接近水星的轨道半径。

第4类黑洞,密度与水相当。

由于黑洞的视界半径与质量成正比,而体积是半径的三次方,所以黑洞越大,密度越低。13500万倍太阳质量的黑洞,视界2.66个天文单位,在火星和木星轨道中间,密度和水相当,超过这个质量的黑洞密度小于水。

第5类黑洞,密度与空气相当。

空气的密度是1.293千克每立方米。38亿个太阳质量的大黑洞的密度,与此相当。其视界半径为75个天文单位,已经超过冥王星轨道。

第6类黑洞,65亿倍太阳质量黑洞,M87。

这就是2019年4月10号公布的,由视界事件望远镜拍摄的第1个有照片的黑洞。这个大黑洞的位置在本超级星系团的中心。它的半径是130个天文单位,如果放在太阳系,会把大部分的柯伊伯带包括进去。它的密度相当与海拔6000米左右的空气密度。

本次实际上拍摄到的是,在黑洞周围绕着黑洞高速运转的气体发出的光谱。

高速旋转的物质会形成一个盘状,分布在黑洞的周围,类似于环绕土星轨道的光环那样,被称为吸积盘。吸积盘的物质在向黑洞表面堕落的过程中,会发出强烈的辐射。这些辐射,被地球上的射电望远镜接收到,经过两年多的数字化处理,就合成了今天我们所看到的图像。

这颗距地球5000万光年的超级黑洞,位于本超级星系团的中央。而这颗超级黑洞,本身又是一个庞大的椭圆星系的主宰者。

本星系团是一个拥有2000个星系的庞大集团。银河系即为其中一员。银河系围绕着M87所在的椭圆星系做圆周运动。

而本星系团又隶属于一个更加庞大的本超级星系团。

而本超级星系团,仅仅是辽阔宇宙的一小部分。

第7类黑洞,200亿倍太阳质量黑洞,是人类观测到的已知更大的黑洞。

由于理论上黑洞的质量是没有上限的,人类可能会观测到更大的黑洞。所以多算了几组。

第8类黑洞,存在于理论计算中,但是在实际中还没有被观测到,然而特别有意义的一万五千亿倍太阳质量黑洞。

15,000亿倍太阳质量的黑洞,视界边缘的潮汐力,刚好和地球表面的引力相等。这样的黑洞直径是0.94光年。直径大于此的黑洞,都是可以安全靠近的黑洞。同样的数据也可以适用于虫洞,可供安全穿越的虫洞最小直径就是0.94光年。

站在这样的黑洞的视界表面,和我们站在地球表面没有什么区别。有科学家认为在黑洞的视界表面热量会从低温区向高温区流动,如果这一说法成立,那么在黑洞的视界表面将违反热力学第二定律。

第9类黑洞,与银河星系大小相等的黑洞。

视界表面的引力已经低到几乎为零,同时密度也极低。

黑洞的特点是:越大越安全,境界堪比世外桃源。

如果宇宙存在着超级文明,那一定生活在大黑洞的视界表面。

黑洞的视界表面,时间静止,热力学第二定律被逆转,人永生不会衰老。

有科学家猜测,每一个黑洞里都是一个小宇宙。人类所在的整个宇宙,本身很可能就包裹在一个巨大的黑洞里面,可观测宇宙的边界很可能就是黑洞视界的内表面。而人类所在的地球的位置,恰恰是在奇点,所以从地球上看过去南北两个天球,观测到的宇宙空间的大小相等。

可以穿越的是虫洞,不是黑洞。

在科幻电影《星际穿越》里面,出现在木星附近,可被穿越的是虫洞,不是黑洞。黑洞没有出口,虫洞有出口。虫洞两边,连接着不同的空间。

VBA数据库分工作表归类汇总数据

【分享成果,随喜正能量】真正的智者,会从外物回到内心,通过别人看清自己。经过太多坎坷,总会遇见生活的甜,因为,难关已过,好福必至。。 ??

《VBA数据库解决方案》教程(10090845)是我推出的第二套教程,目前已经是之一版修订了。这套教程定位于中级,是学完字典后的另一个专题讲解。数据库是数据处理的利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的 *** 和实例操作,教程之一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册,八十四讲,今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是:VBA数据库分工作表归类汇总数据

第五十五讲 工作表查询时,实现分工作表数据归类汇总

大家好,我们继续讲解VBA数据库解决方案,今日讲解第55讲内容:工作表查询时,结合数组,实现在工作表查询的同时,完成分工作表的归类汇总。今日的内容对于实际的工作非常重要,也是我根据实际的工作场景加工整理的一段代码。

1 应用场景的具体分析

实例问题:大家看我下面的工作表数据截图,每型号产品是给不同的生产厂生产的,供货的是不同的供应商,那么问题来了,我要实现分供应商把各个型号进行汇总,同时把供应商的分别放置在不同的工作表中,如何实现呢?

我们先进行一下问题的分析:

1) 在数据处理前我们要知道有多个供应商,而且这个数据是不固定的。

2) 要根据供应商的数目,插入工作表。

3) 要按照供应商的不同来提出数据,并讲提出的数据加入相应的工作表。

看起来很复杂,但确实是我们的工作实例了,如财务的工资表可以根据代码分部门;物流部门可以按此代码分供货商,销售部门可以按此代码进行客户的分类等。

2 工作表查询的同时,完成分工作表归类汇总的代码及代码解读

好了,还是看我提供的代码吧:

Sub mynzRecords_55() '第55讲 结合数组实现在工作表查询的同时,完成分工作表的归类汇总

Dim cnADO, rsADO As Object

Dim strPath, strSQL3, strSQL4 As String

Worksheets("55").Select

Cells.ClearContents

Set cnADO = CreateObject("ADODB.Connection")


strPath = ThisWorkbook.FullName

cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath

Arr = cnADO.Execute("Select Distinct 供应商 From <数据备份$>").GetRows

For k = 0 To UBound(Arr, 2)

strSQL = "Select 型号,数量,生产厂,单价 From <数据备份$> Where 供应商='" & Arr(0, k) & "'" & " order by 型号"

ActiveWorkbook.Sheets.Add after:=Worksheets("数据备份")

ActiveSheet.Name = Arr(0, k)

With Sheets(Arr(0, k))

= Array("型号", "数量", "生产厂", "单价")

..CopyFromRecordset cnADO.Execute(strSQL)

End With

Next

cnADO.Close

Set cnADO = Nothing

End Sub

代码截图:

代码讲解:

1 Arr = cnADO.Execute("Select Distinct 供应商 From <数据备份$>").GetRows

上述代码把供应商的名称排重手计入变体变量ARR,需要注意的是,这个ARR是个二维数组。

2 strSQL = "Select 型号,数量,生产厂,单价 From <数据备份$> Where 供应商='" & Arr(0, k) & "'" & " order by 型号"

上述代码实现了按供应商的名称提取数据。Arr(0, k)的数据即是供应商的名称

3 ActiveWorkbook.Sheets.Add after:=Worksheets("数据备份")

ActiveSheet.Name = Arr(0, k)

上述代码是把供应商的名称作为工作表的名称,在数据备份工作表之后插入。

下面看代码的运行:

我们看到新增了两个工作表,名称和供应商的一致,里面是我们需要提出的数据。

今日内容回向:

1 如何实现不确定数据的数据提取?

2 对于变体变量的数组是否清楚呢?

本讲内容参考程序文件:VBA与数据库操作(第二册).xl ***

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

【分享成果,随喜正能量】修行路上,是非、纷争慢慢清零,心中无闲事,则日日是好日。不计较”吃亏”,才能享有一个自在的生活;不吝于”布施”,才能拥有一个富有的人生。。

2023用Excel *** 你的专属时间登记清单

2022年一年就这样过去了,这一年时间过得真快,真要写一个年度总结的时候,却发现自己无从下笔,这一年感觉非常忙,感觉非常累,感觉太多,真要具体到某件事情的时候,又想不起来了,或许因为年龄的增长,记忆越来越差,很多事情如果不用文档记录下来,可能就永远的遗忘了,为了让2023年不会忘记太多的事情,在2023年的开始的之一天,创建一个简单的Excel表,作为自己个人的时间登记清单;

在APP流行的当下,为什么还要用Excel来记录呢?市场上关于时间管理类的APP太多了,有清单类的、有打卡类的、有任务式的各种各样的,功能也非常多,界面也绚丽。但对于古哥来说,本机的Excel文档的方便是APP替代不了的,可以随时自定义科目,也可以随时变换统计纬度,生成各种统计图和表,最为关键的是数据掌握在自己单机的电脑上面,也不用担心“大数据”给我推送广告了,也不怕APP哪天停止运营数据没了。

为什么不直接做一张《时间管理表》?而选择做一张《时间登记表》呢?两者有什么区别呢?时间管理表强调计划与实际的对比,很多时候我对时间的计划把握不好,计划不如变化快,做的计划非常详细,结果执行相当差,干脆直接等时间完后,马上做时间登记,在这样短的时间内登记,可以迅速回忆起这段时间做了什么,在把这些事项分别登记到不同的分类中,这样反而简单,高效;

做《时间登记表》最为关键的是对时间的消耗方面进行一级分类和二级分类,通俗点就是说时间到底花在哪里了?在设计一级分类和二级分类前预先想好大概几个一级分类和二级分类,不建议用三级分类,而且更好每一级分类不超过8大类,还要填写方便,不然时间都占用在登记上了,本来就是对时间登记的本末倒置。

01 睡眠休息

睡眠休息放在之一位置,只有保证足够多的睡眠和休息才能有能量和精力去完成学习成长、工作事业的目标。加入这个类别也想找出自己一天睡觉多个小时不困,是否会入睡困难等;这个分类下面的二级分类:1.睡觉、2.午休、3.小憩;

02 学习成长

学习成长的时间一年到底花了多少?这类时间应该属于重要的但不紧急的,以前想学的东西经常半途而废,看一下到底什么时候“废”的。学习成长下面可分的类别比较多,先按:1.英语、2.写作、3.阅读、4.逻辑、5.数学、6.记录。这个几分类来登记每个分类至少要保证300个小时以上的刻意练习,也就是差不多每天每个分类需要给他们至少1小时。

03 工作事业

工作和事业是2023年的重点,如何突破,如何完成都是需要去奋斗的,这个分类的下面就有一个分类:1.工作;这样分的原因是因为不想登记的时候花太多的时间去切换。全心全意的专注工作模式;

04 社交亲情

时间分类中社交和亲情是比较容易忽略的一个时间,对于有“社恐”的古哥来说,能够不社交就不社交,能够宅在家就宅在家,绝不外出。平时工作忙起来对亲情的时间也比较少,所以2023年刻意的把这些分类列出来,保证时间;1.父母、2.妻儿、3.朋友、4.同事、5.客户;

05 日常生活

日常生活就是一些“鸡毛蒜皮”的事情,这些事情相当于碎片化时间,不做也不行,如吃饭、做饭、家务、洗护、方便、整理、购物等,这些时间不加以控制的话,可能就是一个时间黑洞。如购物,本来只想买A,结果一不小心花了几个小时买了一大堆东西,再比如方便的时候,刷起抖音根本停不下来……;

06 运动健康

恢复体力精力睡眠是非常重要的,除了睡眠更加需要腾出时间来对身体进行锻炼,身体强壮才是革命的本钱,这个分类结合自己的年龄和特点,主要分类二个方向的,一个是有氧运动(步行、跑步、骑行),另一个是无氧运动(俯卧、仰卧、力量)。

07 休闲娱乐

现在回忆2022年,这一分支明显超标了,特别是游戏这个分类,2023年严控这个分类,控制游戏、视频(抖音、头条)、闲聊等时间;

08 交通出行

工作的原因经常出差,每年花在交通上的时间也非常多,这部分时间如果自己不开车的话,可以实现时间创收,交通出行如打车、高铁在车上的时间可以进行学习工作,如阅读、写作等。所以能不开车就不开车;

所有分类都设计完了,用Excel设计就相对简单了,1.0版本只需要两个页面就可以了;

表1:科目,也就是分类,按上文中录入,录入这个格式的目的是方便后续创建下拉列表,一级二级联动

表2:清单,就是登记的清单格式,如下图,只需要把用时输入,再通过一级二级下拉选择正确的分类,剩下的日期、开始时间、结束时间全部交给公式了,如何设置,明日分享;

这样设置的话,可以最快速的把一天的时间登记完。

未完待续……

我是古哥:

从事制造行业18年,在企业运营、供应链管理、智能制造系统等方面具有丰富的实战经验。企业智能化,柔性化计划运营管理专家,擅长通过企业流程优化规范,企业管理、导入计划运营提升企业效率;对提高企业准时交货率,降低企业库存,输出智能制造人才有丰富的经验。学习PMC生产计划,关注古哥计划!

Range范围的调整及EXCEL单元格及图表插入

分享成果,随喜正能量】不要对失去过于纠结,这不仅有利于让你放下曾经的美好事物,也有利于让你在面对现在所拥有的一切,能够更加安心、更加踏实。。

《VBA之Word应用》,是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、 *** ,然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章,今日内容第六章 “Word中的Range对象(下)”第3节:Range范围的调整及EXCEL单元格及图表插入

第三节 Range对象的 *** (七)

大家好,我们这讲继续Range对象 *** 的讲解,在上一讲中我们讲解了Range对象的InsertParagraph *** 、InsertParagraphAfter *** 、InsertParagraphBefore *** ,这节我们将讲解SetRange *** 、PasteAndFormat *** 、PasteSpecial *** 。

1 Range.SetRange ***

这种 *** 设置现有范围的起始字符和结束字符的位置。

语法:expression. SetRange(Start, End)

其中expression 是必需的,是一个代表Range对象的变量

参数:

1)Start 必需 Long 范围的起始字符位置。

2)End 必需 Long 范围的结束字符位置。

  • 字符位置值从文章的开头开始,之一个值为0(零)。 将计算所有字符,包括非打印字符。 隐藏字符即便未显示也计算在内。
  • SetRange *** 以重新定义现有的 Range 对象的起始和结束位置。此 *** 不同于Range *** ,后者用于在给出起始和结束位置的情况下创建范围。

2 Range.PasteAndFormat ***

该 *** 粘贴选定的表格单元格,并为其设置指定的格式。

语法:expression.PasteAndFormat(Type)

其中expression 是必需的,是一个代表Range对象的变量

参数:Type 必需 WdRecoveryType 粘贴所选的表格单元格时使用的格式类型。

WdRecoveryType 枚举值:

wdChart 14 将 Microsoft Office Excel 图表粘贴为嵌入的 OLE 对象

wdChartLinked 15 粘贴 Excel 图表并将其链接到原始 Excel 电子表格

wdChartPicture 13 将 Excel 图表粘贴为图片

wdFormatOriginalFormatting 16 保留所粘贴材料的原始格式

wdFormatPlainText 22 粘贴为无格式的纯文本文字

wdFormatSurroundingFormattingWithEmphasis 20 使所粘贴文本的格式与周围文本的格式匹配

wdListCombineWithExistingList 24 将粘贴的列表与邻近的列表合并.

wdListContinueNumbering 7 使粘贴的列表根据文档中的列表继续编号。

wdListDontMerge 25 不支持.

wdListRestartNumbering 8 对粘贴的列表重新进行编号

wdPasteDefault 0 不支持.

wdSingleCellTable 6 将单个单元格表格粘贴为独立的表格。.

wdSingleCellText 5 将单个单元格粘贴为文本.

wdTableAppendTable 10 通过在所选行之间插入粘贴的行,将粘贴的单元格合并到现有的表格中

wdTableInsertAsRows 11 将粘贴的表格作为行插入到目标表格的两行中间.

wdTableOriginalFormatting 12 粘贴一个追加的表格,而不合并表格样式.

wdTableOverwriteCells 23 粘贴表格单元格并覆盖现有的表格单元格.

wdUseDestinationStylesRecovery 19 使用目标文档中使用的样式.

3 Range.PasteSpecial ***

该 *** 插入剪贴板中的内容

语法:expression.PasteSpecial (IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)

其中expression 是必需的,是一个代表Range对象的变量

参数:

1) IconIndex 可选 Variant 如果 DisplayAsIcon 为 True,则该自变量是一个数字,对应于要在 IconFilename 指定的程序文件中使用的图标。 图标显示在“更改图标”对话框中:0(零)对应于之一个图标,1 对应于第二个图标,依此类推。 如果此参数被省略,使用的是之一个(默认)图标。

2)Link 可选 Variant 如果为 True,则创建指向“剪贴板”内容源文件的链接。 默认值为 False。

3)Placement 可选 Variant 可以为下列 WdOLEPlacement 常量之一:wdFloatOverText 或 wdInLine。 默认值为 wdInLine。

4)DisplayAsIcon 可选 Variant 如果为 True,则将链接显示为图标。 默认值为 False 。

5)DataType 可选 Variant 剪贴板内容在插入文档后采用的格式。 可以为任意 WdPasteDataType 常量。

6)IconFileName 可选 Variant 如果 DisplayAsIcon 为 True,则此参数是存储要显示的图标的文件的路径和文件名。

7)IconLabel 可选 Variant 如果 DisplayAsIcon 为 True,则此参数是显示在图标下方的文本。

WdPasteDataType 枚举:

wdPasteBitmap 4 位图.

wdPasteDeviceIndependentBitmap 5 与设备无关的位图.

wdPasteEnhancedMetafile 9 增强型图元文件

wdPasteHTML 10 HTML.

wdPasteHyperlink 7 超链接.

wdPasteMetafilePicture 3 图元文件图片.

wdPasteOLEObject 0 OLE 对象.

wdPasteRTF 1 RTF 格式

wdPasteShape 8 形状

wdPasteText 2 文本

4 实例:Range范围的调整及EXCEL单元格及图表插入

下面我们通过一个实例来讲解一下本节的知识点,这个实例中我们先定义一个Range,为当前文档的第二段,然后利用SetRange来扩展这个范围。

之后我们在文档的最后插入一个空的段落,将光标移到这个空段落之处。

紧接着,我们要打开一个Excel文件,从这个文件中,我们把B2单元格复制到剪贴板,并将剪贴板的内容以对象的格式粘贴到光标处。

之后,我们再次在文档的最后插入一个空的段落,将光标移到这个空段落之处。并将Excel文件中的图表复制到剪贴板中,并将剪贴板中的内容粘贴到光标处。

最后关闭Excel文件。

我们先看一下代码:

Sub mynzB()

<代码见教程>

End Sub

代码截图:

代码解读:

1)Set myRange = ActiveDocument.Paragraphs(2).Range

MsgBox myRange.Text

以上代码设置 myRange 并提示给用户myRange 内容。

2)myRange.SetRange Start:=myRange.Start, _

End:=ActiveDocument.Paragraphs(3).Range.End

MsgBox myRange.Text

以上代码调整 myRange的范围并提示给用户myRange 内容。

3) ActiveDocument.Content.InsertParagraphAfter

myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _

End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End - 1

myRange.Select

以上代码在活动文档的末尾插入一个段落,并将光标位置调整到最后。

4)Set myEXL = CreateObject("excel.application")

myfile = "EXCEL工作簿.XLSX"

myEXL.workbooks.Open ActiveDocument.Path & "\" & myfile

myEXL.Visible = True

设置要打开的文件,并打开这个文件。

5)myEXL.Sheets("Sheet1").Range("B2").Copy

Selection.Collapse Direction:=wdCollapseStart

Selection.Range.PasteSpecial DataType:=wdPasteOLEObject

'将单元格B2以单元格的形式粘贴wdPasteOLEObject是单元格的格式,如果是文本的格式可以用wdPasteText。

6) ActiveDocument.Content.InsertParagraphAfter

myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _

End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End

myRange.Select

以上代码再次在活动文档的末尾插入一个段落,并重置光标位置

7) myEXL.Sheets("Sheet1").ChartObjects(1).Copy

Selection.PasteAndFormat Type:=wdChartPicture

以上代码复制图表并粘贴,粘贴的是图片的格式

8)myEXL.workbooks.Close

Set myEXL = Nothing

以上关闭Excel文件。

最后我们看代码的运行:

Excel工作表的界面如下:

代码运行的提示框:

我们在当前文档中可以看一下图表的格式,会发现这个图表是图片格式的。

今日内容回向:

1 Word中Range对象的SetRange *** 、PasteAndFormat *** 、PasteSpecial *** 的意义是什么?

2 如何利用VBA插入单元格及图表?

本讲内容参考程序文件:Doc 006文档.docm

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

分享成果,随喜正能量】得与失,是一种选择,也是一种放弃,没有一种选择十全十美,没有一次决定万无一失。让自己豁达起来对于已经失去的东西,你或许也应该庆幸,它们不会再打扰你的内心。

你还在浪费A4纸?Excel按下这个键,一张纸即可打印全部表格内容

今天一大早,打开支付宝,就发现同事王二又来偷我的能量了,好气哦!

不是我小气啊兄弟们,而是王二这个憨憨,他根本就不配拥有能量!因为他连最基本的Excel表格打印都不会!明明可以用一张纸就能打印出来的内容,每次都要分成好几页打印出来,一周就能用掉100张A4纸,你们评评理,这种人配种树吗?种再多的树也不够造纸给他打印用啊!

所以,今天我们就来聊聊Excel一张纸打印所有表格内容这件事,如果你学不会,就不要去偷蚂蚁森林能量了!

*** 一

点击「视图」,进入「分页浏览」,通过拉动页面的横线调整表格的打印区域。将横线拉动到表格末尾即表示将当前所有内容打印在一页纸上。

*** 二

点击「页面布局」,进入「页面设置」,在缩放调整为「1页宽」和「1页高」。

*** 三

很多小伙伴会有所疑惑,有时候明明一页纸就能打印出来的内容,为什么偏偏打印出两张纸呢?其实这都是因为你没有选好打印区域,将表格那些空白无效区域也打印出来了。

记得要先设置打印区域,之后再打印。

OK,这就是将表格内容打印在一张纸上的 *** 了,赶紧Get了,别再浪费A4纸啦!这样才能心安理得地去偷能量啊!

说到这里,顺便再科普几个Excel打印技巧吧,凑凑字数~

食物热量表大全excel,食物热量表大全excel-第1张图片-

1、打印行号列标

2、居中打印

好了,今天的Excel打印小讲堂就到这了。学会了就给我点个赞吧,学不会...那就赶紧收藏,多看几遍啊!

头部动力电池厂商未来拼什么?数字研发技术 | 数字时氪深度研究

文 |张丞

编辑 |石亚琼

封面来源|视觉中国

今年动力电池领域竞争开始趋向白热化。宁德时代和中创新航分别推出自己的新一代产品,麒麟电池和OS高锰锂电池。新进入者欣旺达在今年宣布多个扩产项目规划,未来将寻求独立上市。

天下武功,唯快不破。

试想如果快于对手3-6个月发布新一代性能更好或成本更优的电池产品,企业将有可能在市场上享受一定的市场溢价,或是用更低的价格占据更高的市场份额。

如此持续多代产品研发优势的积累,将会为企业赢得战略主动。而这一切有赖于研发体系的建设。可以看到头部电池企业已经深刻认识到了这一点,在这方面不断加大投入。

比如宁德时代持续打造全球领先的数字化研发平台,通过数字化研发手段提升研发效率,将大数据、云计算和人工智能,都嵌入到电池研发,实现理性设计。

中创新航打造的电池技术创新平台囊括了材料开发、电芯设计、化学体系创新、仿真及测试、智能制造、数字化和材料回收这六大方面,为开发新一代动力电池产品提供核心技术能力的支持。

中创新航电池技术创新平台

对于动力电池企业来说,未来拼的是技术创新的速度和力道。技术创新硬功夫的背后则是一套由数字研发技术支撑的高效产品研发体系。

一、电池核心研发能力体系及技术趋势

技术密集型企业核心竞争力主要体现在企业研发能力或者新产品开发能力的强弱上。新产品开发能力本身又是由各类行业专有的技术能力有机整合而成的。

在关注到产品背后的核心技术能力之外,我们还要看到整个研发体系的构建。那么在新产品开发能力的“冰山”之下,电池大厂们究竟在构建或者说需要构建什么样的研发体系?

对于电池企业来说,电池新产品开发相关的核心研发能力及体系构成可以大致分为三层,如下图所示。

图 电池研发能力体系示意图 36氪制图

新产品开发主要依托企业的核心技术能力进行,因此图中新产品开发能力金字塔的底层是各类核心技术能力,在电池行业领域,包括电芯设计能力、包含正负极、隔膜、电解液等材料在内的材料开发能力、电化学仿真能力、材料计算能力、测试实验能力、生产工艺能力(包括烧结包覆)等等。

中层是研发整合能力,更值得注意的是,培育高效新产品开发能力的核心也包括如何处理组织内部核心能力、知识和流程的整合问题,这是一个跨学科、跨职能的问题。

整个产品开发体系如果想要高效地运转,就必须形成强大的研发整合能力,将各项技术能力以及各路研发团队掌握的数据和知识有机地整合在一起。

更高层就是企业的新产品开发能力,其结果就是企业持续推出的各类动力电池产品。

电池的新产品开发过程通常会经历A样、B样、C样等几个阶段,研发流程实际上是多次原型方案设计-测试验证(包括实验和仿真)的循环,整个过程需要充分考虑化学体系和电池结构、电池性能表现、生产工艺可行性和成本等各方面因素,考察新产品是否满足了客户对于安全性、能量密度、功率等方面的需求。

无论是宁德时代,还是固态电池公司Solid Power,亦或是其他的电池公司,这些研发阶段划分和决策考虑基本上都是一致的。

图 宁德时代产品研发流程

图 Solid Power产品开发阶段划分

进一步讲,研发流程大体相同的情况下,开发速度对于企业竞争优势至关重要。如果电池企业能够建立起更加高效的设计—仿真/测试验证—制造这一产品研发循环,一直以竞争对手更快的速度来实现新产品开发,就可以赢得战略性的竞争优势。

但是开发速度要建立在高效且稳定的研发体系基础之上。一个坚实的研发体系必然包含明确精准的设计目标、注重TTM(time to market)、整合内外部资源、高质量且高效的原型方案设计-测试验证循环,这些可以帮助企业更快地开发出有吸引力的新产品并探索生产工艺流程。

对于电池研发来讲,要想整体产品研发体系循环更为高效,就需要逐步减少中间实验试错迭代的步骤和次数,逐步提高仿真指导设计的比重,同时通过数字化手段提高设计-测试/仿真-制造循环过程中的数据收集、整理和分析流程的效率。

从实验试错为主导逐步转变为仿真驱动正向设计为主导,从各环节、各团队独立分析逐步转变为组织整体协同研发。

图 清华大学李哲副教授:动力电池的先进设计技术与研发模式变革

由此可见,电池的材料创新、结构创新与系统集成创新都离不开信息技术的运用,愈发需要通过计算与数据来整合、驱动整个研发体系。

具体而言,数字化研发技术主要包括的是底层的虚拟仿真技术以及中层的研发整合能力。企业可以借助研发数字化来构建高效产品开发循环。

构建高效产品开发循环体系的关键数字化技术主要包括经典的CAE仿真技术、新兴的计算材料学技术、仿真与测试实验的数据管理与分析技术。这些技术也在不断演进,有新的发展趋势值得关注。下面将逐一介绍:

多尺度仿真与仿真大众化

CAE仿真作为经典的研发数字化技术之一,其在电池领域发挥的作用将愈发关键。现有电池仿真技术和软件仿真多集中在电芯及模组系统的尺度上,对于微观尺度上的电化学过程的仿真还存在一定的技术瓶颈,而突破这些瓶颈需要结合锂电池电化学模型的理论创新来实现。

当前电池仿真技术主要的发展趋势为多尺度仿真。多尺度仿真即跨越微宏观多个尺度,在电池材料本征特性(微观原子、分子层面)、活性材料颗粒、极片、电芯以及电池模组、电池包多个尺度上进行仿真模拟和设计优化。

下图展示了从材料探索到系统设计的多尺度设计和模拟。

图 锂离子电池多尺度设计和模拟技术概况

提升锂电池正向设计能力需要从材料-结构-工艺-性能这个四面体关系出发。微观尺度上的材料基因组、DFT、MD等 *** 是从材料本征特性出发,辅助筛选出新型正负极、电解液、隔膜以及粘结剂等材料,开发新的化学材料体系,满足新型电池能量密度、功率或者安全性上的要求。

另一方面,在颗粒尺度上构建真实极片结构模型,则更多是从电极微观结构出发提高电池整体性能,且可以与制造工艺结合,优化工艺参数,实现设计与制造两端协同优化。

此外,未来固态电池的研发将基于新的电化学理论模型,这也需要电化学理论创新来引领工程创新。

提高锂离子电池的性能、合理优化电池材料和结构上的设计,需要系统地研究电池内部各物理场的耦合作用机理,从多尺度范围上深入理解电池运行机理,建立数学物理模型,并运用FEM、FVM、LBM等数值模拟算法和降阶模型,结合高性能计算,构建高效的设计-仿真验证的产品开发循环体系。

更多关于锂电池多尺度仿真技术及CAE前沿发展的内容,之前笔者已经在《动力电池竞争的下一维度,仿真寻找电池研发的「摩尔定律」》一文中较为详细地阐述过了。

目前头部电池企业已经开始利用前沿仿真技术来对电池新产品研发进行辅助指导。宁德时代董事长曾毓群认为材料创新实质上比拼的是计算能力。

宁德时代通过数字化研发手段提升研发效率,不断推进材料体系创新、系统结构创新,加速了在钠离子电池、锂金属电池、无钴无贵金属电池等新化学体系方面的研发进程。

2021年,宁德时代通过高通量材料集成计算平台,在原子级别对材料进行仿真设计优化,研发出高能量密度、高稳定性和低温性能优异的之一代钠离子电池技术。

宁德时代也在运用基于密度泛函理论的之一性原理,通过高通量计算筛选出掺杂元素,对现有材料进行改性,进一步提升电池工作电压、能量密度等指标。

宁德时代建立了21C创新实验室,总共分为六个团队,分别负责数字化研发(主要是实验测试数字化管理)、前沿材料研究、新一代太阳能电池、先进电池研究、聚合物研究以及智能计算与数字中心。

该实验室核心是要构建AI+物理的数字化研发体系,这个体系既包括多尺度计算模拟仿真和高通量计算,比如运用相场 *** 模拟来探究颗粒分布对极化的影响,同时还引入了AI技术,比如机器学习式函数的力场和分子动力学 *** ,辅助材料筛选和设计,比如电解液的材料,先进行材料虚拟筛选,从数亿计的材料里面筛选出更佳的材料。

宁德时代也在2021年宣布与深势科技合作,共同研发材料计算平台,从原子分子尺度探求新的电池材料化学体系,力求从更底层的物理化学反应过程出发,找到电池电化学过程的基本规律,并以此来筛选可用的正负极材料、电解液材料,并设计材料的微观结构。

中创新航也在2022全球新能源与智能汽车供应链创新大会上表示,公司在OS高锰锂电池新产品研发过程中,综合运用了测试的实验技术与虚拟的仿真技术。

图 中创新航OS高锰锂电池产品核心技术及指标

中创新航提到为了解决锰铁锂导电性差、电池阻抗高、极化大的业界难题,综合运用了包覆、掺杂、梯度设计等工艺,具体的技术设计综合运用了实验测试手段和材料仿真技术,包括上述提到的原子分子尺度的之一性原理和电芯尺度的电化学仿真技术,比如在设计初期可以用于评估掺杂不同过渡金属元素之后电极材料的导电性能提高多少、内阻解决程度能有多大。

图 中创新航电池研发核心技术

仿真技术本身非常艰深复杂,需要输入大量的初始条件和参数,以及什么样情况下使用哪种网格离散格式和哪种数值模拟算法,工程师都需要经过长期的专业培训才能掌握,而且理解仿真结果和产品性能之间的关系也并不容易,这些都是构建高效研发体系的瓶颈。

因此,仿真技术近年来也开始出现大众化、普惠化的趋势,其价值意义正是在于降低使用仿真技术、理解仿真过程结果的门槛,以促进设计、仿真、测试以及产品人员之间的深度交流。

实现仿真大众化、普惠化的重要技术 *** 是构建仿真APP,将专家经验、行业知识和设计仿真流程封装起来,提供专用场景下的工程模块,供普通设计工程师或非工程师群体直接使用,从而可以大幅降低仿真技术的应用门槛。

例如,仿真APP可以让热管理专家评估仿真结果是否合理,但他们不需要掌握仿真的复杂知识和求解器操作来完成仿真工作。

目前,不少国际主流仿真软件都开始提供构建仿真APP的功能,例如COMSOL Multiphysics 就包含了用于构建和发布 App 或引导式仿真工作流程的功能。这个功能可以让仿真专家创建仿真应用程序,其中只有几个变量需要输入,这样就可以允许仿真新手和非专家在不学习仿真软件的情况下使用APP来完成设计的虚拟验证任务。国内索为、安世亚太、云道智造也都在工业仿真APP方面有所突破。

研发数据管理与分析

目前电芯研发,仿真验证和实验测试验证都是不可或缺的环节,整个研发过程中会产生大量虚拟验证和真实验证的数据。

因此,设计、仿真和测试的数据能否畅通无阻地在各研发团队中传递共享,各职能团队成员能否直观地理解这些数据背后的意义,这些是研发整合的基础,也将决定整个研发体系整合的效果。

目前电池企业内部设计、仿真、测试往往是分开独立的团队,而电芯研发是一个复杂的高集成度的问题,因此高效、深度的双向沟通是加速电芯研发的重要和必要的因素。“把设计需求或方案扔给下游就完事”的 *** 不利于多部门团队之间及时沟通产品的设计方案,频繁密切的信息交互和数据流通,当然这种高效的集成整合对于组织协作提出了更高要求。

要想实现各研发团队间数据高效共享,首先就要对设计、仿真、测试等各环节的数据进行管理。

材料数据管理:

电池研发的核心在于“材料配方”,研发过程中会涉及到种类繁多的金属和非金属材料,不同供应商提供的同种材料、不同工艺制备出来的同类型材料都可能在材料属性特征上存在差异,加上掺杂、包覆等多种工艺,使得电池材料的管理也非常复杂。

如果企业能够有效管理研发所用到的材料数据,综合企业内部的试验、设计、历史积累数据和企业外部材料信息数据资源,最终形成一个覆盖范围广泛的企业级电池材料信息管理系统,由此更加方便地获取准确的材料数据,将有效提升企业电池研发仿真精度与效率。

仿真数据管理:

在仿真的过程中,针对不同批次、不同型号的电池产品生成了海量的、不同类型的仿真文档和数据,对应着不同的分析结果。目前这些仿真结果数据主要存放在工程师电脑端,容易发生数据丢失和版本混乱等问题,且团队内部数据共享困难,设计、仿真和试验之间存在大量“数据孤岛”。如何有效建立仿真分析、测试数据与产品文档的对应管理关系十分关键。

此外,企业需要建立自己的虚拟仿真规范和知识库,实现对仿真知识的沉淀和复用。企业通过建立自动化脚本和仿真APP,实现仿真流程的自动化,创建完整的仿真流程模板,以此将分析专家的仿真知识和仿真流程传承给新入门的分析工程师。如此可以避免因为仿真工程师知识水平和经验积累的差异导致仿真效果的差异。

测试环节数据管理:

目前电池研发的测试规模越来越大,投入的资金、设备、物料和人力已经远远超过一般的实验室测试。

例如近期对外披露的蜂巢能源无锡全球研发中心,其中试验中心占地面积超2.4万㎡,整个电芯测试区域有1.26万个测试通道,仅试验设备的投资额就达到数亿元。如此大规模的测试活动自然会产生海量的测试数据。因此,企业对于测试数据的管理能力亟待提高。

目前多数电池企业仍然主要以纸质或者借助Excel表格存储管理研发数据。少数头部企业通过上线研发试验管理系统(LIMS)来提高研发数据管理水平,保证测试数据的可追溯性和可重用性。

在部分电池企业,这类管理系统会覆盖电池常规测试、电池表征测试、电池失效分析等方面。宁德时代、国轩高科、中创新航和蜂巢能源等企业的试验中心都已获得CNAS认证,在研发测试能力建设上实现了重要一步。

数据分析平台:

在实现测试数据和流程的基本管理的基础上,企业需要建立电池表征管理和电化学参数库,实现电池测试数据和材料数据的结构化存储,搭建统一的数据管理分析平台,实现电池研发数据的全过程追溯,这也可以为之后将测试和仿真结合起来打好基础。

进一步的,企业可以通过建立数据平台对测试过程数据和结果数据进行分析和规律挖掘,尽可能地运用AI等技术提炼出电池内部机理规律。

在数据分析这方面,一家名为Voltaiq的美国创业公司值得关注。该公司开发了一个EBI(Enterprise Battery Intelligence) 平台,该平台可以从电池测试实验室、生产线和实际工况下的电池组自动化地收集大量电池数据,后续整个分析过程是基于云服务的。

Voltaiq 的技术解决方案可以帮助电池制造商和车企等电池价值链上的所有相关主体快速准确地获取、分析电池全生命周期中性能和质量数据,平台可以覆盖电池研发、制造、使用以及回收的全流程,从而使电池企业和车企等更有效地设计、开发、制造和使用电池产品。

图 Voltaiq平台技术及其商业模式

Voltaiq平台的功能主要集中在测试数据的分析方面,下面我们来逐一介绍其平台的主要功能:

  • 数据分析的基础是数据格式的统一,这涉及到元数据的治理。Voltaiq 会将从测试设备中采集到的数据转换为通用格式,工程师可以对整组电池、电池测试、性能日志和序列号和批次/批号、材料、化学成分等元数据进行快速搜索
  • 交互式绘图分析:可以让工程师使用30 多个时间序列数据字段和 70 多个指标进行数据分析。平台可以快速无缝地将测试过程中的各个数据文件“拼接”在一起,保证工程师可以快速查询电池的整个生命周期性能数据,评估累积 KPI(循环次数、容量、能量),相比传统EXCEL可以节省大量时间。

Voltaiq自动化分析

  • 多种电化学分析功能:用户可以在平台上进行循环寿命分析、HPPC测试分析、放电速率分析、dQ/dV曲线(微分容量曲线)分析,甚至还包括电池模组的EOL测试。帮助企业减少测试循环和分析时间。

Voltaiq EOL test

  • 测试通道的管理和资源分配,也会便于测试人员知晓电池位置和状态。
  • AI技术:Voltaiq 提供电池数据机器学习的开发环境与原型预测机器学习算法,用户可以在系统中构建并运行 Python 或 Matlab 分析,并根据实际电池性能验证模型

Voltaiq希望通过新的电池数据分析平台来帮助电池企业实现自动化的测试数据存储管理与分析,改变原先手动的基于EXCEL的数据处理 *** ,并提供AI技术应用的开发环境,以加速新材料、化学制品和制造工艺的测试与分析,从数据中获取技术洞察,缩短电池新产品开发周期。

Voltaiq已经为车企、电池企业以及电池材料企业提供服务,包括梅赛德斯奔驰、Forge Nano等。

其中Forge Nano 主要通过原子层沉积 (ALD) 来制造精密纳米涂层,创建核壳结构来保护活性材料的颗粒,实现较低的内阻,从而显着提高电池性能,增加电极容量,提高循环寿命,实现更快充电。

Forge Nano使用Voltaiq Battery Intelligence 平台可以更加快速地分析电池材料性能指标数据,以加快研发其新一代电池材料加工包覆技术。

Voltaiq&Forge Nano

国外类似的电池数据分析平台还包括Astrolabe、Batalyse、Galv *** yser、PyBaMM、BEEP、Battery Archive等。

国内电池企业也同样注重研发过程中实验测试和仿真的数据积累和分析,例如弗迪电池在开发高功率电池时需要考虑锂枝晶的问题,弗迪电池通过积累沉淀的300多种DOE数据库,结合电化学机理提出更为精确的锂枝晶模型,为高功率电池的研发提供了重要安全保障。

弗迪电池锂枝晶模型

国轩高科在部署LIMS、PLM等研发管理系统的同时,也注重研发协同平台的建设,目的是打造“研发大脑”。

国轩高科研发大脑

电池研发整合既需要从微观尺度到宏观尺度的仿真技术,也需要包含打通设计、测试、仿真的综合数据平台,以此实现电池研发数据的全过程追溯,以及跨部门、跨组织的研发协同。比如电池仿真技术公司易来科得开发的仿真平台,覆盖了电芯研发测试全流程,可以帮助电池企业建立更加高效的研发体系,加速新型号电池开发。

易来科得仿真平台

二、电池研发体系发展趋势

就电池研发体系本身而言,未来重要的转变一是结合材料计算、电化学仿真等技术 进行正向产品设计,尽可能减少制样测试的次数,避免盲目试错。二是运用数字化技术提高研发效率,特别是要实现研发高效协同。

而从研发体系出发延伸开来,研发设计与制造的融合趋势变得愈发重要。

更进一步的,研发整合甚至需要囊括设计-仿真/测试-制造-使用全流程,制造工艺与设计仿真相协同,综合考虑制造可行性和设计可行性,优化工艺参数,确定工艺窗口,加快新产品进入大规模制造环节的速度。

再比如利用云端电池历史数据,构建电池孪生模型,一方面可以探索电池机理规律,反馈得到的衰减数据,可以用于加深对电池老化机理的理解,优化电池设计。另一方面与传统BMS技术相比,可以更有效地减少前期开发过程中的实验量,缩短BMS系统开发周期。

此外,由于动力电池事关电动汽车的整车性能,对于电动车终端用户感知体验十分重要,所以无论是电池企业,还是介入电池研发制造环节的车企,都需要更多从整车研发的角度来考虑动力电池技术创新。

譬如中创新航对电池之于终端用户体验的阐释,底层也是最重要的就是安全,其次是成本和残值,这里的成本包括直接购买成本和使用成本,成本特别是原材料价格其实也是推动各家电池企业在今年瞄准磷酸锰铁锂技术路线进行量产的主要原因。

在第三层是普遍关注的续航、能量密度等因素,中创新航在这里还特别强调了NVH,因为电池现在已经作为一种结构件参与了整车的NVH(Noise/Vibration/Harshness),这一点就意味着,未来电池研发过程中需要从更多维度、从整车开发的系统层面去综合考虑电池的材料创新以及结构创新。

中创新航电池用户体验

同时,这也意味着整个电池研发体系需要和整车开发系统工程进行有机的融合。

从技术创新上看,车辆电动化过程中电池技术必须与整车技术深度绑定,比如从直接大模组电池包向电池底盘一体化、电池车身一体化等方向发展。电池开发已经不是一个单纯的零部件开发问题,而是整车开发的一大核心任务。

从研发架构上看,未来电池研发体系会更加注重材料、电池、模组、电驱动系统等各研发团队之间的协作。而电池研发更偏重“配方+材料”,生产工艺也更接近于流程行业,和整车研发以“零部件”为核心、生产以组装为核心的离散制造方式有很大不同。

如何整合不同类别的产品研发体系将是未来的一大挑战。这里也会涉及到MBSE的设计 *** 和技术,以后我们会继续探讨这部分内容。

尾声

公司是核心技术能力的有机组合,而非是产品或者业务的组合。公司就像是一棵树,核心技术能力是提供养分、营养和稳定性的根系,产品和业务则是由核心技术能力孕育出来的树干、枝叶和果实。如果只关注企业的产品,就会看不到它的力量之源,就像只看到树叶就感觉不到树的力量一样。

电池研发能力作为动力电池企业核心竞争力来源之一,其背后的核心技术能力、研发流程及体系,以及由此孕育出来的研发工具软件和平台是具备更高战略价值的。

这些将支撑电池企业形成高效的电池新产品开发能力,这种能力还将不断地转换为巨大的竞争优势。假如某电池企业能够基于更加高效的设计仿真-测试验证-制造的新产品开发循环,快于对手发布新一代性能更好或成本更优的电池产品。首先,该企业将能够在市场上享受一定的市场溢价,或是用更低的价格占据更高的市场份额,这种定价和市场份额策略是具备更强的灵活性的。

快速推出新产品的时间优势又是可以积累的,而对手有可能为了加快新产品开发的速度而忽视了研发体系的建设,盲目追赶很可能破坏了对自身研发和制造成本的控制,竞争格局上很可能进一步滑向劣势。

因此,可以看到高效的新产品开发体系将带来三种竞争优势,为企业赢得战略主动:

  • 更优异的性能
  • 更符合市场需求的产品
  • 更加灵活的定价和市场策略

高科技企业竞争的胜败不仅仅在于各个核心技术能力的强弱,更在于其整体研发体系的高效与否,在新产品研发体系和核心能力培育过程中,数字化技术对于研发整合的支撑作用至关重要。

从动力电池企业技术和新产品开发战略的角度出发,特别是在产业竞争愈发白热化的形势下,除去电池化学体系、技术路线的选择外,构建高效的动力电池研发体系是至关重要的。

构建过程中既要加强核心设计仿真技术等研发能力的培育,又要运用数字化技术融合新产品开发流程,使得各层组织具备集成性解决产品设计问题的能力,而后重新重塑整个开发循环,这对于培育企业核心技术能力将带来助力。

企业技术与创新战略的核心目的是建立、培育自身核心技术能力,具体的战略实施也都将围绕着具体核心技术及研发整合来展开。

当产业环境变化、技术演化趋势变革、核心竞争要素改变时,企业要与时俱进地围绕新的核心能力构建高效的新产品研发体系,从而在竞争中掌握战略主动。

参考资料

1.Liu X, Zhang L, Yu H, et al. Bridging Multiscale Characterization Technologies and Digital Modeling to Evaluate Lithium Battery Full Lifecycle. Advanced Energy Materials, 2022, Jun 15:2200889.

2.中创新航招股说明书

3.宁德时代招股说明书

4.Solid Power:The Road to a Solid-State-Powered Future: Automotive Qualification and the “A-Sample” Cell

5.清华大学李哲副教授:动力电池的先进设计技术与研发模式变革

https://mp.weixin.qq.com/s/kcxjLOgook-0AQXIfVEtmQ

6.宁德时代-21C智算与数据中心负责人-赵旭山:计算和数据驱动的新能源电池研发——“AI+物理”材料创新研发生态

7.行业首发:中创新航OS高锰铁锂电池——面向TWh的又一次结构创新和材料创新

https://mp.weixin.qq.com/s/cplf-eBcV1bZfqdtQiApOw

8.Voltaiq官网

9. 国轩高科数字化、智能化转型升级技术路线总体介绍

https://mp.weixin.qq.com/s/1Y30Cso9nqOoVTzGzhDNHQ

WISE2022 未来能源创投新风向大会

更多活动信息及行业详情,请关注微信公众号“数字时氪”(微信 ID :digital36kr),期待您的到来。

数字时氪

本文来自微信公众号“数字时氪”(ID:digital36kr),作者:张丞,36氪经授权发布。

3.2.13 工作表函数在VBA中的灵活应用

分享成果,随喜正能量】好的习惯,排名之一的是:自律;排名第二的是:终身学习;排名第三的是:保持运动。拥有这三种习惯,美好人生垂手可得。。

我给VBA的定义:VBA是个人小型自动化处理的有效工具。利用好了,可以大大提高自己的劳动效率,而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册,现在已经全部完成,希望大家利用、学习。

如果您只是一般的职场VBA需求,可以打包选择7.1.3.9教程+汉英手册,第7套教程是入门,第1套教程是入门后的提高,第3套教程字典是必备的VBA之精华,第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题,实际写代码的时候再辅助代码汉英手册,足矣!如果您想进一步提高,就需要选择高级阶段的教程了

VBA是面向对象编程的语言,博大精深。很多朋友咨询VBA的学习 *** ,我会陆续给大家讲解一些我的经验,大家可以慢慢体会。今日的内容是:3.2.13 工作表函数在VBA中的灵活应用

3.2.13 工作表函数在VBA中的灵活应用

在《VBA代码解决方案》这套教程中,给大家介绍了一种利用工作表函数CountIf来判断是否录入了重复值的方案。这种方案虽然不是我推荐的,但对于利用EXCEL多年的朋友是乐于接受的,在这节的代码中,我给出了:

Private Sub Worksheet_Change(ByVal Target As Range) '51 利用VBA代码,限制重复值的录入

With Target

If .Column <> 1 Or .Count > 1 Then Exit Sub

If WorksheetFunction.CountIf(Range("A:A"), .Value) > 1 Then

.Select

MsgBox "不能输入重复的人员编号!", 64

Application.EnableEvents = False

.Value = ""

Application.EnableEvents = True

End If

End With

End Sub

这里需要注意几点:

1 代码的书写位置,代码是写在哪里的?为什么?

2 工作表函数的利用 *** 。

3 判断的触发条件;判断值的重复在什么情况下触发;如何设置触发

4 程序控制权的理解,代码中为什么要有程序控制权的处理?

5 工作表事件中值的传递,在工作表中输入的数据是如何传递给程序的。

如果大家学习到这节,一定要再问一下自己上述的5个问题是否可以解答。如果能够解答,那么说明自己的VBA水平是达到预期的,如果还有部分问题不能解答,就需要再努把力了。学习的过程是循序渐进的,要在每节的代码中学到些自己需要的知识点。

当你学到我的第三套教程《VBA数组与字典解决方案》时会有更好的排重方案。

分享成果,随喜正能量】其实真正的信仰, 我认为它是一种善的教育, 人心向善就是, 这是一种信仰的教育, 如果有了这样的话, 那这是对他的一生当中可能是最珍贵的财富。。

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

ADO提取多个EXCEL工作表数据

【分享成果,随喜正能量】珍惜自己生活当中的一点一滴,好好积攒自己的福,不贪婪,不消耗,懂得惜福,才是大智慧。

《VBA数据库解决方案》教程是我推出的第二套教程,目前已经是之一版修订了。这套教程定位于中级,是学完字典后的另一个专题讲解。数据库是数据处理的利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的 *** 和实例操作,教程之一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册,八十四讲,今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第32讲:ADO提取多个EXCEL工作表数据

第三十二讲 利用ADO,实现多个EXCEL工作表数据提取

大家好,今日讲解VBA数据库解决方案的第32讲,利用ADO,秒杀实现多个EXCEL工作表的数据的提取。我曾经讲过:学以致用,如果我们学习了,没有利用,那么知识永远是知识,无法转换为我们实际的成果。所以我的资料中无论是《VBA代码解决方案》还是《VBA数据库解决方案》都在力求实用,把学到的知识放在实用之中。

到今天这讲,我们讲了30余讲的数据库相关的知识,大家一定对于连接,打开数据库不陌生了,今日我们给大家讲解利用ADO连接到EXCEL的 *** ,从而实现多个EXCEL数据汇总到一个文件中的 *** 。这讲的作用非常大,可以给很多的数据统计人员打开思路,工作中还望多多利用。

1 应用场景的具体分析

实例:我们有三个EXCEL数据表格,文件是07版本的,记录的是16年到18年的某项数据记录,我们要把这些数据表A列除去之一行的数据汇总到当前的同一个EXCEL表格中,同时把之一行的数据换成16年、17年、18年。估计大家看到我的这个实例,会联想到很多自己工作中的例子吧,我给出的这个三个源数据的文件及内容如下:

16年数据:

17年数据:

18年数据:

要实现我们的目的,如果按照正常的VBA操作,我们要逐个打开这三个文件,然后利用循环语句,把这些数据提取处理,这样的处理当然可以,我们今天要讲的是利用ADO实现我们的目的。

2 实现多个EXCEL工作表的数据提取的代码及代码分析

代码如下:

Sub mynz_32() '第32讲,利用ADO,秒杀实现多个EXCEL工作表的数据提取

<代码见教程>


End Sub

代码截图:

代码讲解:

1)

arr = Array("16年", "17年", "18年") 建立一个数组用来放三个文件的名字

2)

For i = 0 To UBound(arr)

strPath = ThisWorkbook.Path & "\" & arr(i) & ".xlsx"

strTable = ""

'建立连接

cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 8.0;hdr=no;imex=1';data source=" & strPath

strSQL = "select F1,F2,F3,F4,F5 from " & strTable

Cells(t, 1).CopyFromRecordset cnADO.Execute(strSQL)

cnADO.Close

Next i

先后建立三次连接,连接到这三个EXCEL文件。其中Cells(i, 1).CopyFromRecordset cnADO.Execute(strSQL) 语句是拷贝出数据,strSQL = "select F1,F2,F3,F4,F5 from " & strTable 是指从工作表中取的是第A,B,C,D,E列的数据。

下面看代码的执行:

今日内容回向:

1 如何处理多工作表的数据汇总?

2 ADO如何连接到EXCEL文件?


本讲内容参考程序文件:VBA与数据库操作(之一册).xl ***

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

【分享成果,随喜正能量】不为迎合他人,去做自己不喜欢做的事,选择一种既不用违背本心、降低人格去刻意讨好,又让人觉得舒服、容易接受的社交风格。为了迎合别人而违背自己本心的社交关系,往往是难以维系的。

电子表格入门学习之一步,进入EXCEL之一节,了解基本的操作

EXCEL之一节,了解软件的功能和界面组成。在这里会解答以下问题:如何输入文本和数字?如何选择单元格、行和列?工作表有哪些常用的操作?成绩表、工资表、销售表是怎么做出来的?看看下面的介绍就知道啦!赶快行动吧!

电子表格是工作的好帮手

别再浪费A4纸了!按下Excel这个键,1张纸可以打印所有表格内容

工作中,经常要打印Excel表格,最近发现很多同事,本来一张A4纸就能打印出来的表格内容,他们硬是打印出了2-3张纸,真是浪费啊!心疼我在蚂蚁森林种的树1秒!

你是不是也经常这样,本来觉得一张A4纸能打印出来的内容,突然就打印出了2张,其实,这都是因为你的Excel打印没设置好。劝你还是别再去偷别人的蚂蚁森林能量了,先学学Excel怎么把表格内容打印在一张纸上吧!要不然,种再多树也没用。

表格内容打印在一张纸

首先,点击Excel菜单栏上的「视图」,点击「分页浏览」,页面会出现一条蓝色的直线,它就是用来控制表格的打印区域的。我们将蓝线拖动到表格内容的最右侧,这样就相当于设置了一张纸打印。

设置好之后按【Ctrl + P】键直接打印表格就行了,这种打印 *** 还有个好处:只要拖动周围的蓝线,就可以自定义打印区域。

这就是一张纸打印所有表格内容的 *** 技巧了,非常简单,看看就会了。接下来再介绍其他一些Excel打印技巧,有兴趣的可以看看。

每页打印标题行

不过话说回来,当表格实在太长,一定需要1张以上的纸,那也就别省着!只是打印多张纸的时候,记得给每张纸加上标题行,看起来更清楚。

居中打印

居中打印,强迫症必备。

打印行号列标

将行号列标也打印上去,看起来更清楚。

好了,看完了,学会了,你现在可以安心地去偷好友的蚂蚁森林能量了,祝你好运,再见!

标签: 热量表 食物 大全 excel

抱歉,评论功能暂时关闭!