excelperfect 标签:VBA 这是在www.wimgielis.com中看到的一段代码,可以在工作表中自动添加一个矩形,用户可以指定矩形的大小和填充的颜色,以及指定相关联的宏。...VBA代码如下: Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...(行 x 列)", "形状大小", "3x3", , , , , 2)) iColor = Trim(Application.InputBox("请输入形状的颜色: 1 =蓝色, 2 =绿色, 3...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s..., , , , , 2)) If sText = "False" Or Len(sText) = 0 Then sText = "添加标题" With .TextFrame.Characters
标签:VBA 有时候,我们想将工作簿中的每个工作表都保存为一个单独的工作簿。 你可以使用下面的操作逐个保存工作表: 1.在工作表标签中单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。 图1 这样,有多少工作表,你就要操作上面的步骤多少次。 然而,如果存在很多个工作簿,这样的重复工作使用VBA是最合适的。...msoFileDialogFolderPicker) .InitialFileName =Application.DefaultFilePath & "\" .Title = "选择保存工作表的位置...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分的工作簿中运行上述代码...,就可将该工作簿中的所有工作表全部保存为单独的工作簿。
标签:VBA Q:我在工作表中放置有一些形状,例如圆形、矩形等,我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作,该如何实现?...图1 A:在示例工作表中,将上方的圆形命名为“椭圆示例”,下方的矩形命名为“圆角矩形”。...按Alt+F11键,打开VBE编辑器,插入一个标准模块,在其中输入代码: Sub testShape() If Application.Caller = "椭圆示例" Then MsgBox "...End If End Sub 然后,返回工作表,在形状中单击鼠标右键,将其关联到宏过程testShape。当你单击工作表中的形状时,结果如下图2所示。...图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。
标签:VBA 在使用Excel工作表时,我们往往会对某些单元格插入批注来解释其中的数据,用户也可能会插入批注来写下他们的建议。...如果你的工作表中有很多批注,而你不想逐个点开查看,那么可以将所有批注集中显示在工作表中。...本文给出的代码将获取工作表中所有的批注,并将它们放置在一个单独的工作表中,清楚地显示批注所在的单元格、批注人和批注内容。...ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub 代码首先检查当前工作表中是否存在批注...如果有批注,则创建一个用于放置批注的名为“批注列表”的工作表,其中,在列A放置批注所在的单元格地址,列B放置写批注的人名,列C中是批注的内容。
excelperfect 一些情形下,我们需要在工作表中使用ActiveX控件,这通常使用VBA来实现。...要使用VBA从控件工具箱(ActiveX控件)中添加控件,可以使用OLEObjects集合的Add方法。...(选项按钮) Forms.Textbox.1(文本框) Forms.Listbox.1(列表框) Forms.Commandbutton.1(命令按钮) 下面通过一个例子,提供在工作表中添加ActiveX...图1 下面的代码用来在工作表中添加复选框: Sub RefreshList() Dim oCheck As OLEObject Dim rCell As Range, rRange As...Range Dim lLastRow As Long '清除已经存在于工作表中的复选框 For Each oCheck In Sheet1.OLEObjects
标签:VBA 下面的VBA过程在指定的新工作表中列出指定工作表中的所有公式,包含具体的公式、所在工作表名称及其所在单元格地址。...代码: Sub ListAllFormulas() Dim sht As Worksheet Dim rSheet As Worksheet Dim myRng As Range Dim newRng...As Range Dim c As Range Dim endRow As Long '放置公式的工作表, 可修改为你的实际工作表名 Set rSheet = Sheets("FormulasSheet...") '要查找公式的工作表, 可修改为你的实际工作表名 Set sht = Sheets("Sheet1") '查找已使用的单元格区域 Set myRng = sht.UsedRange...= Mid(c.Formula, 2, (Len(c.Formula))) '放置包含公式的工作表名在列B中 .Range("B" & endRow).Value = sht.Name
\Anaconda3\envs\tensorflow-gpu\Lib\site-packages\tensorflow\python\keras 3、找到keras目录下的optimizers.py文件并添加自己的优化器...找到optimizers.py中的adam等优化器类并在后面添加自己的优化器类 以本文来说,我在第718行添加如下代码 @tf_export('keras.optimizers.adamsss') class...super(Adamsss, self).get_config() return dict(list(base_config.items()) + list(config.items())) 然后修改之后的优化器调用类添加我自己的优化器...# 传入优化器名称: 默认参数将被采用 model.compile(loss=’mean_squared_error’, optimizer=’sgd’) 以上这篇如何在keras中添加自己的优化器...(如adam等)就是小编分享给大家的全部内容了,希望能给大家一个参考。
标签:VBA 有时候,工作簿中可能有大量的命名区域。...下面是一段简单的代码,它将列出工作簿中的所有定义的名称,并显示名称所指向的单元格区域。...Sub NamesList() Dim wks As Worksheet Dim nm As Name '可以修改为你想置名称和引用区域的工作表 Set wks = Sheet1....End(xlUp)(2) = "'" & nm.RefersTo Next nm '恢复错误触发 On Error GoTo 0 End Sub 一个非常简单的过程,它将显示工作簿中的所有名称及命名区域...其中的错误捕捉语句以防止工作簿中没有命名区域。
标签:VBA 自Excel 2010发布以来,已经具备删除工作表中重复行的功能,如下图1所示,即功能区“数据”选项卡“数据工具——删除重复值”。...图1 使用VBA,可以自动执行这样的操作,删除工作表所有数据列中的重复行,或者指定列的重复行。 下面的Excel VBA代码,用于删除特定工作表所有列中的所有重复行。...如果没有标题行,则删除代码后面的部分。...如果只想删除指定列(例如第1、2、3列)中的重复项,那么可以使用下面的代码: Sub DeDupeColSpecific() Cells.RemoveDuplicates Columns:=Array...(1, 2, 3), Header:=xlYes End Sub 可以修改代码中代表列的数字,以删除你想要的列中的重复行。
这里将编写VBA代码,用来删除工作表指定区域中的错误值,这在很多情况下都很有用。 如下图1所示,有一组数据,但其中有一些错误值,我们想要自动删除这些错误值。 ?...图1 删除错误值的数据表如下图2所示。 ? 图2 如果不使用VBA,可以使用Excel的“定位”功能来实现。...如下图3所示,单击功能区“开始”的“编辑”组中的“查找和选择——定位条件”,弹出“定位条件”对话框。在该对话框中,选取“公式”中“错误”前的复选框,如下图3所示。 ?...图3 单击“确定”后,工作表中的错误数据单元格会被选择,单击“Delete”键,删除错误值,结果如上图2所示。...这段代码虽然相对长一些,但相比较前面的两种方法,可以自动在错误值单元格中输入内容。
学习Excel技术,关注微信公众号: excelperfect 在工作表中定义名称是一项很强大的功能,我们可以将定义名称的单元格区域看作一个整体,从而方便对其进行很多操作。...在进行工作表数据处理时,很多人都会定义名称。 有时候,在分析工作表数据时,如果能够清楚地看出命名区域,将有助于我们了解工作表。...下面的一小段程序可以将工作表中的命名区域添加红色背景色: Sub SetNameRanges() '声明变量 Dim rngName As Name On Error Resume...Next '遍历当前工作簿中的名称 For Each rngName In ActiveWorkbook.Names '将名称区域的单元格背景色设置为红色...rngName.RefersToRange.Interior.ColorIndex = 3 Next rngName End Sub 如下图1所示,在工作表中定义了两个命名区域。
为简化起见,我们使用少量的数据来进行演示,示例数据如下图1所示。 图1 示例数据位于名为“表1”的表中,我们想获取“产地”列为“宜昌”的数据。...方法1:使用Power Query 在新工作簿中,单击功能区“数据”选项卡中的“获取数据——来自文件——从工作簿”命令,找到“表1”所在的工作簿,单击“导入”,在弹出的导航器中选择工作簿文件中的“表1”...单击功能区新出现的“查询”选项卡中的“编辑”命令,打开Power Query编辑器,在“产地”列中,选取“宜昌”,如下图2所示。 图2 单击“确定”。...然而,单击Power Query编辑器中的“关闭并上载”命令,结果如下图3所示。...图3 方法2:使用FILTER函数 新建一个工作表,在合适的位置输入公式: =FILTER(表1,表1[产地]="宜昌") 结果如下图4所示。
学习Excel技术,关注微信公众号: excelperfect 有时,我们可能需要知道工作簿中有哪些模块和相应的过程。...Jon Peltier改编了VBA过程,可以列出当前所有已经打开的工作簿中所含有的VBA模块和过程清单。在输出工作表中,前两行为模块所在工作簿名称和工程名称。...并且,代码会绕过受保护的VBA工程,同时如果工作簿中没有代码,也会在输出工作表中说明。...下面是完整的代码: Sub GetVBAProcedures() '声明访问Excel工作簿的变量 Dim app As Excel.Application Dim wb As...图2 从图2中可以看出,我当前打开了3个工作簿,其中两个没有保存也没有代码,另外的工作簿就是GetVBAProcedures过程代码所在的工作簿,有2个模块3个过程。
在一些应用场景中,我们可能会需要根据工作表中的数据来创建用户窗体中的控件。例如下图1所示,在工作表第3行中有一行标题数据,想要根据标题数量在用户窗体中创建标签和相应的文本框。...图2 在该用户窗体中单击右键,选择“查看代码”命令,输入下面的代码: Private Sub UserForm_Initialize() Dim rngData As Range Dim...你可以以此为基础,继续添加功能。例如,用户在文本框中输入内容后,自动输入到工作表中;清空文本框中的内容;等等。
有些Excel用户喜欢在工作表中绘制形状,以实现其目的。例如,如下图1所示,绘制一个矩形方框来强调这些单元格中的数据。 ?...如果你想移除工作表中添加的所有红色矩形框,可以使用下面的代码: Sub RemoveAllShapes() Dim shp As Shape '遍历当前工作表中的所有形状 '如果不是图表...然而,在有些情形下,工作表中可能存在除红色矩形框之外的其他形状,而我们并不想删除这些形状。实现这种情形的一个技巧是,在添加这些形状时重命名并在其名字后添加指定的字符作为标记。...End Sub 这样,就可以很方便地使用VBA代码找到所有的红色矩形框并进行相应的操作了。...例如,下面的代码将当前工作表中所有的红色矩形框的颜色改为蓝色,同时将其名字进行相应的修改: Sub ChangeRedBoxToBlueBox() Dim shp As Shape Dim
下面简单介绍一下如何使用MySQL Workbench建立数据库,建立新的表,为表添加数据。...,修改一下Name 的值,如 mydatabase ,点击apply,再点apply,然后点finish 如下图所示 数据库就建好了!!!...Numeric Types”) 出现如下页面 接下来向建好的tb_student表中添加数据 右键点击tb_student,再点击select rows limit 1000 在mysql workbench...中向数据库中的表中添加数据大致就是这个样子。...如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
标签:VBA 这是不是将工作簿中的每个公式转换为值的最快、最有效的方法,请大家评判。 有趣的是,不管工作簿中有多少张表,它都是用一个操作来处理的。...通常情况下,都是试图通过遍历工作表来做到这一点,然而并没有那么有效。...Paste:=xlPasteValues ActiveSheet.Select Application.CutCopyMode = False End Sub 如果工作簿中有隐藏的工作表,则上面的代码不起作用...Dim Goahead As Integer Dim n As Integer Dim i As Integer Goahead = MsgBox("这将不可逆地将工作簿中的所有公式转换为值。...注:本文代码整理自ozgrid.com,供有兴趣的朋友探讨。
今天把学习的源文件共享了出来,供大家学习使用 上次想到要学习这个 结合网友也提出意见,做一个,如果有用,请下载或复制代码使用 【问题】我们在工作中有时要在某个文件(工作簿)中查找一些数据,提取出来...想要做好了以后同样的工作就方便了 【想法】 在一个程序主控文件中 设定:数据源文件(要在那里查找的工作簿) 设定:目标文件(要保存起来的那个文件) 输入你要查找的数据:如:含有:杨过,郭靖的数据。...要复制整行出来 主控文件设定如图 数据源文件有两个工作表 查找到"郭靖"的数据保存到目标文件的【射雕英雄传】工作表 查找到"杨过"的数据保存到目标文件的【第一个】工作表 【代码】 Sub...从一个工作簿的某工作表中查找符合条件的数据插入到另一个工作簿的某工作表中() Dim outFile As String, inFile As String Dim outWb As...MsgBox ("一个也没找到") End If '==end=工作表内部
标签:VBA 如下图1所示,在工作表Sheet1中有一系列人员信息数据,包括人员照片、姓名、年龄,等。 图1 现在,要根据这些人员信息来给每个人制作信息卡片,模板如下图2所示。...图2 可以使用VBA来自动完成。...打开VBE,插入一个标准模块,在其中输入下面的代码: Sub test() Dim sh As Shape Dim anchor As Range Dim PicCell As Range Dim...sh.Height = sh.TopLeftCell.MergeArea.Height sh.Width = sh.TopLeftCell.MergeArea.Width Next sh End Sub 运行代码...图3 注:本示例整理自vbaexpress.com论坛,供有兴趣的朋友研究参考。
VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表 【问题】我们发了这样一个表格到各单位收集资料,各单位填写完后上交上来有许多个文件,我们现在想汇总成一年一个表,怎么办?...那就加班,再加班 【解决问题】我们的口号是VBA使工作效率提高,不加班 ====【代码】==== Sub 提取多文件一工作表中不同区域汇总() Dim fileToOpen, x, total_file_path...-2018的表格中,下一次的复制,复制到最后的一行中的A列中, 4.因为在打开文件的过程中可能有些人在传输文件中,文件损坏了,所以加上On Error Resume Next,不报错继续运行。...====【遇到的坑】==== 本来我想打开一个文件,再用Union所在的区域,最后再复制,但这里遇到问题,也算是学习了, 代码如下: '用GetObject打开文件后 If rn...原因是:初值中是.Range("a5:t11"),想要组合进行的也是.Range("a5:t11"),所以程序是不可以的。
领取专属 10元无门槛券
手把手带您无忧上云