lxlzmh2002的个人资料

求助 - docker镜像一直拉取失败安装了iStoreOS增强服务也不管用，谁给个可用的docker 镜像源？

[EXCEL] VBA 批量处理数据文件按内容进行拆分并保存到指定路径批量读取数据源文件按内容拆分不同文件，分发在保存不同路径下对处理完成的数据源进行归档 ------------------------------------------------------------------------ Global fsoSub DistributeBillings() 'get source files' folder path sfp = Sheet2.Cells(1, 2) If Len(sfp) = 0 Then sfp = ThisWorkbook.Path If Right(sfp, 1) <> "\" Then sfp = sfp & "\" 'get archive folder path Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.folderexists(sfp & "Archive") Then fso.CreateFolder (sfp & "Archive") afp = sfp & "Archive\" 'create dictionary of matrix Set dd = CreateObject("Scripting.Dictionary") arr = Sheet2.Cells(3, 1).Resize(Sheet2.[A1000000].End(xlUp).Row - 2, 2) For i = 1 To UBound(arr, 1) If Right(arr(i, 2), 1) <> "\" Then arr(i, 2) = arr(i, 2) & "\" dd(arr(i, 1)) = arr(i, 2) Next 'remove old sheets, if any Application.DisplayAlerts = False For i = Sheets.Count To 3 Step -1 Sheets(Sheets.Count).Delete Next 'get list of all source files Sheet1.Range("A2").Resize(10000, 14).ClearContents GetAllFiles (sfp) For i = 2 To Sheet1.[A100000].End(xlUp).Row 'open one of souce files ff = Sheet1.Cells(i, 1) fn = fso.GetFileName(ff) Set wb = Workbooks.Open(ff) ' check if exist non-registered company code rs = ActiveSheet.Cells(10000, 9).End(xlUp).Row For x = 2 To rs If Not dd.exists(ActiveSheet.Cells(x, 9).Value) Then MsgBox "File：" & fn & " Code：º " & ActiveSheet.Cells(x, 9).Value & " is not existed in distribution matrix，retry after update it please！" wb.Close GoTo ex End If Next ' copy source file data to sheet For x = 2 To rs Notes = wb.Sheets(1).Cells(x, 9).Value If Not Exist(Notes) Then ThisWorkbook.Activate Set st = Sheets.Add(After:=Sheets(Sheets.Count)) st.Name = Notes wb.Sheets(1).[A1:AG1].Copy st.[A1] Else Set st = Sheets(Notes) End If wb.Sheets(1).Cells(x, 1).Resize(1, 33).Copy st.[A100000].End(xlUp)(2) DoEvents Next wb.Close ' save sheet to file For c = 3 To Sheets.Count sn = Sheets(c).Name Sheets(c).Copy tf = dd(sn) & fn ActiveWorkbook.SaveAs Filename:=tf ActiveWorkbook.Close DoEvents Next 'archive source file fso.CopyFile ff, afp Kill ff For c = Sheets.Count To 3 Step -1 Sheets(Sheets.Count).Delete Next ex: Next Application.DisplayAlerts = True End Sub Function GetAllFiles(fp$) Dim fn, n n = Dir(fp & "\") Do While Len(n) <> 0 If UCase(n) Like "*.XLS" Or UCase(n) Like "*.XLSX" Then Sheet1.[A65536].End(3)(2) = fp & "\" & n Sheet1.Hyperlinks.Add anchor:=Sheet1.[A65536].End(3)(1), Address:=fp & "\" & n End If n = Dir Loop For Each fn In fso.getfolder(fp).subfolders GetAllFiles (fn) Next End Function Function Exist(sht) As Boolean Exist = False For Each s In Sheets If s.Name = sht Then Exist = True Exit For End If Next End Function 案例下载：http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpan.baidu.com%2Fs%2F1sGfG5QZ5smcQADLXfh843A%3Fpwd%3Dt18q&urlrefer=bd473e73329286719fda8501a234ce25 此例多次使用FSO对象的方法，参见此贴 https://tieba.baidu.com/p/8848588841 的 91楼

[分享] Excel不同子文件夹内的多个文件进行汇总背景： 1. 被汇总的数据源Excel文件，分布在不同层级的子文件夹当中 2. 每个数据源Excel文件叫不同的名字，每个文件含有不同的工作表名字 3. 需要被汇总的工作表，有相同的格式 Public fso Sub ListFiles() ' 汇总 Set fso = CreateObject("Scripting.FileSystemObject") Sheet1.Range("A2").Resize(10000, 14).ClearContents GetAllFiles (ThisWorkbook.Path) '对Excel文件及子目录中的文件，进行列表 r = 2 For i = 2 To Sheet1.[A100000].End(xlUp).Row '循环打开每个列表上的Excel文件 Set wb = Workbooks.Open(Sheet1.Cells(i, 1)) For Each s In wb.Sheets '遍历当前文件所有工作表 Set c = s.[B:B].Find(What:="No.") ' 查找格式数据是否存在 If c Is Nothing Then GoTo nx '不存在继续下一个表 For k = c.Row + 1 To s.[B100000].End(xlUp).Row '读表到汇总页 Sheet1.Cells(r, 2) = Sheet1.Cells(i, 1) Sheet1.Cells(r, 3) = s.Name Sheet1.Cells(r, 4) = s.Cells(k, 2) Sheet1.Cells(r, 5) = s.Cells(k, 3) Sheet1.Cells(r, 6) = s.Cells(k, 4) Sheet1.Cells(r, 7) = s.Cells(k, 5) Sheet1.Cells(r, 8) = s.Cells(k, 6) Sheet1.Cells(r, 9) = s.Cells(k, 7) Sheet1.Cells(r, 10) = s.Cells(k, 8) Sheet1.Cells(r, 11) = s.Cells(k, 9) Sheet1.Cells(r, 12) = s.Cells(k, 10) DoEvents r = r + 1 Next nx: Next Application.DisplayAlerts = False wb.Close Application.DisplayAlerts = True Next End Sub Function GetAllFiles(fp$) ' 对当前目录及所有子目录中的Excel文件列表 Dim fn, n n = Dir(fp & "\") Do While Len(n) <> 0 If UCase(n) Like "*.XLS" Or UCase(n) Like "*.XLSX" Then Sheet1.[A65536].End(3)(2) = fp & "\" & n Sheet1.Hyperlinks.Add anchor:=Sheet1.[A65536].End(3)(1), Address:=fp & "\" & n End If n = Dir Loop For Each fn In fso.getfolder(fp).subfolders GetAllFiles (fn) Next End Function 上述vba代码，除了使用变量、循环判断基本语句之外，剩下的80%都是在使用Excel的对象属性和方法。那，学好使用对象属性和方法，是不是掌握了VBA的80%，可以这样说吗？本例中使用的对象的属性和方法，全部记录在下贴之中： #EXCEL VBA对象的常用操作方法c# - https://tieba.baidu.com/p/8848588841

【方案征集】以购物的方式来做维修备件申请方案背景：运作一个制造工厂，需要大量、有时是海量的五金件来作为备品备件。当一个设备零件发生损坏时，维修人员需要向五金库房查询备件库存，或者做配件的采购申请。由于五金件大小规格不一，小零件同名、同系列众多，在查询备件时，非常考验维修师傅的口头表达能力，以及五金库管人员的专业能力，在很多情况下必须把旧件拆下来到库房来比照寻找，以此来确定有没有备件库存。方案需求：如果有一个工具能实现：一. 在输入配件的关键字之后，能查询到所有之相关的有详细描述的配件列表。二. 每个搜索出来的配件上，能配上该配件的图片。（象在app上搜索购物的图片与名称的区配效果）三. 有配图片的配件要排在上边，没有配图的配件排后边。四. 对查询出来的结果可以进行选择，在提交选择之后，能查询出该配件的结存量。方案设计总体要求，不需要写具体代码，但要写清楚两部分内容。一. 为满足需求，要做哪些基础数据准备。二. 需求中要实现的功能，写清楚用什么方法去实现。无偿，单纯练手项目，方案意见截止2月18号。界时本人也会公布一版，具体的实现方法和主要相关代码。

[原码分码] 批量从网页链接中下载图片直接上代码，本例参考文件在后附的链接中下载。 Sub Get_PIC_Via_WebLinks() Set req = CreateObject("Microsoft.XMLHTTP") Set stm = CreateObject("ADODB.Stream") pa = Environ("temp") & "\PIC" If Not CreateObject("Scripting.FileSystemObject").folderExists(pa) Then CreateObject("Scripting.FileSystemObject").Createfolder (pa) For Each h In Sheet1.Hyperlinks file = pa & Application.PathSeparator & h.TextToDisplay If CreateObject("Scripting.FileSystemObject").fileExists(file) Then file = file & Rnd req.Open "GET", h.Address, False req.send If req.Status = 200 Then stm.Open stm.Type = 1 stm.write req.responsebody stm.savetofile file, 2 stm.Close End If DoEvents Next MsgBox "图片已下载到： " & Environ("temp") & "\PIC" Set req = Nothing: Set stm = Nothing End Sub 注：上述在代码中用到的，Appplicaiton对象，Excel表对象，单元格对象，系统环境变量Environ, FSO对象的常用属性和方法，已经在下面的贴子《VBA对象的常用操作方法》中纪录过。 (ADO对象，已纪录过Connection和RecordsSet对象使用方法，本例Stream是ADO的第3个对象用法），XML对象目前还未提及，待后续中更新。。。 VBA对象的常用操作方法：https://tieba.baidu.com/p/8848588841

【转载】VBA代码的调试和错误处理左丘明说："人非圣贤, 孰能无过? 过而能改, 善莫大焉"，他还说："视已非而不自见，专窥人眚以为能，斯乃鄙恶之人也"。翻译一下，他说人都不是神仙，写VBA代码没有人能一遍过，重点是你得学会调试，出错了懂得修改，然后就比抽几口烟还舒服了。他还说，从来看不见自己错，专门挑他人的错误并以此当能耐的，揩是衰仔。本贴大致分如下三个部分，如果您已经是位神仙了，麻烦您出门向右转弯。【一】错误种类与描述【二】代码调试与排错【三】错误处理 ------------------------------------------- 【一】错误种类与描述：编译错误，此时代码还未执行，VBE提示输入的代码存在有语法错误运行错误, 运行时才会出现的错误，错误一般是与待处理的数据相关，或者与数据的处理方法有关逻辑错误，很可能代码执行正常，但是结果不符合目标错误代码及含义： 3 无Go Sub返回 5 无效的过程调用或参数 6 溢出 7 内存溢出 9 下标越界 10 该数组被固定或暂时锁定 11 除数为零 13 类型不匹配 14 溢出串空间 16 表达式太复杂 17 不能执行所需的操作 18 出现用户中断 20 无错误恢复 28 溢出堆栈空间 35 子过程或函数未定义 47 DLL应用程序客户太多 48 加载DLL错误 49 DLL调用约定错误 51 内部错误 52 文件名或文件号错误 53 文件未找到 54 文件模式错误 55 文件已打开 57 设备IO错误 58 文件已存在 59 记录长度错误 61 磁盘已满 62 输入超出文件尾 63 记录号错误 68 设备不可用 70 拒绝的权限 74 不能更名为不同的驱动器 75 路径/文件访问错误 76 路径未找到 91 对象变量或With块变量未设置 92 For循环未初始化 93 无效的模式串 94 无效使用Null 96 由于对象已经激活了事件接收器支持的最大数目的事件，不能吸收对象的事件 97 不能调用对象的友元函数，该对象不是所定义类的一个实例 98 属性或方法调用不能包括对私有对象的引用，不论是作为参数还是作为返回值 321 无效文件格式 322 不能创建必要的临时文件 325 资源文件中格式无效 380 无效属性值 381 无效的属性数组索引 382 运行时不支持Set 383 (只读属性)不支持Set 385 需要属性数据索引 387 Set 不允许 393 运行时不支持Get 394 (只读属性)不支持Get 422 属性没有找到 423 属性或方法未找到 424 要求对象 430 类不支持自动化（Automation）或不支持期待的接口 432 自动化(Automation)操作时文件名或类名未找到 438 对象不支持该属性或方法 440 自动化(Automation)错误 442 远程控制到类型库或对象库的连接丢失，按下对话框的[lbk]lbk[rbk]确定[lbk]rbk[rbk]按钮取消引用 443 Automation对象无缺省值 445 对象不支持该动作 446 对象不支持命名参数 447 对象不支持当前的本地设置 448 未找到命名参数 449 参数不可选 450 Protperty过程未定义，Property get 过程未返回对象 452 无效的序号 453 指定的DLL函数未找到 454 代码资源未找到 455 代码资源锁定错误 457 该关键字已经与该集合的一个无素相关联458 变量使用了一个Visual Basic不支持的自动化(Automation)类型 459 对象或类不支持的事件集 460 无效的剪贴板格式 461 方法和数据成员未找到 462 远程服务器不存在或不可用 463 类未在本地机器上注册 481 无效的图片 482 打印机错误 735 不能将文件保存到TEMP 744 要搜索的文本没有找到 746 替换文件太长 1004 应用程序定义或对象定义错误

数据字典的使用方法字典：是Key+Item的集合。Key是具有唯一性的关键字，Item是关键字所对应的值。创建字典：Set d = CreateObject("Scripting.Dictionary"), 创建一个名字为D的空字典。常用方法： d.add"lxlzmh2002", "Excel梦想之家" ：向d字典添加一条关键字是lxlzmh2002，值为Excel梦想之家的字典纪录。- 可以简写为： d("lxlzmh2002")="Excel梦想之家" d.Exists("lxlzmh2002"): 检查d字典是否存在关键字为lxlzmh2002的纪录，返回True或False d.Remove("lxlzmh2002"): 从d字典上删除关键字为lxlzmh2002的纪录 d.RemoveAll: 清空d字典纪录 d.Keys: 返回d字典的所有关键字，值为数组d.Items: 返回d字典的所有值，值为数组常用属性： d.Count: 返回d字典中纪录的个数d.Key("lxlzmh2002")="lxlzmh2024": 将d字典的关键字lxlzmh2002更改为新的关键字d.Item("lxlzmh2002")="Excel梦想之国" : 将d字典上关键字为lxlzmh2002纪录的值更改为新值，简写d("lxlzmh2002")="Excel梦想之国" 字典的item值，可以是单值，也可以是数组，如：d("lxlzmh2002")=array("Excel梦想之家","Excel梦想之村"，"Excel梦想之镇") 但是，字典值为多个值并非是一定要用数组，可以让d("lxlzmh2002")="Excel梦想之家|Excel梦想之村|Excel梦想之镇"在实际使用时，用split分开：split(d.Key("lxlzmh2002"),"|") - split结果是数组。字典由于索引的存在，在数据查询上是非常高效的。关于字典的详解，请参阅：

VBA对象的常用操作方法c# ［单元格］对象的表示方法表示第一个工作表的A2单元格对象，有三种下面常用的表示方法：第一种：Sheets(1).Range("A2") - 适合一次性引用，不太适合用变量遍历第二种：Sheets(1).[A2] - 书写简单，适合一次性引用，不适合遍历第三种：Sheets(1).Cells(2,1) - 适用于变量改变行列值，用于循环遍历。［工作表］对象的表示方法 worksheets("test") : 表示表名为test的工作表对象，可以简写为sheets("test") - 适用已知表名的调用 worksheets(1) : 表上工作薄上第1个工作表对象，可以简写为sheets(1) - 适用不知表名，但已第几个表的调用 sheet1: 表示VBE (Alft + F11) 编程环境，表name属性为sheet1的工作表 -这是vba工程内部工作表的属性名，不受工作表名变动，工作表顺序变动影响。推荐程序使用表属性名。如果有多个EXCEL工作薄打开，sheet1指的是代码所在那个工作薄上的sheet1表 -activesheet : 表示当前处理活动状态的工作表对象适用于在未知表名字，未知表位置顺序下，对当表工作表的调用［工作薄］对象的表示方法 workbooks("test"):表示名为test的工作薄 - 适用于已知Excel文件名称的访问 workbooks(1):表示第1个索引顺序的工作薄 - 适用于对已知Excel文件打开顺序的访问 activeworkbook:表示当前的活动工作薄 - 适用对当前活动工作薄的访问，即可能未知文件名称或者文件打开顺序的的前提下，用activeworkbook来访问当前活动的工作薄。 thisworkbook:表示VBA代码所在的工作薄 - 适用对VBA代码所在工作薄的访问 [application] 对象 application - 就Excel而言，application表示的就是Excel软件本身的对象，前边所述的单元格，工作表，工作薄对象，都历属于application的属性，除此之外它还有些在对软件的操作层面的属性和方法，详文在后讨论application的属性和方法时再说。一直在说属性和方法，他俩究竟是指什么？属性 - 描述对象特征，通常是个名词。属性的值可以描述名字，颜色，长度等等。改变了属性的值，相当于改了对象特征的量，比如：sheet1.name="vba吧"，即把表一的名字改为VBA吧。需注意两点：1.有些属性是只读的，不可修改，2.属性也可能是另外一个对象。方法 - 描述对象所能执行的动作，通常是个动词。方法通常不能改变，只能被执行，比如：工作表的打开、新建、删除等操作，都是在执行一个动作。

WORD VBA 给英文单词自动加音标本例为楼主的原创代码，功能为： 1. 自动检测Word文档中的英文单词。 2. 在每个英文单词后边自动加上它的英文音标。无需安装任何软件，第三方库，纯VBA代码，原码奉送给有需要的你。

VBA制作打印标签，生成QR码，创建PDF, 发送电子邮件 '*********************************************************************************** '* 综合性的案例演示程序 - Designed by EXCEL梦想之家 2021-01-19 * '* 原数据 —》标签 —》QR码 —》打印文档—》创建PDF—》发送邮件 * '* 原代码带注释，手把手教学 * '* 具体功能如下： * '* 1. 总表到分表数据的拆分 * '* 2. 使用MicroSoft Barcode控件制作二维码 * '* 3. 打印的分页设置 * '* 4. 工作表导出PDF * '* 5. 创建并发送邮件 * '* 6. 用状态栏做代码执行中的进度提示 * '* 7. 发生错误时的做容错处理 * '***************************************************

［原创原码分享］VBA自动创建DM码-纯VBA代码无插件版因原贴意外走失，现重新分享出来。 Datamatrix（DM) 码是一种高密度，高可靠性的矩阵式二维码，其发展要早于QR码。因其小型，存储信息量大的特点，被广泛应用于生产制造，物流管理和零售商品等方面。现在公开出来的DM码生成工具，都是需要付费的软件或第三方插件，或者是有数量限制的试用版。本例原代码分享的是用VBA自动创建DM码，无需安装任何第三方的软件或插件。关注后发下载码下载链接: http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpan.baidu.com%2Fs%2F1BU2us1_pHwAcj0tthiNieQ&urlrefer=51c6152322267f3994a07e22aefc2bf0

如果有一段新的VBA代码摆在面前，你会怎样评分？假如这段新的VBA代码，是你新交的一位男，女朋友从下面四个方面，你会怎样分配评分的比重？ A. 功能 - 交异性朋友肯定要满足基本需求，功能是指需求的完成度 B. 效率 - 一周见几次面，效率是指功能在时间轴上的转化效率 C. 稳定 - 多久一次吵驾闹分手，稳定是指（1- 异常情况的比率） D. 美丽 - 仪容和衣着是否精致，美丽是指代码是否书写规范严谨作为优秀的VBA开发人员，你心里需要有一份配比。总分100，说出你的答案。

[原码分享] VBA制作打印标签，生成QR码，创建PDF, 发送电子邮件 '*********************************************************************************** '* 综合性的案例演示程序 - Designed by EXCEL梦想之家 2021-01-19 * '* 原数据 —》标签 —》QR码 —》打印文档—》创建PDF—》发送邮件 * '* 原代码带注释，手把手教学 * '* 具体功能如下： * '* 1. 总表到分表数据的拆分 * '* 2. 使用MicroSoft Barcode控件制作二维码 * '* 3. 打印的分页设置 * '* 4. 工作表导出PDF * '* 5. 创建并发送邮件 * '* 6. 用状态栏做代码执行中的进度提示 * '* 7. 发生错误时的做容错处理 * '***************************************************

麻烦本吧的吧务看过来麻烦吧务确认下此贴是否吧务所删，如果是请给出处置理由。我没有收到任何系统的消息，此贴不见了。如果理由正当我会接受，如没正当理由瞎胡闹，那就投述没商量了

［原创分享］VBA 批量修改照片图片的大小有没有一种可能，你需要批量修改照片的大小？有没有一种可能，你需要批量修改所有子子子文件夹内所有图片的大小？有没有一种可能，你需要在保持长宽比的前提下，按百分比批量修改图片的大小？有没有一种可能，你需要把现有图片批量修改到统一的长宽像素大小？上述所有可能已实现，无需借助任何第三软件，纯VBA代码实现。原创原码分享，点赞过10，即公开下载链接 #批量修改图片大小#

<原码分享> WORD VBA 给英文单词自动加音标本例为楼主的原创代码，功能为： 1. 自动检测Word文档中的英文单词。 2. 在每个英文单词后边自动加上它的英文音标。无需安装任何软件，第三方库，纯VBA代码，原码奉送给有需要的你。

#EXCEL VBA对象的常用操作方法c# 在开始聊EXCEL 对象操作之前，得先简单聊一下操作这些对象的上帝之手--VBA，它是以一种上帝视角方式在工作。那什么算上帝视角？上帝视角就是非人类的视角，它不须要遵循人类的习惯来运作，打个比方，你在客厅看电视，忽然困意来习想上床睡觉，你得先起身离开客厅，打开卧室房门，才能上床睡觉，这是人类的常规操作。而上帝模式下只需要一步，当你想睡觉时，上帝可以把你从客厅直接扔到卧室的床上，穿越时间空间，这就是上帝视角。你可以在书房直接开客厅电视机开关，你可以在躺床上一边刷手机的同时，另一边在床上安排厨房炊具炒菜，这都是上帝操作。 VBA操作Excel对象就是上帝视角，不必遵循人类的操作规则。这一点新入坑VBA朋友尤为要注意，再比如说，人类的操作Excel需要眼睛可得见，而VBA操作这是不必要的，人类要复制一个单元格，得先切换到那个格所在的工作表，再找到并选中那个格，然后鼠标右键复制，VBA则可以从任何地方，对任意一个工作表上的单元格，直接一步复制。在人类层面上，操作Excel是有空间上的先后顺序，而VBA做同样的事情，由于它是上帝视角，工作表也好单元格也罢，对它来就说好象是兵器架子上的兵刃，是平行排列，不需要空间上可视，不需要先后顺序，直接使用。那么，VBA究竟是通过什么手段来操作Excel的？它是通过操作Excel对象的属性和方法来实现的，本贴则是简述Excel对象的“常用”操作方法。为防止走丢，请关注、点赞、收藏转发。

新人报道本贴吧的第16584名关注者，新人签到，立贴为据

土国怎么造蒸汽船？出生在葡萄后叛土，叛国前还没有维亚纳堡，所土国怎么造蒸汽船？出生在葡萄后叛土，叛国前还没有维亚纳堡，所以没在这个工业港投过资。