用户定义函数在工作表中返回#REF，在VBA中工作 - 腾讯云开发者社区 - 腾讯云

开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

使用VBA在工作表中列出所有定义的名称

标签：VBA 有时候，工作簿中可能有大量的命名区域。...下面是一段简单的代码，它将列出工作簿中的所有定义的名称，并显示名称所指向的单元格区域。...Sub NamesList() Dim wks As Worksheet Dim nm As Name '可以修改为你想置名称和引用区域的工作表 Set wks = Sheet1...("A" & Rows.Count).End(xlUp)(2) = nm.Name '在列B中列出名称指向的区域 wks.Range("B" & Rows.Count)...其中的错误捕捉语句以防止工作簿中没有命名区域。

6.5K3 0

VBA代码：在工作表中自动添加矩形

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

1241 0

您找到你想要的搜索结果了吗？

是的

没有找到

VBA: 在工作簿内复制用户窗体

文章背景：Excel中，在创建完一个用户窗体（Userform）后，有时想要在此基础上，创建针对另一场景的用户窗体。那么，如何在工作簿内复制用户窗体呢？下面介绍两种办法。...方法一：先将用户窗体导出为窗体文件，然后再导入。为避免导入错误，导入前，需要修改当前用户窗体的名称。...方法二：将用户窗体移到新工作簿内，然后再将该用户窗体移回原工作簿。为避免移入错误，移入前，需要修改新工作簿内用户窗体的名称。具体步骤如下：（1）新建一个启用宏的工作簿（*.xlsm）。...（2）选中需要复制的用户窗体，将该窗体拖动到新工作簿内。（3）修改新工作簿内用户窗体的名称，避免移入窗体时，出现同名窗体已存在的错误。...（4）将新工作簿的用户窗体拖动到原工作簿内。视频演示：http://mpvideo.qpic.cn/0bf2suaaaaaatqal5kdw5fqvbfodackqaaaa.f10002.mp4?

1.5K2 0

await 只在 async 函数中工作

它可以放在函数前，就像这样： async function f() { return 1; } 函数前的 “async” 意味着一件简单的事情：函数总是会返回 promise。...例如，上述代码中返回一个带有结果 1 的 resolved promise，我们可以进行测试： f().then(alert); // 1 …我们可以显式的返回一个 promise，结果相同： async...因为还有 await 关键字，它只在 async 函数中工作，而且非常酷。...Await // 只在 async 函数中工作 let value = await promise; await 关键字使 JavaScript 等待，直到 promise 得到解决并返回其结果...此外，我们应该使用 async 函数来工作。

1.5K1 0

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

学习Excel技术，关注微信公众号： excelperfect 在文件夹中所有文件上运行宏，或者在Excel工作簿中所有工作表上运行宏，这可能是一种非常好的Excel自动化方案。...例如处理类似的数据工作簿文件并想要提取数据或转换该工作簿。下面给出了适用这种情况的一些VBA程序，这些程序代码整理自analystcave.com，供有兴趣的朋友参考。..." End Sub 在工作簿所有工作表中运行宏代码如下： '本程序来自于analystcave.com Sub RunOnAllWorksheets() Dim folderName As String...& ws.Name End If Next ws '清除状态栏并通知宏已完成 Application.StatusBar ="" MsgBox "在所有工作表中已完成宏执行..." End Sub 代码中： 1.打开ActiveWorkbook中的每个工作表而不是ActiveSheet，可以根据需要删除If语句。

4.8K1 1

Excel实战技巧98：使用VBA在工作表中添加ActiveX控件

excelperfect 一些情形下，我们需要在工作表中使用ActiveX控件，这通常使用VBA来实现。...要使用VBA从控件工具箱（ActiveX控件）中添加控件，可以使用OLEObjects集合的Add方法。...如下图1所示，要求在每项工作前面都添加复选框，并且当用户选中复选框后，自动隐藏该复选框所在的行。 ?...图1 下面的代码用来在工作表中添加复选框： Sub RefreshList() Dim oCheck As OLEObject Dim rCell As Range, rRange As...Range Dim lLastRow As Long '清除已经存在于工作表中的复选框 For Each oCheck In Sheet1.OLEObjects

5.7K1 0

VBA编程练习05. 在工作表中实现七段显示

学习Excel技术，关注微信公众号： excelperfect 本次练习题这是一个有趣的VBA编程练习，来自于dailydoseofexcel.com。...使用VBA代码在工作表中将数字显示为七段显示，如下图1所示。 ? 图1 在单元格C9中输入四位及四位以内的数字，在单元格区域B2:P6中会像电子显示屏一样以七段形式显示这个数字。...VBA代码代码如下： Public Sub ShowSevenSegment(ByVal lInput As Long) '声明变量 Dim sValue As String...Interior.Color = lON End If End If Next j Next i End Sub 在数字所在的工作表模块中...建议有兴趣的朋友多调试理解这段代码，帮助理解数组的运用、以及单元格的获取、偏移、设置等VBA操控Excel的基础知识。

1.7K1 0

Excel技巧：在工作表中绘制完美的形状

标签：Excel技巧 “绘图”工具栏中的椭圆形工具很难使用。如果开始在单元格的左上角绘制矩形，形状将从该角开始。但是，如果在同一个点开始画一个圆，画的椭圆将不会完全包含单元格中的文本。...首先，要使椭圆成为一个完美的圆形，在绘制时要按住Shift键。使用Shift键还将强制矩形为正方形，强制三角形为等边三角形。其次，圆形或椭圆形很难画。...为了在一个单元格周围绘制一个圆圈，必须从单元格外很远的地方开始。怎么知道要从多大程度上超出你的数据才能包括所有数据？一种解决方案是在绘制椭圆时按住Ctrl键（或按住Ctrl+Shift键绘制圆）。...如果要调整正方形的大小，在拖动角控制柄的同时按住Shift键，这将强制Excel保持纵横比不变。如果需要制作许多大小相同的正方形，按住Ctrl键并拖动第一个正方形以制作相同的副本。

1431 0

Excel VBA在一个工作簿内把总表拆分多个工作表

知识点：字典，主要是item中可以是union(),并进行复制 ======代码如下======= Sub 在一个工作簿内把总表拆分多个工作表() Dim title_rng As Range,...) endrow = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算最后一个工作表的非空行号...endCol = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column '计算最后一个工作表的非空列号...s), .Cells(i, 1).Resize(1, endCol)) End If Debug.Print i Next i MsgBox "将拆分出工作表数有

2.5K4 0

VBA技巧：在不保护工作簿的情况下防止删除工作表

标签：VBA 下面介绍一个使用少量VBA代码实现的简单实用的小技巧。通常情况下，我们执行“保护工作簿”命令后，此时删除工作表的命令变成灰色，用户就不能轻易地删除工作表了。...然而，这样也不能进行插入、移动或复制工作表的操作了。如果想要在不保护工作簿的情况下防止用户删除工作表，而且允许用户插入工作表并对其进行重命名，也允许用户移动或复制工作表，有没有什么好的方法实现？...在工作簿的ThisWorkbook模块中粘贴或输入下面的代码： Option Explicit Private Sub Workbook_SheetDeactivate(ByVal Sh As Object..." End Sub Sub RemoveProtection() '撤销保护工作簿 ThisWorkbook.Unprotect End Sub 此时，用户再要删除该工作簿中的工作表，就会弹出...的警告信息（如下图1所示），但用户仍可以在该工作簿中进行添加工作表、移动或复制工作表、对工作表重命名等操作。图1

2K3 0

VBA实战技巧：根据工作表数据创建用户窗体中的控件

在一些应用场景中，我们可能会需要根据工作表中的数据来创建用户窗体中的控件。例如下图1所示，在工作表第3行中有一行标题数据，想要根据标题数量在用户窗体中创建标签和相应的文本框。...图1 按Alt+F11组合键，打开VBE，单击菜单“插入——用户窗体”，在该用户窗体中放置一个框架控件，如下图2所示。...图2 在该用户窗体中单击右键，选择“查看代码”命令，输入下面的代码： Private Sub UserForm_Initialize() Dim rngData As Range Dim...例如，用户在文本框中输入内容后，自动输入到工作表中；清空文本框中的内容；等等。

2.4K3 0

VBA实战技巧19：根据用户在工作表中的选择来隐藏显示功能区中的剪贴板组

excelperfect 有时候，我们可能想根据用户在工作表中的选择来决定隐藏或者显示功能区选项卡中的特定组，避免用户随意使用某些功能而破坏我们的工作表结构。下面，我们通过一个示例来演示。...我们想让用户选择工作表列B中的任意单元格时，隐藏“开始”选项卡中的“剪贴板”组，而当用户选择其他单元格时，该组又重新显示，如下图1所示。 ?...图1：当用户选择的单元格在列B中时，“剪贴板”组隐藏，处于其他单元格中时，“剪贴板”组显示首先，我们新建一个工作簿并保存。...然后，使用自定义UI工具打开该工作簿，输入如下所示的XML代码：在Custom UI Editor For Microsoft Office中编辑输入XML 重新打开工作簿，按Alt+F11键打开VBA编辑器，插入一个标准模块，输入下面的代码： Public

4.2K1 0

VBA程序：列出指定工作表中的所有公式

标签：VBA 下面的VBA过程在指定的新工作表中列出指定工作表中的所有公式，包含具体的公式、所在工作表名称及其所在单元格地址。...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...endRow = .Range("A" & Rows.Count).End(xlUp).Row + 1 '去掉公式中的"="号后, 将公式放置在列A中 .Range("A..." & endRow).Value = Mid(c.Formula, 2, (Len(c.Formula))) '放置包含公式的工作表名在列B中 .Range("B" & endRow

2151 0

VBA技巧：让代码识别工作表中的形状

标签：VBA Q：我在工作表中放置有一些形状，例如圆形、矩形等，我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作，该如何实现？...我想在一个过程中实现，而不是每个形状关联不同的过程。如下图1所示，当我使用鼠标单击上方的圆形时，会执行一个操作；单击下方的矩形时，会执行另一个操作，但这两个形状都关联相同的过程。...图1 A：在示例工作表中，将上方的圆形命名为“椭圆示例”，下方的矩形命名为“圆角矩形”。...End If End Sub 然后，返回工作表，在形状中单击鼠标右键，将其关联到宏过程testShape。当你单击工作表中的形状时，结果如下图2所示。...图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。

1561 0

在 Typescript 中推断函数返回类型

情景你正在使用名为 funky-lib 的库中的 doFunkyStuff 函数。...假设 doFunkyStuff 返回一个 Promise，则 AppFunkyStuff 可以这样定义。...在之前的版本中，实现相同效果可能有些棘手。总结这个提示只是 TypeScript 提供的众多功能中的冰山一角。...假设 doFunkyStuff 返回一个 Promise，则 AppFunkyStuff 可以这样定义。...在之前的版本中，实现相同效果可能有些棘手。总结这个提示只是 TypeScript 提供的众多功能中的冰山一角。

1321 0

Excel公式技巧14：在主工作表中汇总多个工作表中满足条件的值

本文提供了一种方法，在给定一个或多个相同布局的工作表的情况下，可以创建另一个“主”工作表，该工作表仅由满足特定条件的所有工作表中的数据组成。并且，这里不使用VBA，仅使用公式。...假设我们想从下面三个工作表中整理数据：工作表Sheet1： ? 图1 工作表Sheet2： ? 图2 工作表Sheet3： ?...在工作表Master的单元格G1中，输入下面的公式： =SUMPRODUCT(COUNTIF(INDIRECT("'"&Sheets&"'!...Sheet1中匹配第1、第2和第3小的行，在工作表Sheet2中匹配第1和第2小的行，在工作表Sheet3中匹配第1小的行。...在单元格A2中，COLUMNS($A:A)的值等于1，因此公式转换为： INDEX(Sheet1!A2:F10,1,1) 即工作表Sheet1中单元格A2的值。

9.1K2 1

使用VBA删除工作表多列中的重复行

标签：VBA 自Excel 2010发布以来，已经具备删除工作表中重复行的功能，如下图1所示，即功能区“数据”选项卡“数据工具——删除重复值”。...图1 使用VBA，可以自动执行这样的操作，删除工作表所有数据列中的重复行，或者指定列的重复行。下面的Excel VBA代码，用于删除特定工作表所有列中的所有重复行。...如果只想删除指定列（例如第1、2、3列）中的重复项，那么可以使用下面的代码： Sub DeDupeColSpecific() Cells.RemoveDuplicates Columns:=Array...(1, 2, 3), Header:=xlYes End Sub 可以修改代码中代表列的数字，以删除你想要的列中的重复行。

11.4K3 0

VBA小技巧10：删除工作表中的错误值

这里将编写VBA代码，用来删除工作表指定区域中的错误值，这在很多情况下都很有用。如下图1所示，有一组数据，但其中有一些错误值，我们想要自动删除这些错误值。 ?...如下图3所示，单击功能区“开始”的“编辑”组中的“查找和选择——定位条件”，弹出“定位条件”对话框。在该对话框中，选取“公式”中“错误”前的复选框，如下图3所示。 ?...图3 单击“确定”后，工作表中的错误数据单元格会被选择，单击“Delete”键，删除错误值，结果如上图2所示。...函数来判断单元格中是否是错误值，如果是，则设置该单元格为空。...这段代码虽然相对长一些，但相比较前面的两种方法，可以自动在错误值单元格中输入内容。

3.4K3 0

在IT开发中工作种类的分类

1.前端程序员主要工作是设计软件界面的，通过使用HTML，CSS，JavaScript等语言和Bootstrap，JQuery等框架来完成和用户直接交互的界面设计工作。...---- 2.后端程序员主要是值为前端提供有规律数据的技术人员，python就能完成这项工作。...比如网站上的最新文章栏目，前端会要求后端程序员说我需要10篇最新博客文章，你帮我写个接口，后端程序员拿到任务就会通过python或者其他后端语言获取博客文章数据表中的所有文章，然后按照时间顺序进行排列，...取出10篇最新发布的文章提交接口给前端，前端拿到后端的接口再进行渲染呈现给用户。...---- 6.全栈工程师，现在的全栈工程师定义起来比较乱，有的人说什么都能干的就叫做全栈工程师，其实我感觉应该加上一个特定的条件，就是在某个行业中什么都能干的才叫做全栈工程师。

9493 0

在Python中定义Main函数

多编程语言都有一个特殊的函数，当操作系统开始运行程序时会自动执行该函数。这个函数通常被命名为main()，并且依据语言标准具有特定的返回类型和参数。...本文结束时，您将了解以下内容：什么是特殊的name变量以及Python中如何定义它为什么要在Python中使用main()函数在Python中定义main()函数有哪些约定 main()函数中应该包含哪些代码的最佳实践...Python中的基本main()函数一些Python脚本中，包含一个函数定义和一个条件语句，如下所示：此代码中，包含一个main()函数，在程序执行时打印Hello World!。...命令行环境不同的操作系统在使用命令行执行代码时存在细微的差异。在Linux和macOS中，通常使用如下命令：美元符号($)之前的内容可能有所不同，具体取决于您的用户名和计算机名称。...在开发模块或脚本时，可以使用import关键字导入他人已经构建的模块。在导入过程中，Python执行指定模块中定义的语句（但仅在第一次导入模块时）。

3.9K3 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭