标签:VBA 在使用VBA编写代码时,你可以不用强制声明变量,前提是在代码前面没有语句:Option Explicit,或者取消选择了选项中的“要求变量声明”。...然而,我们不提倡这种做法,因为会造成代码的混乱,当写错变量名时不容易找出哪里出错了。 在编写VBA代码时,声明变量并指出具体的变量类型是一种非常好的编程习惯。...这样也不好,因为这样的变量会在内存中占据更多的空间,并且在访问这样的变量以对其执行操作时往往会进行类型转换,从而导致代码运行变慢。...String Dim dbl As Double Dim sng As Single Dim lnglng As LongLong Dim vr As Variant 也可以在一行中声明多个变量,例如可以通过逗号分隔声明来缩短上面的内容...此外,在声明Integer型变量时,我们通常将其声明为Long型,因为“VBA将所有整数值转换为Long类型,即使它们被声明为integer类型。
本文将浅析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/ 或者是在...NonSerializable 类在构造函数中接受一个字符串,然后重写ToString函数,并返回一个sting对象。...但这已不是宏需要考虑的了,而是在powershell中amsi patch的问题了,在前方的代码中加入amsi patch,即可然过wdf对ps的检查,得到Cs的beacon。 ?
在 thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...dict.Items For i = 0 to dict.count - 1 key = k(i) value = v(i) Next ' 清空 dict.RemoveAll 参考:Excel vba...{ Do | For | Function | Property | Select | Sub | Try | While } 参见 Exit Statement (Visual Basic) 参考 VBA...Converting Data Types excel vba判断文件是否存在
文件操作 引用打开的工作簿 使用索引号(从 1 开始) Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application...ThisWorkBook.Path & "/old.xlsx" newfile = ThisWorkBook.Path & "/new.xlsx" FileCopy oldfile, newfile 删除文件夹下的所有文件...在 thisworkbook 中添加如下代码段: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...String arr() = Split(ws.Cells(a, b).Value, "-") alen = UBound(arr) - LBound(arr) + 1 判断单元格是否为空 判断单元格的
虽然在excel文件中检索的vba代码不知道写了多少遍了,每次需要的时候,都是从网上找,然后写。实在是低效的做法。从网上找了一段代码,放在此处,以后需要的时候可以随手拿来。
标签:VBA 这是一段非常好的代码,来自ozgrid.com,可以使用它来快速排序VBA中的数组。 代码如下: '对一维或二维数组排序....'二维数组可以通过传递适当的列编号作为sortKeys参数来指定其排序键. '函数传递一个引用,因此将对原始数组进行变异....matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...sortCols Erase arr1 Erase arr2 Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示...(可以使用自动筛选来查看默认排序与排序代码的结果对比): Sub smartNumberSort() Dim a, i& ReDim a(1 To 500) a(1) = "Key" For i
在之前的博文中已经简单介绍了onnx,其中onnx.proto就代表了onnx模型的基本数据结构。...关于mediapipe的详细介绍在另一篇文章。...另外,不同目录内的.cc文件会引用相应目录生成的.pb.h文件,我们需要生成的.pb.cc和.pb.h在原始的目录中,这样才可以正常引用,要不然需要修改其他源代码的include地址,比较麻烦。...CLion中Cmake来编译proto生成的.pb.cc和.pb.h不在原始目录,而是集中在cmake-build-debug(release)中,我们额外需要将其中生成的.pb.cc和.pb.h文件移动到原始地址...正确修改cmake 对于这种情况,比较合适的做法是直接使用命令进行生成。
分析以下代码的输出: #include using namespace std; class A { public: A(int j):age(j) , num(age + 1)...protected: int num; int age; }; void main() { A sa(15); } 运行结果:age:15 , num:2(num为一个随机数) 由于按成员在类定义中的声明顺序进行构造...,而不是按构造函数说明中冒号后面的顺序,所以num成员被赋得是一个随机值,并不是想赋的16,因为这个时候,成员age还没有被赋值,age的内存空间中是一个随机值。
0x00 hello world 最近在一个新项目中,尝试了vue2+typescript的组合,碰到一个问题,在data属性中,我怎么声明一个变量的类型。...b: string; } export default Vue.extend({ data: function () { return { bar: {}, //怎么优雅的告诉编译器他的类型...我必须得想个更好更优雅的方法。...,使得数组和非数组在写法上统一了,更优雅了一点。...0x05 类型扩展 还有个常见的问题,一般来说,Foo类型是接口那边定义的类型,定义了接口返回的数据类型,但是在编码过程中,对接口返回的数据进行处理后,需要保存处理后的信息到变量中,如何在不修改Foo类型的定义的前提下
如果我们需要查找特定格式的单元格,例如字体为加粗或者有特定背景色的单元格,该怎么操作? 此时,就要用上Find方法的参数SearchFormat了。这是一个布尔参数,它告诉Find方法搜索特定格式。...FindFormat是Application对象的一个特殊属性,可以在其中设置特定格式的详细信息以用于Range.Find方法中进行搜索。...所需要做的就是设置FindFormat属性,就像设置任何给定Range对象的属性一样。...例如,如果我们想将文本设置为粗体,使用: Application.FindFormat.Font.Bold = True 如下图1所示,其中包含一些背景色为黄色的单元格,其RGB代码为:R=255,G=...要查找这个特定的格式,使用: Application.FindFormat.Interior.Color = RGB(255,255, 0) ?
网上用 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 '获取当前演示文稿中的幻灯片数量...' 在当前演示文稿中插入图片 Dim slideIndex As Integer slideIndex = ActiveWindow.View.slide.slideIndex...'获取当前幻灯片的索引号 ' 幻灯片编号从1开始 Set slide = ActivePresentation.Slides(slideIndex) '当前slide ' 幻灯片编号从1
转载请声明出处哦~,本篇文章发布于luozhiyun的博客:https://www.luozhiyun.com/archives/677 我们平时在开发中肯定避不开的一个问题是如何在不可靠的网络服务中实现可靠的网络通信...通过不同的错误码来识别不同的错误,在HTTP中status code可以用来识别不同类型的错误; 重试决策。...在上面这个例子中,在客户端设值了 10ms 的超时时间。在服务端模拟请求处理超时情况,先sleep 20ms,然后再读请求数据,这样必然会超时。...所以对冲更像是比较激进的重试策略。 使用对冲的时候需要注意一点是,因为下游服务可能会做负载均衡策略,所以要求请求的下游服务一般是要求幂等的,能够在多次并发请求中是安全的,并且是符合预期的。...但是由于在 Go 中是无法获取每个 goroutine 的执行结果的,我们又只关注正确处理结果,需要忽略错误,所以需要配合 WaitGroup 来实现流程控制,示例如下: func main() {
首先简单介绍下 strpos 函数,strpos 函数是查找某个字符在字符串中的位置,这里需要明确这个函数的作用,这个函数得到的是位置。 如果存在,返回数字,否则返回的是 false。...echo '不存在'; } 输出了’不存在’;原因是因为 ‘沈’ 在‘沈唁志博客’中的第 0 个位置;而 0 在 if 中表示了 false,所以,如果用 strpos 来判断字符串中是否存在某个字符时...必须使用===false 必须使用===false 必须使用===false 重要的事情说三遍,正确的使用方式如下 // 判断‘沈唁志博客’中是否存在‘博客’这个词 if (strpos('沈唁志博客...,是时候为智商讨个说法了,事实上输出的是’不存在’,细心的童鞋会发现这个 1 是不带引号的,strpos 的第二个参数必须是字符串型的,因此,如果你是在循环或者其他情况下调用的 strpos 函数,而且不确定第二个参数的类型...原创文章采用CC BY-NC-SA 4.0协议进行许可,转载请注明:转载自:在PHP中strpos函数的正确使用方式
TS中type和interface在类型声明时的区别在TS中interface 和 type都可以用来自定义数据类型,两者有许多相同之处,但是也有差别。...所以在需要定义一个可以被类实现的类型时,应该使用 interface 进行定义。...在 TypeScript 3.7 版本之后,type 也可以实现声明合并和继承多个类型的功能,因此在选择使用 interface 还是 type 时,应该根据具体情况来决定。...我们声明了两个同名的接口 User,并将它们合并成一个。...如果使用 type 来定义 User 类型,那么就无法实现声明合并的功能,代码会直接报错。
首先说明python3中无论写不写(object),默认的会自动带上,所以在python3中写不写都一样 class Student1: pass class Student2(object)...reduce_ex__', '__repr__', '__setattr__', '__sizeof__', '__str__', '__subclasshook__', '__weakref__'] 可以看出两个的所具有相同的属性...,因为继承了object 若不继承则只有__doc__ , __module__ 这两个属性,因为上边的属性,我们都要使用,所以一般是继承的。
excelperfect 标签:VBA 这是在www.wimgielis.com中看到的一段代码,可以在工作表中自动添加一个矩形,用户可以指定矩形的大小和填充的颜色,以及指定相关联的宏。...VBA代码如下: Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...String On Error Resume Next Set ws = ActiveSheet sDimensions = Trim(Application.InputBox("请输入形状的大小...(行 x 列)", "形状大小", "3x3", , , , , 2)) iColor = Trim(Application.InputBox("请输入形状的颜色: 1 =蓝色, 2 =绿色, 3...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s
标签:VBA 有时候,工作簿中可能有大量的命名区域。...下面是一段简单的代码,它将列出工作簿中的所有定义的名称,并显示名称所指向的单元格区域。...'忽略错误 On Error Resume Next '遍历名称 For Each nm In Names '在列A中列出名称 wks.Range...("A" & Rows.Count).End(xlUp)(2) = nm.Name '在列B中列出名称指向的区域 wks.Range("B" & Rows.Count)...其中的错误捕捉语句以防止工作簿中没有命名区域。
标签: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所示。
遇到的问题 今天遇到一个线上的BUG,在执行表单提交时失败,但是从程序日志中看不到任何异常信息。...原因分析 先来看一下Java中的异常类图: ? Throwable是Java中所有异常信息的顶级父类,其中的成员变量detailMessage就是在调用e.getMessage()返回的值。...enableSuppression) suppressedExceptions = null; } 显然,从源码中可以看到在Throwable的默认构造函数中是不会给detailMessage...所以,在程序日志中不要单纯使用getMessage()方法获取异常信息(返回值为空时,不利于问题排查)。...正确的做法 在Java开发中,常用的日志框架及组件通常是:slf4j,log4j和logback,他们的关系可以描述为:slf4j提供了统一的日志API,将具体的日志实现交给log4j与logback。
JSP声明语句:,通常声明全局变量、常量、方法、类 JSP Scriptlet:,其中可包含局部变量、java语句 JSP表达式: 显示注释:即HTML注释,可以在客户端显示...-- 显示注释:声明局部变量、java语句 --> 以下是举得例子,帮助你理解 <% int result = 1; out.println(NUM + "+" + result +" 结果 " + sum..._01.jsp' starting page 体会显示注释与隐式注释的区别...第一步:鼠标右击 ;第二步:选择查看源文件;第三步:体会显示注释与隐式注释 JSP 脚本元素的使用
领取专属 10元无门槛券
手把手带您无忧上云