本文将浅析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/ 或者是在...GadgetToJScript与.net 在某些脚本语言中可以使用com对象,而com对象可以用来调用.net ?...我们可以使用设置DisableActivitySurrogateSelectorTypeCheck来绕过该检测。
虽然在excel文件中检索的vba代码不知道写了多少遍了,每次需要的时候,都是从网上找,然后写。实在是低效的做法。从网上找了一段代码,放在此处,以后需要的时候可以随手拿来。
标签:VBA,PowerPoint编程 一小段VBA代码,就能实现在PPT上选择并涂色的功能,如下图1所示。...图1 实现上述效果的VBA代码如下: Dim RGB As Variant Sub ChooseColor(oSh As Shape) RGB = oSh.Fill.ForeColor.RGB...这又是VBA应用的一个经典例子。不需要太多的代码,仅仅几句VBA就能实现幻灯片放映过程中与用户交互的功能,太方便了。...也可以在完美Excel公众号中发送消息: 涂色板ppt 获取本文示例文档的下载链接。 或者,直接到知识星球app完美Excel社群下载本文示例文档。...说明:这段时间有空就在研究PowerPoint编程,进一步拓展VBA使用空间。在学习过程中,确有不少收获。VBA能够让PPT再提升一个档次,并且不需要很复杂的逻辑,更不需要很复杂的代码。
标签:VBA,PowerPoint编程 我们可以借助于PPT来倒计时,如下图1所示。 图1 首先,在幻灯片中插入一个矩形形状,用来显示倒计时时间。...设置的是倒计时30秒,你可以根据实际情况调整。...回到幻灯片,选择矩形形状,单击功能区“插入”选项卡“链接”组中的“动作”按钮,如下图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...其中的错误捕捉语句以防止工作簿中没有命名区域。
文件操作 引用打开的工作簿 使用索引号(从 1 开始) Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application...MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在 thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange.../ 换行 设置单元格 Value 里使用 Chr(10) 和 Chr(13),分别表示回车、换行。...退出 主要使用 Exit 表达式。...Converting Data Types excel vba判断文件是否存在
文件操作 引用打开的工作簿 使用索引号(从 1 开始) Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application...Rng .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .AutoFilter End With 获取或者设置单元格背景色...MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在 thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车.../ 换行 设置单元格 Value 里使用 Chr(10) 和 Chr(13),分别表示回车、换行。
标签:VBA 有时候,工作表中的数据经常发生更新,这样,如果要设置打印区域的话,那么每次更新后都得重新选择并设置,以便将更新的数据包括到打印区域中。...如果希望在工作表数据更新的同时,设置的打印区域也相应的更新,那该如何实现呢? 可以使用VBA代码。...如果数据在工作表的列A至列C,可以使用下面的代码: Sub UpdatePrintArea() Dim wks As Worksheet Set wks = Sheet1 With...Sub 你可以在每次更新数据后,运行上面的过程。...如果想要让Excel自动更新设置打印区域,则需要使用工作表的Change事件。
本文主要讲解操控工作表中一些界面元素的VBA代码。 名称框 名称框中的名字是为单元格区域定义的名字,可以由用户定义名称,或者由Excel自动创建,例如Print_Area和表1。...如果要指定滚动的窗格,可以使用类似下面的语句,例如,在第2个窗格中滚动到距离最左侧列10列: ActiveWindow.Panes(2).ScrollColumn= 10 如果拆分的窗格被冻结,那么ScrollRow...设置滚动区域 示例代码: '设置工作表的滚动区域 '限制在单元格区域C5:J30 ActiveSheet.ScrollArea= "C5:J30" 但是,用户仍然能够通过在名称框中输入单元格地址来访问不在滚动区域中的任何单元格...'隐藏工作簿中的第3个工作表 Sheets(3).Visible =xlSheetHidden '隐藏代码名称为Sheet3的工作表 Sheet3.Visible =xlSheetHidden 使用代码名称引用工作表的优点在于...注意,代表颜色值的常量可以在VBA帮助系统中查找。
在Excel内部打开VBA 以及在运行之前需要开启一下家开发人员的安全性 打开的页面可能是这样,不要慌 可以在这里选择打开窗口 如果还是不一样,可以这这里打开资源的管理器 F4按键会按照当前你打开的窗口...有两种排列模式,按照自己的喜好来选择使用 可以在后面的栏目内部打开还是开启此功能 这里是又绘制了一个窗口 未来后文的使用方便,可以重新定义一个文件 对于每一个将来要使用的事件,都可以去双击控件进入内部去编写触发用的代码...可能觉得这个字不好看 可以在这里设置等宽的字体 这个是写的一个简单的页面 最终的效果图 需要进行对文本的强制转换 Private Sub CB_Click() If Val(T1.Text) +...Label2_Click() End Sub Private Sub UserForm_Click() End Sub https://docs.microsoft.com/en-us/office/vba.../language/reference/user-interface-help/msgbox-constants 在微软的文档内可以查到对应使用的函数的一些参数以及用法 对于一些控件,我们可以成组的来控制
网上用 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...arr1 Erase arr2 Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示(可以使用自动筛选来查看默认排序与排序代码的结果对比
本文继续讲解操控工作表中一些界面元素的VBA代码。 工作表中的行列 隐藏和取消隐藏行标题 不能够分别单独隐藏行标题和列标题,只能同时隐藏或者显示这两个标题。...True ActiveSheet.Cells.Rows.Hidden= True 要隐藏其他工作表中的行,只需使用该工作表代替ActiveSheet,例如使用Sheets(1)代表第1个工作表,或者使用...隐藏所有行后,行标题几乎被隐藏,但列标题仍然在工作表中。...隐藏和取消隐藏工作表列 可以使用下列任一VBA语句隐藏活动工作表中的所有列: '隐藏工作簿的活动工作表中所有列 ActiveSheet.Columns.Hidden= True ActiveSheet.Columns.EntireColumn.Hidden...隐藏所有列后,列标题几乎被隐藏,但行标题仍然在工作表中。
本质上CronJob是一个调度程序,使应用程序可以调度作业在特定日期或时间自动运行。今天,我们将把CronJob集成到Deno应用程序中,有兴趣看看吗?...安装 Deno 前面的文章中基本都没有提及 Deno 的安装,在国内,我们使用 "vscode-deno 之父“JJC大佬为我们提供的镜像服务进行安装,地址为https://x.deno.js.cn/,...我们可以使用 cron 在Deno中定义自定义时间表,如: cron('* * * * * *', () => { // run some task }); # 其中 * * *...取值范围为0-59 第二个星号使用分钟数,并且取值范围为0-59 第三个星号使用小时数,其值介于0-23之间 第四个星号为月份中的一天,其值在1-31之间 第五个星号为一年中的月份,其值在1-12之间...stop() } }); deno cron 小结 在 deno 中使用 cron,您学废了吗?
要在 NPM 中设置代理,您需要使用 `npm config set proxy` 命令。以下是一个详细的教程:1. 首先,确保您已经安装了 Node.js。...在命令提示符或终端中,输入以下命令以设置代理:```npm config set proxy http://ip.duoip.cn:8080```这个命令将设置 NPM 的代理地址。1....设置代理后,请确保您的网络设置允许访问该代理。在 Windows 系统中,您可以通过以下步骤检查和配置网络设置:a. 右键单击 "网络" 图标在任务栏上,然后选择 "网络和共享中心"。b....在 "网络和共享中心" 窗口中,单击 "更改连接属性"。c. 在 "网络连接属性" 窗口中,选择 "使用代理服务器",然后单击 "设置"。d....设置代理后,请确保您的 NPM 设置已正确保存。在命令提示符或终端中,输入以下命令:```npm config list```这将显示您的 NPM 配置设置。
在xml中使用android:drawableLeft="@drawable/payicon_type"; 实现 在控件左侧添加小图标。那么在代码中如何实现同样的效果呢?...Drawable drawable = FileUtil.getDrawableFromAssetFile(context, "payicon_type.png"); /** * 从assets 文件夹中获取文件并读取图片资源
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中工作的菜单的技术会有所不同。...本文使用一种有效的技术创建在所有Excel版本中都可使用的弹出菜单。 注意,内置或自定义上下文菜单不同于弹出菜单的一种方式是,上下文菜单仅在右键单击鼠标时显示,而弹出菜单可以在需要时显示。...在VBE中,单击“插入——模块”,在标准模块中的代码如下: Public Const Mname As String ="MyPopUpMenu" Sub DeletePopUpMenu() '...图1 这样,在Excel工作表中,按Ctrl+m组合键,会出现如下图2所示的弹出菜单。 图2 当单击菜单中的按钮时,会弹出一个信息框,如下图3所示。
excelperfect 一些情形下,我们需要在工作表中使用ActiveX控件,这通常使用VBA来实现。...要使用VBA从控件工具箱(ActiveX控件)中添加控件,可以使用OLEObjects集合的Add方法。...如下图1所示,要求在每项工作前面都添加复选框,并且当用户选中复选框后,自动隐藏该复选框所在的行。 ?...图1 下面的代码用来在工作表中添加复选框: Sub RefreshList() Dim oCheck As OLEObject Dim rCell As Range, rRange As...接下来,在确定数据范围后,在第一列添加复选框并设置了一些属性值以方便以后操作。这里,有一些通用的适合于其他控件的属性,也有一些专属于复选框的属性。
本文主要讲解设置工作表单元格或单元格区域格式的VBA代码,包括设置字体、数字格式、文本对齐、填充单元格背景色、设置单元格边框等。...图1 代码中,字体设置可以参考Excel中字体框中的下拉列表列举的字体名,颜色设置可以查看VBA帮助,找到合适的颜色常量。...VBA帮助中查找获得。...使用颜色填充单元格 示例代码: '使用指定颜色填充单元格区域的背景色 With Range("A1:D3").Interior '设置为xlNone则无填充 .Color = vbBlack '-1(最暗...图3 可以在VBA帮助中查找获取代表线条样式的VBA常量值。
领取专属 10元无门槛券
手把手带您无忧上云