虽然在excel文件中检索的vba代码不知道写了多少遍了,每次需要的时候,都是从网上找,然后写。实在是低效的做法。从网上找了一段代码,放在此处,以后需要的时候可以随手拿来。
本文将浅析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 类在构造函数中接受一个字符串...ToString允许 C# 中的所有类隐式继承 Object 类并返回一个字符串表示,所以当 Console.WriteLine() 被调用时会返回Hello World!
文件操作 引用打开的工作簿 使用索引号(从 1 开始) Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application....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 在单元格里回车...Converting Data Types excel vba判断文件是否存在
文件操作 引用打开的工作簿 使用索引号(从 1 开始) Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application....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 在单元格里回车
网上用 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中的数组。 代码如下: '对一维或二维数组排序....'函数传递一个引用,因此将对原始数组进行变异....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...Erase sortCols Erase arr1 Erase arr2 Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示
标签: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所示。
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中,正则表达式可以使用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)
excelperfect 标签:Excel技巧 有时,我们不希望在形状中只是使用静态文本,例如想要显示计算的结果,该如何操作? 很简单! 如图1所示,想要在圆中显示动态的时间。...按下回车键,此时单元格A1中的值就会显示在圆中。当更新单元格A1中的值时,形状圆中的值也会跟着更新。如下图2所示。 图2 这里,公式栏中的公式只能引用单个单元格,不能在公式栏中输入公式。...然而,有一个变通办法。假设想在某形状中显示列表值之和。并且形状在工作表的第1行到第4行中显示。可以这样操作: 1.将形状移开,并在单元格C2中建立一个公式来包含形状中的文本。...假设在图表中添加了一个形状,如果希望形状中的文本来自单元格,则必须在单元格引用之前加上工作表名称。例如,=Sheet1!C2会起作用,但=C2不会。
标签:VBA,PowerPoint编程 我们可以借助于PPT来倒计时,如下图1所示。 图1 首先,在幻灯片中插入一个矩形形状,用来显示倒计时时间。...打开VBE,插入一个标准模块,输入下面的代码: Sub CountDown() Dim time As Date time = Now() Dim count As Integer '假设倒计时...回到幻灯片,选择矩形形状,单击功能区“插入”选项卡“链接”组中的“动作”按钮,如下图2所示。...图2 在弹出的“操作设置”对话框中,选取“运行宏”单选按钮,在其下拉列表中选择CountDown过程,如下图3所示。 图3 在幻灯片中,可以设置矩形中的字体及大小,调整矩形位置等。...然后,点击放映幻灯片,在矩形中单击,即可开始倒计时,正如上图1所示。 接下来,我们介绍实现在PPT中显示计时的多种情形下的VBA代码。 未完待续……
标签:VBA 有时候,工作簿中可能有大量的命名区域。...Set wks = Sheet1 '忽略错误 On Error Resume Next '遍历名称 For Each nm In Names '在列...A中列出名称 wks.Range("A" & Rows.Count).End(xlUp)(2) = nm.Name '在列B中列出名称指向的区域 wks.Range...& Rows.Count).End(xlUp)(2) = "'" & nm.RefersTo Next nm '恢复错误触发 On Error GoTo 0 End Sub 一个非常简单的过程...,它将显示工作簿中的所有名称及命名区域。
ae949b883b3e655a94875f04246ffa42&dis_t=1648687652&vid=wxv_2243208097689337860&format_id=10002&support_redirect=0&mmversion=false 在Excel...中透视表+VBA玩转TopN&Others分析,新玩法。
在Excel中通过VBA对Word文档进行查找替换 以前学过两篇关于ExcelVBA_to_word的文章 1.ExcelVBA一键批量打印文件夹中的所有word文档 2.ExcelVBA一键导入Word...简历信息到 EXCEL中 今天再来学习: 【问题】 在Excel中通过VBA对Word文档进行查找替换,我想把word文档中的“name”全部替换成“张三” word文档如下图 【思路】 在Excel...文档中,先引用CreateObject("word.application"),再打开文件,查找,替换
📷 📷
1.Split()用法 在VB.net中,Split 函数用于将字符串按照指定的分隔符分割成数组。...2.Split(string,"、")如果没有"、"会出错吗 在VB.NET中,使用 Split 函数分割字符串时, 如果指定的分隔符在字符串中不存在,Split 函数并不会出错。...3.Replace()的用法 在VB.net中,Replace 函数用于替换字符串中的指定子串为另一个子串。...最后,我们使用 Replace 函数将原始字符串中的 "World" 替换为 "VB.net",并将结果存储在 resultString 中。...4.如果string.Replace(",","、")如果没有“,”,会出错吗 在VB.net中,如果string.Replace(",","、")如果没有“,”,会出错吗 在VB.NET中,String.Replace
一个神经网络模型,通过 nn.Module 来定义,里面包含了一些层,然后还有一个 forward(input) 方法,一呼一吸之间就得到了输出。...for s in size: num_features *= s return num_features net = Net() print(net) 如上,一个前馈网络就诞生了...随便来个 32x32 的输入图片,我们的网络就能得到一个输出。 前文也说过,PyTorch中的 Tensor 就是一个多维数组,可以记录梯度。 在梯度反向传播之前,记得把梯度清零。...test_loader.dataset)} ' f'({100. * correct / len(test_loader.dataset):.0f}%)\n') 安装好相应包: 本地运行结果: 可以看到:网络在训练集上的损失在逐渐降低...在测试集上,可以看到网络的准确率; 由于这里只运行了一个 epoch,准确率可能不够高,但足以展示神经网络基本训练过程。在实际应用中,我们会运行更多的 epoch 并调整不同的参数来达到更好的性能。
问题 我想将一个命令保存到一个变量中,以便稍后再使用(不是命令的输出,而是命令本身)。...: No such file or directory ls: cannot access '^': No such file or directory 我如何将这样(带有管道/多个命令)的命令存储在变量中以供以后使用...回答 对于带有管道或重定向的组合命令最推荐的方式是将其封装到一个函数里,然后在需要时直接调用即可。...一个高赞回答是使用 eval,代码如下: x="ls | wc" eval "$x" y=$(eval "$x") echo "$y" 但是其中 eval 是一个非常容易引发错误的内置命令,在没有警告用户可能存在不可预料的解析行为风险的情况下...朋友们有踩到过 eval 命令的坑吗,可以在评论区留言交流一下。 参考 stackoverflow question 5615717 help eval
那么,在发起一个推荐项目之前,应该怎么确认实施方向,预估项目收益呢。 可能这些工作,在大厂都是被PD来搞定的,但是如果你是一个项目负责人,也需要做到心里有数,要确保人员投入可以匹配业务产出。...可以看出,区间分布中,有一些区间占比非常小,但如果平均到数据中对结果影响很大,所以就可以把这些区间值当成异常点处理掉。...因此我们的真实诉求,是希望找到在平台真正的租到房子的用户群。 那么,这样的用户在数据上有什么特点?结合真实情况,用户可能只在需要租房这段时间来访问平台,而租到房后将不再频繁访问的可能性更大。...因此,我们选择在某天发生过转化,且之后的行为数据大幅减少的用户当做我们的核心目标用户。通过分析这批用户在自然时间轴上的行为数据规律,提取共性来划分用户生命周期,从而辅助精准的推荐。 ?...基本可以得到,一个用户从启动到发生转化的时间轴变化和行为特征变化。 同时,业务专家的领域知识不可忽视。
文章背景:在采用VBA抓取数据时,有时需要判断指定数值是否在一维数组中已存在;如果存在,则希望能够获取该数值在数组内的位置。...在实践过程中发现,VBA的filter函数无法完全匹配指定数值;而借助Excel的match函数,可以实现完全匹配。接下来分别对Filter函数和Match函数进行介绍。...应用示例: 判断某字符串是否在一维数组内存在。 由上图可以看出,采用Filter函数匹配到的是包含A-1的所有元素。而在实际案例中,可能希望只获得完全匹配的元素。...WorksheetFunction.Match 方法 傳回項目在陣列中的相對位置,其符合指定順序中的指定值。
领取专属 10元无门槛券
手把手带您无忧上云