对表使用VBA
是指在Microsoft Office软件中使用Visual Basic for Applications（VBA）编程语言来操作和处理表格数据。VBA是一种基于事件驱动的编程语言，可以通过编写宏来自动化和定制化Office应用程序的功能。
对表使用VBA的优势：
- 自动化处理：使用VBA可以编写脚本来自动执行重复性的任务，如数据导入、数据清洗、数据分析等，提高工作效率。
- 定制化功能：VBA可以根据具体需求编写自定义功能，如添加特定的计算公式、创建自定义报表、生成图表等，满足个性化的数据处理需求。
- 与其他Office应用集成：VBA可以与其他Office应用程序（如Excel、Word、Access等）进行集成，实现数据的无缝传递和处理。
对表使用VBA的应用场景：
- 数据处理和分析：通过VBA可以自动化进行数据导入、数据清洗、数据转换和数据分析等操作，提高数据处理的效率和准确性。
- 报表生成和定制化：使用VBA可以编写脚本来生成自定义的报表，并根据需要进行格式化、图表插入和数据透视等操作，满足不同报表需求。
- 数据库操作：通过VBA可以连接和操作数据库，如查询、更新、删除等，实现与数据库的交互。
- 表格自动化：使用VBA可以编写脚本来自动创建、修改和格式化表格，提高表格处理的效率和一致性。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：提供弹性计算能力，满足不同规模和需求的云计算场景。详细介绍请参考：https://cloud.tencent.com/product/cvm
- 腾讯云数据库（TencentDB）：提供高性能、可扩展的数据库服务，支持多种数据库引擎。详细介绍请参考：https://cloud.tencent.com/product/cdb
- 腾讯云对象存储（COS）：提供安全、可靠的云存储服务，适用于存储和管理各种类型的数据。详细介绍请参考：https://cloud.tencent.com/product/cos
- 腾讯云人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等。详细介绍请参考：https://cloud.tencent.com/product/ai
相关·内容
因此，在访问表单或报表中，在屏幕上显示比=[UnitPrice]*[Quantity]更复杂的动态内容的一种好方法是跳入VBA。
例如，在这个简化的示例中，该报告的基础表有两个字段ShowTax和TaxRate。通过制作文本框的控件源=GetTaxInfo，我可以在VBA中引入一些复杂性：
Public Function GetTaxInfo() As String
Dim result As String
If Me!ShowTax = 0 Then
result = "Tax included @ " & Me!TaxRate
浏览 3提问于2010-10-15得票数 3
我可以在VBA中保持自己的地位，现在我正冒险进入Javascript。
在VBA中，如果要使用相同的对象，可以使用和With语句对其进行预隔离，而不需要再次引用该对象。例如；
With oSomeForm
.Name = "some neat name"
.Refresh
End With ' oSomeForm
Javascript有类似的东西吗？
浏览 0提问于2017-12-31得票数 0
回答已采纳
我正在尝试使用Datanitro对excel中的一系列单元格进行排序。看起来datanitro没有内置的排序方法，所以我的选项是在python中创建一个，这是Datanitro似乎已经完成的，或者使用内置的VBA方法并通过datanitro从python调用该方法。
用于排序的一个简单的VBA子程序如下：
Sub Sort_1(strDataRange As Range, keyRange As Range)
strDataRange.Sort Key1:=keyRange, Header:=xlNo, Order1:=xlDescending
End Sub
现在，我只需要从python
浏览 3提问于2015-09-29得票数 1
回答已采纳
1回答
我正在使用VBA从Excel中打开一个现有的PPT幻灯片。我正在编辑单元格内容，但我需要根据Excel内容确定是否需要添加行或列。如何确定现有PowerPoint表中有多少宽和高的单元格？
浏览 0提问于2015-11-26得票数 1
1回答
我使用Access VBA调用一个构建图表的R脚本。这个R脚本通过ODBC查询从Access数据库中提取一些数据。我用library(RODBC)来连接R。
如果重新启动Access或运行CompactRe修，查询将始终运行。但是，如果我在数据库中做了其他更改，有时会收到以下警告：
警告消息: 1:在odbcDriverConnect(sprintf("Driver={Microsoft访问驱动程序(*.mdb，*.accdb)};DBQ=%s“)中，：RODBC错误: state HY000，code -3810，message Microsoft数据库已被一个不知名的用户放置在状
浏览 0提问于2018-10-08得票数 1
回答已采纳
2回答
您好，我正在尝试编写一些VBA，以便它检查我的文本框中是否包含数字。文本框被称为: CustomerName。下面是我目前使用的代码：
Function HasNumber(strData As String) As Boolean
Dim iCnt As Integer
For iCnt = 1 To Len(strData)
If IsNumeric(Mid(strData, iCnt, 1)) Then
HasNumber = True
Exit Function
End If
Ne
浏览 1提问于2013-05-10得票数 2
2回答
我的电子表格中有一个公式列，用于根据另一列计算值。我想知道是否有一种方法使公式默认，这样当我插入一个新行时，该列的单元格将自动获得公式预设置，不再需要从上面复制和粘贴。
这是可取的，因为电子表格将由非技术用户填写。当前的解决方法是预先复制和粘贴整个列的公式，但这并不理想，因为文件变得不必要的大和缓慢打开。
任何方法，即使使用VBA也是可以接受的，但非VBA解决方案更好。
浏览 5提问于2015-02-11得票数 1
回答已采纳
1回答
我对excel2007中的图表和图例有一个问题。我需要从一个动态填充的数组中绘制一些行，这个数组最多有9行，但有时我不需要绘制它们。 ? 所以，我制作了所有9条线的图表，甚至是空的线。我的问题是在图表中绘制空行(没有数据和标签)，有一些空的图例标签，我想去掉它们，这样我的图表将是可读的。 ? 我不知道如何删除它们，也许没有VBA或者在这个版本的excel中是不可能的。 谢谢
浏览 23提问于2020-06-19得票数 0
回答已采纳
我正在开发一些VBA，以便在我所支持的应用程序中导出和导入MS-Access对象(使用SaveAsText和LoadFromText)。我希望能够开始在SVN中存储我的代码，这样不止一个开发人员可以同时处理这个应用程序。
当我引入以~sq_开头的查询时，我一直收到以下错误
2285-MicrosoftAccess无法创建输出文件。
有趣的是，当我跳过~sq_文件时，我的表单和报告似乎起作用了。这样做长期安全吗？
浏览 2提问于2010-06-08得票数 0
回答已采纳
1回答
我还在摆弄微软接入系统，这让我发疯了。我当前的问题如下:我将记录导航栏重新创建为子窗体，并将其添加到我的主窗体中。此代码用于子窗体中。
...
Private WithEvents frmParent As Access.Form
...
Private Sub Form_Load()
...
Set frmParent = Me.Parent
frmParent.OnCurrent = "[Event Procedure]"
frmParent.Recordset.MoveLast
frmParent.Recordset.MoveFirst
浏览 3提问于2013-08-11得票数 2
回答已采纳
2回答
我有一个SQL字符串，用于转换存储在服务器上的顺序日期，但是当我将字符串添加到VBA时，就会得到Run Time Error that the Column or global variable doesn't exist。
当我在Microsoft查询中使用字符串时，它工作得很好。请注意，我几乎不了解SQL。
--这是我用来将YYYYDD转换为MMDDYYYY decimal(replace(char(date(timestamp_format(digits(CFMAST.CFDOB7),'YYYYDDD')),usa),'/','')
浏览 0提问于2019-01-24得票数 0
回答已采纳
我在Excel工作簿中嵌入了PowerPoint演示文稿。如何使用VBA编辑此内容(打开、复制幻灯片、向幻灯片添加数据、关闭)？
浏览 1提问于2008-09-23得票数 4
回答已采纳
1回答
我有一些代码，做一些编辑，然后过滤。然后，我将此数据复制并粘贴到新工作表中。问题是，每次行数都会增加，所以我想让它成为动态的。 有人能带我到这里来吗？ 下面是我的代码，它正在运行 Sub TTC_Test()
'
' TTC_Test Macro
'
Dim WS As Worksheet
Dim iBottomRow As Long, iRow As Long
Dim Tbl As ListObject
Dim rng As Range
Dim Ash As Worksheet
Dim Cws As Worksheet
Dim Rc
浏览 34提问于2021-05-06得票数 1
回答已采纳
我正在写一些代码，这是Outlook的一部分，也是Excel的一部分。outlook中的第一部分代码是使用基于电子邮件地址的规则触发的。然后，它会查看电子邮件，并将文件移动到网络驱动器上的文件夹中。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)
Public Sub GetFacebookAttachment(itm As Outlook.MailItem)
'set up outlook objects
Dim objAtt As Outlook.Attachment
浏览 6提问于2015-06-05得票数 2
我们的大部分用户是通过使用Microsoft Query在Excel 2003中构建ODBC查询来访问公司数据的。对于更复杂的东西，他们通常会让我参与进来。
在很多情况下，我认为提取某些数据的最合理方法是使用内联表值函数来实现参数化视图的功能。当从查询分析器调用时，它可以很好地工作：
SELECT * FROM fn_AverageRecovery('2009-07','2009-10')
Sequence Process Centre Process Centres_Descrip
浏览 3提问于2009-10-15得票数 3
1回答
我有一个名为body(ntext，null)的列。基本上，消息正文中的任何内容都将作为一个文本字符串出现。请参见示例：
Report Count SITE Type ACCOUNT NUMBER STMT CD COLL SCHEME Previously Touched Resi Aging 98 Cleveland - 609 Former 22449903 1 RQ-1 1160201
我希望结果看起来像这样：
Report Count SITE Type ACCOUNT NUMBER STMT CD
98
浏览 0提问于2016-03-02得票数 0
摘要：
在大型Word表(大于10×10)中更新值非常缓慢。随着表大小的增加，性能会呈指数级下降。
我在用myTable.values = arrNewValues。我也尝试过myTable.addRows("end", rows, arrNewValues)。其中arrNewValues是一个2D数组。
我也尝试过通过getOoxml()和insertOoxml()进行更新，但是遇到了一些我无法解决的问题，但是性能很好。
缓慢的性能似乎是由"ScreenUpdating“造成的(在VBA中也存在同样的问题，并通过ScreenUpdating=false
浏览 7提问于2017-07-04得票数 1
回答已采纳
作为一些插入的结尾，通过VBA脚本，我一直在访问表中进行操作。作为一项要求，我必须按字段来订购这张桌子。因此，第三人将通过ACCESS导航窗格打开它，并按指定的顺序显示。编辑:我也需要这个表可以由这个第三人写。
我可以考虑创建一个新表，使用SQL语句对其进行排序。但这似乎是一个非常丑陋的选择。
是否有任何方法使用DAO对象或其他VBA方法对其进行归档？
浏览 2提问于2016-02-14得票数 1
回答已采纳
2回答
有两张桌子，一张是学生用的，另一张是借来的书。在Microsoft Access (2010,2013)中，很容易显示基于表“学生”的表单“学生”，以及基于表“借来的书”并指向其记录源的其他表单BorrowedBooks。
如何做表单BorrowedBooks显示当前学生的记录在学生表单上一次显示一个？我希望学习VBA脚本和使用内置控件来实现结果。
之间的关系已经建立。这是一个学生对多本书的关系。
浏览 1提问于2017-08-23得票数 0
过滤器在我的例子中不起作用，因为我拥有的数据将一直在变化(有时它会有很多名字，有时它可能只有几个名字)。 我有两张床单。1从在线来源导出12个月的数据，以及另一个工作表，其中创建了一个透视表，其中所有名称都以月份分隔。 我的意思是，我知道如何找到唯一值并将其复制到另一个位置，但我不知道如何才能获得所需的结果。 我需要一个每月第一次出现的受益者名字的表格，但名字也需要按月份分开。但是，每个月的值需要与前几个月进行比较，而不是直接/仅与所有12个月的数据进行比较。 我不确定是否需要使用数据表，或者是否可以从具有按月名称的透视表中进行。 您可以在图像中看到我需要获得的结果 我对如何实现这一点一无所
浏览 7提问于2020-04-20得票数 0
回答已采纳
我在MS中用ADO更新视图有问题。
我为我的表创建了视图，它们包含可以更改的列和行。例如，表tbl_tablename将具有以下视图:带有一些WHERE子句的vw_tablename_editable，以确定行是否应该是可编辑的。
CREATE VIEW vw_tablename_editable
AS
SELECT tablename_id, tablename_fieldtoupdate
FROM dbo.tbl_tablename
WHERE table_criteriafield > 1000 -- 1000 being some criteria
浏览 14提问于2022-08-15得票数 1
回答已采纳
我需要找到表格中有项目符号或编号的段落。如何在MS Word文档中使用VBA？我试着翻遍每一段：
For Each DocPara In ActiveDocument.Paragraphs
Set rngPara = DocPara.Range
If rngPara.Tables.Count > 0 Then
Set lRange = rngPara.Tables.Item(1).Cell(1, 1).Range
'How to test if cell contents has pargraph(s) that are bulleted or num
浏览 3提问于2021-03-23得票数 2
1回答
我有一个C# dll，当调用main方法时，它会打开一个windows窗体。供应商应用程序当前通过VBA访问此dll。问题是，当调用dll并打开窗体时，用户将失去与供应商应用程序交互的能力。我希望如果我可以修改dll以支持异步调用，那么可以将控制返回给调用应用程序，以允许用户翻页、放大或缩小等。然后，一旦用户完成弹出表单，我们就可以有一个回调或其他东西来将信息返回到vba应用程序定制。
浏览 3提问于2010-01-21得票数 0
1回答
是否可以确定当前进程是32位还是64位，在中使用M代码？
具体的用例是ODBC连接，对于ODBC连接，32位进程和64位进程之间的连接细节必然不同。如果没有检查当前体系结构的能力，可能就无法在Power查询中以一种跨32位和64位版本Office的便携方式使用ODBC连接。
使用VBA宏的解决方案应该是可能的，但不会回答这个问题。除了安全方面的问题，宏也是有问题的，因为无法保证它们是启用的。
浏览 1提问于2022-01-31得票数 0
3回答
有谁有任何技巧可以帮助加快分解表并将大量记录插入到新表中的过程。
我目前正在使用Access和VBA将一个包含大字符串(700多个字符)的记录的表转换为一个每个字符都有自己的记录(行)的新表。为此，我使用VBA中的简单DAO一次循环1个字符，并将其插入到新表中。
目前，我正在处理一小部分数据- 300条记录，每条记录都有700个字符串。这个过程需要大约3个小时才能运行，因此不会扩展到包含50,000条记录的完整数据集！
表1结构
id -字符串001 - abcdefg
变成了
表2结构
id - string 001 -a001-b001-c。。。。。。
我对任何可以改善事情的建议都持开放态
浏览 1提问于2009-05-19得票数 0
回答已采纳
使用Access 2010，我为跨越5个不同表单的表创建了条目单元格，并在每个窗体上创建了命令按钮以在它们之间导航，过滤当前窗体上ID的下一个表单。五个命令按钮中的四个可以很好地过滤到适当的表单，但是与一个表单相关联的命令按钮--一个错误消息读取：
保留错误(-3087)；没有此错误的消息。
我使用了宏和VBA在表单之间导航，使用了Where条件下带有过滤器的OpenForm或DoCmd.OpenForm。宏看起来是这样的：
Open Form
Form Name "MyForm"
View Form
Filter name
Wh
浏览 5提问于2016-11-22得票数 2
1回答
下面的表中有文件路径和需要更新的信息。
我用的是VBA
Sub ReplcaseDate()
Workbooks.Open Filename:="C:\Users\INawab\Downloads\DMM FBO\Operation\Standerd SPA Roster Operation 2022.xlsm"
Sheets("JAN").Unprotect
Range("F3:F5").Value = "1/1/2022"
Sheets("JAN").Protect
浏览 2提问于2022-07-28得票数 -1
1回答
我试图通过VBA编写一个数组公式，但是得到了一个“无法设置range类的FormulaArray属性”的错误。我试过“Range.FormulaArray”和“.Range.selection.FormulaArray”，但都没有用。谢谢你帮我这个忙。
Worksheets("sheet1").Range("Table2[[" & Me.cboSec.value & " Row Score Max]]").FormulaArray = formulae
浏览 2提问于2014-07-08得票数 0
回答已采纳
我有一个带有数据表子窗体的访问表单。此数据表子表单显示动态创建的记录集(枢轴)，并使用某些VBA动态加载该数据透视，同时允许可变数量的列。
我不允许对该子表单进行排序，因为应用程序一旦对子表单进行排序就会崩溃(不是VBA错误，而是应用程序不可恢复的崩溃)。我已经不允许右击菜单，但人们仍然能够使用顶部菜单排序，我不想禁用主菜单。
或者是禁用排序操作(就像我们可以通过将Form.AllowFilters设置为False来处理筛选器那样)，还是在它运行之前拦截它？
我尝试在Form_ApplyFilter操作和Form_Filter操作上设置Cancel = True：
Private Sub Fo
浏览 2提问于2018-02-20得票数 4
回答已采纳
2回答
过去几周，我一直在开发Access数据库，这是我使用该工具的第一个项目。处理附加查询似乎成了一场彻头彻尾的噩梦，令人难以置信的沮丧。更重要的是，它似乎只是在一夜之间以任何一致的方式停止工作。
我编写的SQL查询如下：
PARAMETERS noteDetails LongText, noteTime DateTime, srcUserID Long;
INSERT INTO tblNotes (NOTE_DETAILS, NOTE_TIME_CREATED, NOTE_SOURCE_USER)
VALUES (noteDetails, noteTime, srcUserID)
在tblNote
浏览 3提问于2017-09-06得票数 2
回答已采纳
我目前正在做一个关于MS 2010的项目，我为一个问题挣扎了几个小时。我想在SELECT/透视语句上应用一个过滤器。查询的结果显示在ListBox中。
问题是，当组合框设置为Null时，不会显示结果。但是当我在Combobox中选择特定的值时，它就完美地工作了。
Cbbox过滤器被声明为参数
我的查询WHERE子句如下所示：
WHERE (Jobs.fk_group=[Formulaires]![frm_MAIN]![lst_filterGroup] AND (fk_otherCritera='XXX'))
OR ((([Formulaires]![fr
浏览 0提问于2016-07-11得票数 0
回答已采纳
2回答
我正试图通过ADO来计算一些表中的项目数。查询如下：
select count(*) as a from TABLE1;
select count(*) as b from TABLE2;
如果我通过我的SQL运行它，我会得到：
a
------------
1
b
------------
0
到目前一切尚好。
但是，如果我运行此代码(VBA)：
Dim adoCon As New ADODB.Connection
Dim adoRecords As ADODB.Recordset
Dim query As String
query ="select count(*) as a fr
浏览 1提问于2016-04-20得票数 0
回答已采纳
我在Excel中有一个表，希望在用户修改单元格值时检测更改。为了反映这些特定的变化，我需要知道单元格的位置和旧单元格的值。我可以在Excel VBA/COM外接程序中实现这一点，但不能使用JavaScript。
浏览 8提问于2016-01-05得票数 0
2回答
我对vba还是个新手，我看过的所有解决方案都集中在更改值而不是公式上。
我在sheet2上有一个名为"table1“的表。当R列调用更改时，它应该对H列中的日期加时间戳
该公式基于其他列的串联。示例: B2 A2将是狗和Cell猫。R2会给狗猫看。如果我更改了B2或A2，我希望日期戳为H2。
请帮帮我:)
浏览 0提问于2018-04-03得票数 0
2回答
我正在使用Access 2013 VBA SQL过滤Access表。需要挑选只有仓库20和21的项目。
Item Warehouse
Item1 25
Item1 21
Item1 22
Item1 22
Item2 20
Item2 21
Item2 21
Item2 21
Item2 21
Item3 20
Item3 22
Item3 23
Item3 25
Item3 25
Item3 25
Item4 20
Item4 20
Item4 20
Item4 21
Item4 21
Item5
浏览 2提问于2016-11-19得票数 0
我想使用宏的“发送对象命令”每天通过电子邮件发送一系列查询的记录，但我只希望它在给定查询中有记录的情况下才发送给定的电子邮件。如果查询没有输出任何记录，那么我不希望发送该电子邮件。我知道如何通过设置"on no data event“来使用Acces报告来实现这一点，但我更希望我的宏不运行Access报告，而只是运行查询，因为以reoprt格式输出数据会占用我计算机上的大量资源。请注意，我不知道VBA，所以我想知道我是否可以实现我的目标，而不是任何VB编程。非常感谢您的建议
浏览 0提问于2010-07-15得票数 0
回答已采纳
2回答
在我的ComboBox中，我已经选择了一些项目。
我想用VBA来计算它们。我希望找到类似以下字符串的内容，但我得到了Compile error: Argument not optional。
Me.<ComboBox_name>.ItemData.Count
我也想使用下面的字符串，但它给了我0项：
Me.<ComboBox_name>.ItemSelected.Count
浏览 0提问于2017-12-21得票数 2
回答已采纳
2回答
我尝试过一百万种不同的方式。起初我根本不能让它工作，但现在我已经设法让它工作，如果我输入值的话。我需要做的是让我的查询根据我输入到表单中的内容来过滤我的记录。
我已经在我的MovieYear专栏的'Criteria‘部分使用了这段代码，当我在表单的MovieYear1和MovieYear2文本框中输入数字时，它会正确过滤。
Between [Forms]![SearchForm]![MovieYear1] And [Forms]![SearchForm]![MovieYear2]
但是如果我不输入任何值，它就不会得到任何记录。有什么帮助吗？我几乎什么都试过了(好吧，至少我认为我试过了)
浏览 1提问于2013-03-21得票数 1
回答已采纳
我正在尝试从Excel表格(“版本”)中填写用户表单("Userform1")文本框("SecurityTextBox"，"VersionTextbox")。我试着找出哪里出了问题，但还是没能弄清楚。
Private Sub UserForm1_Initialize()
Dim ws As Worksheet
Set ws = Worksheets("Version")
SecurityTextBox.Text = ws.Cells.Range("C8").Value
VersionTextbox.Text =
浏览 0提问于2018-07-03得票数 0
从今天起我的Access DB就有了这种奇怪的行为。如果我试图在VBA (即F5)中运行代码，就会出现一个框并要求选择要运行的宏。以前从未遇到过这个问题，因为我只想让它运行我所做的代码。试图找到解决办法，但没有成功。
我为我所有的代码而发生..。比如公共职能或私人部门..。
例如，我创建了这段代码。当我通过单击按钮执行它时，它可以工作，但是如果我在F5中运行VBA，它总是要求宏.
公共子Command18_Click()
MsgBox (“你好”)
结束子对象
浏览 5提问于2022-08-12得票数 -1
我在使用MS Access 2010时遇到了一些问题。我正在尝试修改我下载的数据库，一个来自微软网站的模板，我正在做一些修改来跟踪食物的营养。我有一些基本的经验，从过去的16位Atari的日子。我对VBA并不是完全陌生，只是知道得够多了，可能会遇到麻烦。我有一个表单，它使用select查询来填充表单的下半部分。我向foods表添加了一个附件字段，该表有超过8500条记录，这是用于查询的表。我的问题是在模块中添加VBA代码，以查看是否存在照片。我希望能够显示一个灰色的图标没有照片和一个常规的图标，如果有一个照片文件。但这是我开始工作的时候用的。我在属性字段中调用函数：
Photo1: chkAt
浏览 0提问于2014-01-14得票数 1
没有发现任何密切相关的问题，所以让我们开始吧。
这是我的查询的一个简单版本：
SELECT sampleID, beginDateTime
FROM sample
WHERE DateValue(beginDateTime) = [Enter sample date: ];
这不会返回任何记录，但应该会根据我输入的日期返回3。
然而，这个版本返回了我所期望的，所有匹配所提供的日期和时间的记录。
SELECT sampleID, beginDateTime
FROM sample
WHERE DateValue(beginDateTime) = #2015-5-18#;
如何在将返回相应记录的A
浏览 1提问于2018-11-14得票数 1
2回答
我犹豫不决地问，但是没有任何文档可以让我找到用于VBA的。
相关的(但我不认为这是个骗局)：
C++
C++
和最有可能相关的
我还看了一下。
我想我用的是“实例化”这个词，但如果我错了，请纠正我。实例化是当一个变量被创建并分配它所需要的资源时？因此，在VBA中，我看到了两种方法。
上面的一切！
Public Sub ToTheTop()
Dim var1 As Long
Dim var2 As Long
Dim var3 As Long
var1 = 10
var2 = 20
var3 = var1 + va
浏览 1提问于2016-04-20得票数 4
回答已采纳
我是VBA和Microsoft Access的新手。我已经读了几篇关于这个话题的帖子，但我不知道我做错了什么。或者我可能遗漏了一个引用？我想将几个组合框添加到一个数组中，然后重用该数组来做各种事情，比如使它们可见或不可见，等等。
我一直在尝试的代码是这样的--我已经尝试使用Control，AccessObject，ComboBox作为数组的类型，get:对象变量或者没有设置块变量--你知道我做错了什么吗？
Private Sub Form_Load()
Dim arrayComboBox(3) As Control
Set arrayComboBox(0) = Me.cmbTourStop
浏览 0提问于2015-04-03得票数 0
我对VBA非常陌生，我的要求是在工作簿中所有表的末尾添加一个新列，并以格式将最后使用的列值复制到我的新列中。
Sub LoopThroughAllTablesinWorkbook()
Dim tbl As ListObject
Dim sht As Worksheet
Dim SheetName As String
For Each sht In ThisWorkbook.Worksheets
SheetName = sht.Name
For Each tbl In sht.ListObjects
浏览 0提问于2018-11-30得票数 0
回答已采纳
2回答
是否可以将我需要应用于列的公式保存或应用于列标题或某种类型的元数据，以便在我向Excel表添加新行时将公式应用于这些列？
场景：
我正在创建一个模板表，它一开始没有行。在单独的表(或同一张表)上，一旦用户选择了要在表中生成的行数，我就会使用VBA向表中动态添加行。
我的想法是，我可能在开始时表中没有任何行，或者用户可能已经手动删除了行。当我以编程方式添加新行时，我希望公式也应用于单元格。我使用的大多数公式都是这三种类型中的一种：
结构化的表格引用，Excel函数，如SUM，AVERAGE等和自定义函数名称。
更新：
以下是我尝试过的方法：
1>尝试将该公式应用于标头本身。结果:由于#RE
浏览 2提问于2014-09-09得票数 3
我正在尝试运行一些通用代码来从外接程序中卸载UserForm。下面的代码存储在添加的。如何检查特定工作簿的用户？
我一直在玩VBProject.VBComponents，但是没有和joy在一起。
Function CheckUnloadForm(ByVal UserFormName As String) As Boolean
Dim objUserForm As Object
CheckUnloadForm = False
For Each objUserForm In VBA.UserForms
If objUserForm.Name = UserFormName Then
浏览 0提问于2018-06-18得票数 0
让我解释一下我为方便地描述我的问题而设立了什么。我基于一个表创建了一个子表单，为了举例说明，该表如下所示：
每个Text Box都是有界的，即它的Control Source指向表中适当的字段名。
底部有一个保存Command Button，在这里我添加了一些vba代码，以将4个字段值插入到表中。
单击“保存”按钮后，我执行以下操作将其插入到表中，并关闭表单：
db.Execute "INSERT INTO testTable (Number, Name, OtherNumber, OtherName) " _
& "VALUES (&
浏览 0提问于2018-03-10得票数 0
回答已采纳
我正在为下面第一个printscreen中标记为"View“的按钮编写On_Click方法。该方法将加载一个表单，其中的数据与包含"View“按钮的行中的特定地址id相对应。当指向一个名为"Addresses“的目标表单时，这段代码工作得很好。但是，当我决定将表单重命名为"Address“时，我开始在单击视图按钮时收到以下错误消息：
我在网上做了一些关于这个错误消息的研究，这导致我试图删除VBA编辑器中任何过期的引用。但是，当我在VBA编辑器中单击Tools-->References时，我得到了以下错误消息：
系统注册表中的MS Acc
浏览 0提问于2013-09-26得票数 0
StackOverflow的粉丝们，
我尝试在VBA中使用.Find，但总是收到一个相当恼人的错误。准确地说，是错误424，需要对象。
试图学习，但已经与这个错误斗争了超过24小时，似乎就是找不到我的错误。我还在下面添加了一些屏幕截图，以便您可以自己查看数据。
截图说明: Screenshot1是我的第一个数据集，我希望用Screenshot2中的F列填充H列，我的通用调用者在第一个数据集中的D列和第二个数据集中的B列中找到。
我的问题总结:一直有错误424，对象需要下面的数据。请帮我找出我做错了什么，因为我想从中吸取教训，并且已经在这个错误中挣扎了超过24小时。
Dim sht As Wor
浏览 2提问于2017-07-19得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
