文章目录 一、报错信息 二、解决方案 一、报错信息 ---- 右键点击源码目录 , 选择 New 选项创建源码 , 没有任何源码创建选项 ; 二、解决方案 ---- 右键点击源码根目录 , 在弹出的菜单中选择..." Open Module Settings " 选项 , 选中 要创建源码的目录 , 点击上方的 " Mark as " 选项 , 将其标记为 Sources 源码目录 ; 然后点击 Apply..., OK 按钮 , 应用上述设置 ; 之后右键点击源码目录 , 选择 New 选项 , 就可以看到创建 Java Class , Groovy Class , Package 等选项 ;
Eclipse中没有Server选项,需要加载插件。...步骤如下: ①在软件eclipse下的Help->InstallNew Software->中,在Work with中点击Add,如下,加入 Name:Kepler Location:http://download.eclipse.org.../releases/kepler ②找到选项Web,XML, Java EE and OSGi Enterprise Development下JST Server AdaptersExtensions...③选择接受I accept….,点击完成。
虽然在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 类在构造函数中接受一个字符串...但这已不是宏需要考虑的了,而是在powershell中amsi patch的问题了,在前方的代码中加入amsi patch,即可然过wdf对ps的检查,得到Cs的beacon。 ?
split()方法得到一个字符串的列表,以回车符分隔 for i in range(len(lines)): lines[i] = '* ' + lines[i] #遍历 lines 中的每个表项...,在每个表项前加* text = '\n'.join(lines) #指定字符\n连接序列中元素后生成的新字符串 pyperclip.copy(text) #复制新的字符串
在本文中,让我们了解 Unigram Tagger 在 NLP 中的训练过程。 Unigram Tagger及其使用NLTK的培训 加工 UnigramTagger继承自ContextTagger。...在上面的代码示例中,第一个 Unigram 标记器是在 Treebank 的前 4000 个句子上进行训练的。训练句子后,对任何句子使用相同的标记器对其进行标记。在上面的代码示例中,使用了句子 1。...unigram 标记器经过训练和 4000 个句子,然后在最后 1000 个句子上进行评估。...平滑技术 在许多情况下,我们需要在NLP中构建统计模型,例如,可以根据训练数据或句子的自动完成来预测下一个单词。在如此多的单词组合或可能性的宇宙中,获得最准确的单词预测是必不可少的。...UnigramTagger 在 NLTK 工具包中可用,该工具包使用 Ngarm Tagger a sits 父类。
.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 在单元格里回车...隐藏行 MyWorkSheet.Rows(i).Hidden = True 单元格内容为纯文本 sheet.Cells(m, n).NumberFormatLocal = "@" 选择 引用单元格 /
.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 在单元格里回车...隐藏行 MyWorkSheet.Rows(i).Hidden = True 单元格内容为纯文本 sheet.Cells(m, n).NumberFormatLocal = "@" 选择 引用单元格 /...Converting Data Types excel vba判断文件是否存在
标签: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...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
网上用 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的路径 ' 在当前演示文稿中插入图片
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所示。
(一)正则表达式有什么方法与属性 在VBA中,正则表达式可以使用VBScript Regular Expressions库来实现。...6.Execute方法:用于在字符串中查找匹配的模式。7.Test方法:用于测试字符串是否匹配模式。...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)
标签: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...其中的错误捕捉语句以防止工作簿中没有命名区域。
标签:VBA,PowerPoint编程 我们可以借助于PPT来倒计时,如下图1所示。 图1 首先,在幻灯片中插入一个矩形形状,用来显示倒计时时间。...ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss") Loop End Sub 代码中,...回到幻灯片,选择矩形形状,单击功能区“插入”选项卡“链接”组中的“动作”按钮,如下图2所示。...图2 在弹出的“操作设置”对话框中,选取“运行宏”单选按钮,在其下拉列表中选择CountDown过程,如下图3所示。 图3 在幻灯片中,可以设置矩形中的字体及大小,调整矩形位置等。...然后,点击放映幻灯片,在矩形中单击,即可开始倒计时,正如上图1所示。 接下来,我们介绍实现在PPT中显示计时的多种情形下的VBA代码。 未完待续……
在Excel中通过VBA对Word文档进行查找替换 以前学过两篇关于ExcelVBA_to_word的文章 1.ExcelVBA一键批量打印文件夹中的所有word文档 2.ExcelVBA一键导入Word...简历信息到 EXCEL中 今天再来学习: 【问题】 在Excel中通过VBA对Word文档进行查找替换,我想把word文档中的“name”全部替换成“张三” word文档如下图 【思路】 在Excel...文档中,先引用CreateObject("word.application"),再打开文件,查找,替换
ae949b883b3e655a94875f04246ffa42&dis_t=1648687652&vid=wxv_2243208097689337860&format_id=10002&support_redirect=0&mmversion=false 在Excel...中透视表+VBA玩转TopN&Others分析,新玩法。
excelperfect 有时候,我们可能想根据用户在工作表中的选择来决定隐藏或者显示功能区选项卡中的特定组,避免用户随意使用某些功能而破坏我们的工作表结构。 下面,我们通过一个示例来演示。...我们想让用户选择工作表列B中的任意单元格时,隐藏“开始”选项卡中的“剪贴板”组,而当用户选择其他单元格时,该组又重新显示,如下图1所示。 ?...图1:当用户选择的单元格在列B中时,“剪贴板”组隐藏,处于其他单元格中时,“剪贴板”组显示 首先,我们新建一个工作簿并保存。...图2:在Custom UI Editor For Microsoft Office中编辑输入XML 重新打开工作簿,按Alt+F11键打开VBA编辑器,插入一个标准模块,输入下面的代码: Public...ThisWorkbook模块,在该模块代码窗口中输入下面的代码: Private Sub Workbook_Open() If InRange(Range(Selection.Address),
seaborn在matplotlib的基础上进行开发,当然也继承了matplotlib的颜色梯度设置, 同时也自定义了一系列独特的颜色梯度。...在seaborn中,通过color_palette函数来设置颜色, 用法如下 >>> sns.color_palette() [(0.12156862745098039, 0.4666666666666667...该函数接受多种形式的参数 1. seaborn palette name 在seaborn中,提供了以下6种颜色梯度 1. deep 2. muted 3. bright 4. pastel 5. drak...4. cubehelix palette 通过子函数cubehelix_palette来实现,创建一个亮度线性变化的颜色梯度,在color_palette中,通过前缀ch:来标识对应的参数,用法如下 >...在seaborn中,还提供了4种独特的渐变色,用于绘制热图 1. rocket 2. flare 3. mako 4. crest rocker是默认的颜色梯度 >>> sns.heatmap(data
标签:VBA,列表框,用户界面 有时候,可能你想自动选择列表框中的第一项或者最后一项。例如,当选择列表框所在的工作表时,列表框自动选择第一项,或者选择最后一项。这都可以使用简单的VBA代码轻易实现。...ListIndex = i Next i End Sub Private Sub Worksheet_Activate() CommandButton1_Click End Sub 第一个过程在单击命令按钮后选择列表框中的第一项...,第二个过程在单击命令按钮后选择列表框中的最后一项。...而Activate事件,当该工作表成为当前工作表时,自动执行相应的过程,从而选择列表框中的第一项。 这些过程是如何工作的呢?它们是在计算列表框中所有列表项数的前提下工作的。...在第一个过程中,使用一个简单的循环从列表框的底部开始,一直到顶部。
领取专属 10元无门槛券
手把手带您无忧上云