标签:VBA,自定义函数 下面的VBA自定义函数可以实现在单元格区域中查找满足多个值的行或列。...Loop While Not c Is Nothing And c.Address firstAddress End If End With End Function 假设工作表中包含三列...,即列A中是水果名,列B中是颜色,列C中是产地,现在查找同时包含“apple”、“red”和“Hungary”的行,可以使用下面的代码: Sub test() Const col1 = 1, col2
VBA在多个文件中Find某字符的数据并复制出来 今天在工作中碰到的问题 【问题】有几个文件,每个文件中有很多条记录,我现在要提取出含有“名师”两个字符的记录。...完成一个文件,再找开一个文件…… 【VBA代码】 SubGetFile_Find_FindNext() Dim fileToOpen, x, total_file_path, m,title_row...Setmysht = ActiveSheet ' mysht.UsedRange.Clear title_row = 1 m = 0 i = 0 ss = VBA.InputBox
学习Excel技术,关注微信公众号: excelperfect 本次练习题 如下图1所示的工作表,在单元格区域A2:F2中放置的是要查找的数值;在列H至列BF、行9至行30是被查找的区域,这个区域分17...个小区域,每个区域3列,其单元格中要么为空,要么放置着一些数值。...图1 现在,要在这17个小区域中查找单元格区域A2:F2中的值并将找到的数值的个数输入到其下方第32行的单元格中。如何使用VBA代码实现? VBA代码 先给出代码,再细细解释。...Cells(2,j)分别查找A2至F2中的数值,将找到的数值的个数累加到变量iCount中。最后得到每个小区域中包含的数值的个数,然后将得到的个数值输入到第32行中相应单元格中。...代码中的外层循环遍历每个小区域,内层循环遍历A2:F2中的值。 小结 1.不要被工作表的表面所迷惑,要从中找到规律。 2.有时候,灵活使用工作表函数不失为一个好技巧。 下面是代码的图片版: ?
本文将浅析GadgetToJScript的反序列化原理与在VBA中的利用。...而在VBA中的被检测的列表已有大佬整理了出来: https://github.com/synacktiv/AMSI-Bypass ? ? 当然,DDE与excel 4.0是不受amsi所保护的。...而amsi的bypass也早已是老生常谈的话题,例如outflank提出的 https://outflank.nl/blog/2019/04/17/bypassing-amsi-for-vba/ 或者是在...string[] args) { TestObjectSerializedRef(); } } } 上述代码的意思是NonSerializable 类在构造函数中接受一个字符串...但这已不是宏需要考虑的了,而是在powershell中amsi patch的问题了,在前方的代码中加入amsi patch,即可然过wdf对ps的检查,得到Cs的beacon。 ?
虽然在excel文件中检索的vba代码不知道写了多少遍了,每次需要的时候,都是从网上找,然后写。实在是低效的做法。从网上找了一段代码,放在此处,以后需要的时候可以随手拿来。
.AutoFilter End With 获取或者设置单元格背景色 MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在...thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...A2:D1") '表示 A2 到 D1 区域 Range("A2:D1")(3) '表示该区域里的第三个单元格 Range("D" & i) 'i 为变量 Range("D3:F4,G10") '引用多个区域...Converting Data Types excel vba判断文件是否存在
.AutoFilter End With 获取或者设置单元格背景色 MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在...thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...A2:D1") '表示 A2 到 D1 区域 Range("A2:D1")(3) '表示该区域里的第三个单元格 Range("D" & i) 'i 为变量 Range("D3:F4,G10") '引用多个区域
网上用 VBA 操作 EXCEL的 示例很多,但用 VBA 操作 PPT 的示例很少,而且通常有不少错误或者版本老旧的地方。 下面是我最近写的在 PPT 中批量插入图片的代码,供大家参考。...插入图片前的PPT页面: VBA 代码: Sub insert_images() ' 定义变量 Dim pptApp As Object, pptPres As Object, slide...PowerPoint.Application") 'End If On Error GoTo 0 'ActivePresentation.Slides.Count '获取当前演示文稿中的幻灯片数量...'pptApp.Visible = False workingpath = ActivePresentation.Path '获取当前PPT的路径 ' 在当前演示文稿中插入图片
标签:VBA 这是一段非常好的代码,来自ozgrid.com,可以使用它来快速排序VBA中的数组。 代码如下: '对一维或二维数组排序....- 一维数组 ' sortArray myArray, 2 - 二维数组, 单个排序键 ' sortArray myArray, Array(2,3,1) - 二维数组,多个排序键...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid
excelperfect 标签:VBA 这是在www.wimgielis.com中看到的一段代码,可以在工作表中自动添加一个矩形,用户可以指定矩形的大小和填充的颜色,以及指定相关联的宏。...VBA代码如下: Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s
标签:VBA,快捷菜单 弹出菜单(有时也称为上下文菜单或快捷菜单)是用户界面(UI)中的菜单,提供了一组命令选项,通过某些用户操作(如鼠标右键单击)在应用程序的当前状态或上下文中可用。...由于在2007 MicrosoftOffice系统中,Microsoft用功能区UI取代了命令栏菜单结构,这造成了创建在不同版本的MicrosoftOffice中工作的菜单的技术会有所不同。...在VBE中,单击“插入——模块”,在标准模块中的代码如下: Public Const Mname As String ="MyPopUpMenu" Sub DeletePopUpMenu() '...End Sub 回到Excel界面,按Alt+F8键,调出“宏”对话框,选择“CreateDisplayPopUpMenu”宏,单击“选项”按钮,在“宏选项”对话框中的“快捷键”中输入字母m,如下图1所示...图1 这样,在Excel工作表中,按Ctrl+m组合键,会出现如下图2所示的弹出菜单。 图2 当单击菜单中的按钮时,会弹出一个信息框,如下图3所示。
知识点:字典,主要是item中可以是union(),并进行复制 ======代码如下======= Sub 在一个工作簿内把总表拆分多个工作表() Dim title_rng As Range,
用户在使用Mapreduce时默认以part-*命名,MultipleOutputs可以将不同的键值对输出到用户自定义的不同的文件中。...实现过程是在调用output.write(key, new IntWritable(total), key.toString()); 方法时候第三个参数是 public void write(KEYOUT...value, String baseOutputPath) 指定了输出文件的命名前缀,那么我们可以通过对不同的key使用不同的baseOutputPath来使不同key对应的value输出到不同的文件中,...context ) throws IOException, InterruptedException { output.close(); } } 在reduce...的setup方法中 output = new MultipleOutputs(context); 然后在reduce中通过该output将内容输出到不同的文件中 private Configuration
经过本系列前面几篇文章(参见:VBA专题10-11:使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件、VBA专题10-10:使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、...VBA专题10-9:使用VBA操控Excel界面之在功能区中添加自定义按钮控件)的学习,我们对于在功能区中添加自定义控件的步骤应该很熟悉了。...同样,这里讲解的添加组合框控件的步骤与前面介绍的步骤相同,新建一个启用宏的工作簿并保存,关闭该工作簿,然后在CustomUI Editor中打开该工作簿,输入下面的XML代码: ?...重新打开该工作簿后,在“Custom”选项卡中显示含组合框的组,如下图1所示。 ?...As String) MsgBox "在组合框中显示的文本是: "& text End Sub 此时,从组合框中选择某项后,会显示如图2所示的消息框。
(一)正则表达式有什么方法与属性 在VBA中,正则表达式可以使用VBScript Regular Expressions库来实现。...6.Execute方法:用于在字符串中查找匹配的模式。7.Test方法:用于测试字符串是否匹配模式。...Set regEx = CreateObject("VBScript.RegExp") ' 设置模式和属性 regEx.Pattern = "\d+" '匹配一个或多个数字...VBScript.RegExp") ' 设置模式和属性 regEx.Pattern = "\d+" '匹配一个或多个数字...】 如图,提取姓名,电话 下面我们将设计一个自定义函数,来完成 在Excel模板中设计一个函数 Function myExtract(myStr As String, flag As Integer)
有一些组合优化问题不是那么的“难”,比如最短路问题,可以在多项式的时间内进行求解。然而,对于一些NP-hard问题,就无法在多项式时间内求解了。...1 动机 在组合优化算法中使用机器学习的方法,主要有两方面: (1)优化算法中某些模块计算非常消耗时间和资源,可以利用机器学习得出一个近似的值,从而加快算法的速度。...(当前行为“好”以后就多往这个方向发展,如果“坏”就尽量避免这样的行为,即不是直接得到了标签,而是自己在实际中总结得到的) 3 近来的研究 第1节的时候,我们提到了在组合优化中使用机器学习的两种动机,那么现在很多研究也是围绕着这两方面进行展开的...而动机(2)中的经验学习,是采用reinforcement learning从reward中不断修正自己(没有expert)。在动机(1)中,agent is taught what to do。...在贪心算法中,每次选择一个距离上次插入节点最近的节点,当然我们最直接的做法也是这样的。但是这样的效果,并没有那么的好,特别是在大规模的问题中。
组合电路在 HLS 中的重要性 该项目通过一个示例演示了 HLS 中组合电路对设计的影响。 在 HLS 中描述组合任务非常重要,因为它直接影响整个系统的性能。...系统中的其他模块使用主输出,而下一个状态数据修改存储单元并定义新的电路状态。 动机 所有组合电路都需要一个时间间隔,以便在其输入发生任何变化后产生稳定的输出。这个时间被称为传播延迟。...组合电路中从输入到输出的不同路径可能具有各种延迟。最长路径也称为关键路径,被定义为设计传播延迟。 在时序电路中,时钟周期对设计性能有直接影响。图 2 中组合部分的传播延迟决定了最小时钟周期。...组合部分也对相关时序电路的延迟有直接影响。 因此,了解如何在 HLS 中设计高效的组合电路是在硬件上开发高性能算法的第一步。...此外,第二种方案在 FPGA 上使用的资源要少得多。 结论 设计高效的组合电路是在 HLS 中开发算法或系统控制器的第一步。多种优化技术和编码风格可用于描述复杂算法的组合部分。
表格中Image3的Great cat和Blurry列都被勾选了:可以将一个样本与多个类别相关联, 这就是为什么最后的百分比加起来不足100%的原因。...实际中,当你查看样例时,可能会受到启发,然后提出一些新的错误类别。例如,当你查看过十几张图像后,你发现许多错误都经过Instagram(一款美图软件)的滤镜处理。...你可以在表格中添加一列Instagram,看看图像是否被滤镜处理过。手动查看算法出错的样例,并思考正常人是如何将这些样例正确分类的。这通常会启发你提出新的类别和解决办法。...如果你的团队有足够多的人可以同时展开多个方向,你让一部分人解决Great cat问题,另一部分人解决Blurry问题。 错误分析并不会得出一个明确的数学公式来告诉你最应该先处理哪个问题。...你还必须考虑在不同错误类别上取得的进展,以及每个错误类别所需的工作量。
请参阅我们的旧指南,在这了解如何降级 Ubuntu 及其衍生版中的软件包以及在这了解如何降级 Arch Linux 及其衍生版中的软件包。但是,你无需降级某些软件包。我们可以同时使用多个版本。...例如,假设你在测试部署在 Ubuntu 18.04 LTS 中的LAMP 栈的 PHP 程序。...过了一段时间,你发现应用程序在 PHP 5.6 中工作正常,但在 PHP 7.2 中不正常(Ubuntu 18.04 LTS 默认安装 PHP 7.x)。...在这个简短的教程中,我将向你展示如何在 Ubuntu 18.04 LTS 中切换多个 PHP 版本。它没你想的那么难。请继续阅读。...在多个 PHP 版本之间切换 要查看 PHP 的默认安装版本,请运行: $ php -v PHP 7.2.7-0ubuntu0.18.04.2 (cli) (built: Jul 4 2018 16:55
用有小开发集里的4个错误分类样本来说明这个过程,你的表格大概将会是下面的样子: 表格中Image3的Great cat和Blurry列都被勾选了:可以将一个样本与多个类别相关联, 这就是为什么最后的百分比加起来不足...实际中,当你查看样例时,可能会受到启发,然后提出一些新的错误类别。例如,当你查看过十几张图像后,你发现许多错误都经过Instagram(一款美图软件)的滤镜处理。...你可以在表格中添加一列Instagram,看看图像是否被滤镜处理过。手动查看算法出错的样例,并思考正常人是如何将这些样例正确分类的。这通常会启发你提出新的类别和解决办法。...如果你的团队有足够多的人可以同时展开多个方向,你让一部分人解决Great cat问题,另一部分人解决Blurry问题。 错误分析并不会得出一个明确的数学公式来告诉你最应该先处理哪个问题。...你还必须考虑在不同错误类别上取得的进展,以及每个错误类别所需的工作量。
领取专属 10元无门槛券
手把手带您无忧上云