本文将浅析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/ 或者是在...然后放入宏中 ? 然后我们换成之前的COM 对象来启动进程，弹出notepad ? 但是直接生成的payload是会被windows defender所检测到的，需要自行混淆。...但这已不是宏需要考虑的了，而是在powershell中amsi patch的问题了，在前方的代码中加入amsi patch，即可然过wdf对ps的检查，得到Cs的beacon。 ?
虽然在excel文件中检索的vba代码不知道写了多少遍了，每次需要的时候，都是从网上找，然后写。实在是低效的做法。从网上找了一段代码，放在此处，以后需要的时候可以随手拿来。
我们给出了基于在多个工作表给定列中匹配单个条件来返回值的解决方案。本文使用与之相同的示例，但是将匹配多个条件，并提供两个解决方案：一个是使用辅助列，另一个不使用辅助列。 下面是3个示例工作表： ?...图3：工作表Sheet3 示例要求从这3个工作表中从左至右查找，返回Colour列中为“Red”且“Year”列为“2012”对应的Amount列中的值，如下图4所示的第7行和第11行。 ?...函数在多个工作表中查找相匹配的值（1）》。...因此，在单元格C11的公式中的： INDIRECT("'"&INDEX(Sheets,Arry1)&"'!D1:D10") 转换为： INDIRECT("'"&INDEX(Sheets,3)&"'!...D1:D10 传递到INDEX函数中作为其参数array的值： =INDEX(Sheet3!
在某个工作表单元格区域中查找值时，我们通常都会使用VLOOKUP函数。但是，如果在多个工作表中查找值并返回第一个相匹配的值时，可以使用VLOOKUP函数吗？本文将讲解这个技术。...最简单的解决方案是在每个相关的工作表中使用辅助列，即首先将相关的单元格值连接并放置在辅助列中。然而，有时候我们可能不能在工作表中使用辅助列，特别是要求在被查找的表左侧插入列时。...图3：工作表Sheet3 示例要求从这3个工作表中从左至右查找，返回Colour列中为“Red”对应的Amount列中的值，如下图4所示。 ?...B:B"}),$A3) INDIRECT函数指令Excel将这个文本字符串数组中的元素转换为单元格引用，然后传递给COUNTIF函数，同时单元格A3中的值作为其条件参数，这样上述公式转换成： {0,1,3...2个工作表即Sheet2中执行VLOOKUP操作。
这是一个很常见的问题：要读取的数据需要通过多次vlookup取得，比如下面简化的滚动效益测算问题，先按合同号匹配，如果匹配不到，再按计划号匹配，在Excel里使用2次vlookup函数实现，如下图所示：...但是，这种情况在Power Query里怎么实现呢？...当然，你也可以用Table.SelectRows等表筛选的方式来实现，但如果数据量较大，使用这个这种方式可能效率会比较低，且需要写比较长的公式。有兴趣的朋友也可以试一下。...其实，我们仍然可以使用合并查询来实现，而且非常简单，只要我们先对匹配的源数据进行简单的处理即可，具体方法如下： Step-01 逆透视基础数据中的匹配条件 逆透视后，结果如下，注意其中的值列，包含了合同号或计划号...但是，随着对Power Query的操作和函数越来越熟练，渐渐就能基于Power Query的特点对问题的解决方法进行优化，尤其是在遇到某些在Excel中看起来很简单但在Power Query中用同样的方法实现起来比较困难的时候
.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 在单元格里回车...dict.Add "hello", "world" ' 数量 dict.Count ' 删除 dict.Remove("hello") ' 判断是否存在 dict.exists("hello") ' 取值，需要先判断存在再取
.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 在单元格里回车...dict.Add "hello", "world" ' 数量 dict.Count ' 删除 dict.Remove("hello") ' 判断是否存在 dict.exists("hello") ' 取值，需要先判断存在再取...Converting Data Types excel vba判断文件是否存在
事实上，我们可以使用相同的技术在Python中实现VLOOKUP、HLOOKUP、XLOOKUP或INDEX/MATCH等函数的功能。...VLOOKUP可能是最常用的，但它受表格格式的限制，查找项必须位于我们正在执行查找的数据表最左边的列。换句话说，如果我们试图带入的值位于查找项的左侧，那么VLOOKUP函数将不起作用。...此外，我们可以使用INDEX/MATCH组合，但这需要更多的输入。 在最新的Office中，Microsfot推出了XLOOKUP公式，但它只在Office 365中可用。...在第一行中，我们用一些参数定义了一个名为xlookup的函数： lookup_value：我们感兴趣的值，这将是一个字符串值 lookup_array：这是源数据框架中的一列，我们正在查找此数组/列中的...“lookup_value” return_array：这是源数据框架中的一列，我们希望从该列返回值 if_not_found：如果未找到”lookup_value”，将返回的值 在随后的行中： lookup_array
标签：VBA，AdvancedFilter方法 在处理大型数据集时，很可能需要查找并获取唯一值，特别是唯一字符串。...在VBA中，AdvancedFilter方法是处理这种情形的非常强大的一个工具。该方法可以保留原数据，采用基于工作表的条件，可以找到唯一值。下面，将详细介绍如何获取并将唯一值放置在单独的地方。...接通常做法，设置单元格区域，但要注意，VBA始终将第一行视为包含标题的行。如果数据没有标题，即第一个单元格是常规值，则第一个值可能会在唯一值列表中出现两次。 通常，我们只是在一列中查找唯一值。...参数Action 参数Action告诉AdvancedFilter将输出结果放置在原始数据位置（设置值为xlFilterInPlace），还是放置在新位置（设置值为xlFilterCopy）。...如果输出区域太小，无法包含所有结果，VBA将溢出该区域。这意味着无法限制输出，因此要选择一个没有值或可以覆盖原有值的列。
网上用 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 - 一维数组 ' sortArray myArray, 2...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
Mysql在更新的时候,需要更新的字段是其他表查询的值，这个时候update语句怎么写？例如：我想要更新A表中的floor字段。但是这个字段的是是根据条件在B表中查询后，得到的值。...JOIN B表 b ON a.floor = b.mapping_value SET a.floor = b.id WHERE a.id = 1 AND b.type = 5执行上面语句之后就能将A表中id
excelperfect 在工作表中查找值是很常见的操作，我们可以使用VLOOKUP函数、MATCH函数、INDEX函数等来查找值。...当使用VBA代码在大量的数据中进行查找操作时，灵活运用工作表公式，往往能够提高效率。...下图1所示的工作表，要在列G中查找列A中的值，如果找到则将G列中相应行对应的列H中的值复制到列A中相应行的列B中。 ?...图1 例如，单元格A2中的“砖基础”与单元格G3中的值相同，则将单元格H3中的值复制到单元格B2中，如下图2所示。 ? 图2 首先，定义一个动态名称，以便列G中添加项目时能够自动更新。...说明：本文的例子只是演示公式在VBA中的运用。其实，本例在工作表中使用VLOOKUP函数也很容易。
这里将编写VBA代码，用来删除工作表指定区域中的错误值，这在很多情况下都很有用。 如下图1所示，有一组数据，但其中有一些错误值，我们想要自动删除这些错误值。 ?...图1 删除错误值的数据表如下图2所示。 ? 图2 如果不使用VBA，可以使用Excel的“定位”功能来实现。...如下图3所示，单击功能区“开始”的“编辑”组中的“查找和选择——定位条件”，弹出“定位条件”对话框。在该对话框中，选取“公式”中“错误”前的复选框，如下图3所示。 ?...函数来判断单元格中是否是错误值，如果是，则设置该单元格为空。...这段代码虽然相对长一些，但相比较前面的两种方法，可以自动在错误值单元格中输入内容。
很多学习VBA的应该都是在使用了一段时间的Excel之后，想弥补一些Excel本身的不足、或者是实现一些自动化操作。...range_lookup：请注意前面的修饰符Optional，我们在使用Excel的VLOOKUP函数时，细心的应该会注意到，函数的参数提示上，第4个参数是在“[]”里的，表示的意思是可以省略的参数。...VBA里的参数修饰符Optional，和这个是同样的意思，可以省略的参数，如果省略了，就是用默认的值，在我们的定义里，默认等于0. 返回值：Variant，可以返回任意数据类型的值。...Excel Vlookup返回值", ret End Sub 输出： MyVlookup返回值 72848 Excel Vlookup返回值 72848 一切正常...我们继续完善一下，没有找到需要的值的时候，我们让它返回#N/A，所以，我们只需要在For循环之后加上一条语句： MyVlookup = "#N/A" 因为一旦找到了查找的值，For循环内部就会Exit
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() '...图1 这样，在Excel工作表中，按Ctrl+m组合键，会出现如下图2所示的弹出菜单。 图2 当单击菜单中的按钮时，会弹出一个信息框，如下图3所示。
如上，反馈很及时，但是更新是异步的，可能需要等一会，看下结果: :) select event_status_key, count(*) from test_update where event_status_key...，而且它的更新速度非常快 如果有数组列在我们表中如何处理。...如何给所有用户增加 这个数组的value 的值 :) select count(*) from test_update where has(dmp_audience_ids, 31694239); ┌...─count()─┐ │ 228706 │ └─────────┘ 使用arrayPushBack 函数给dmp_audience_ids 列加入值1234567： :) alter table test_update...： 索引列不能进行更新 分布式表不能进行更新 ALTER TABLE UPDATE/DELETE不支持分布式DDL，因此需要在分布式环境中手动在每个节点上local的进行更新/删除数据。
标签：VBA 下面的VBA自定义函数演示了如何对应用了粗体格式的单元格求和。...在VBE中，插入一个标准模块，在其中输入下面的代码： Public Function SumBold( _ ParamArray vInput() As Variant) As Variant...这意味着，仅对求和单元格区域中的单元格设置加粗格式，使用该自定义函数求和的值不会改变，除非按F9键强制计算，或者在工作表中输入内容导致工作表重新计算。
（一）正则表达式有什么方法与属性 在VBA中，正则表达式可以使用VBScript Regular Expressions库来实现。...2.Global属性：一个布尔值，如果为True，则整个字符串都会被搜索匹配。3.IgnoreCase属性：一个布尔值，如果为True，则搜索匹配时不区分大小写。...4.MultiLine属性：一个布尔值，如果为True，则模式可以匹配多行文本。5.Replace方法：用于替换匹配到的字符串。6.Execute方法：用于在字符串中查找匹配的模式。...r.Offset(0, 1).Value = regEx.Replace(r.Value, "") Next End With End Sub （三）应用示例02：【提取出A列中的姓名与电话...】 如图，提取姓名，电话 下面我们将设计一个自定义函数，来完成 在Excel模板中设计一个函数 Function myExtract(myStr As String, flag As Integer)
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
对象存储
腾讯会议
云直播
