如何让VBA代码重复输入
VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，它允许用户使用代码自动化重复性的任务。在VBA中，有几种方法可以实现代码的重复输入。
- 使用循环结构：循环结构是一种重复执行特定代码块的方法。VBA提供了几种循环结构，包括For循环、Do While循环和Do Until循环。这些循环结构可以根据指定的条件重复执行代码，从而实现代码的重复输入。以下是一个示例：
For i = 1 To 10
' 在这里插入要重复执行的代码
Next i- 创建自定义函数或子程序：在VBA中，可以通过创建自定义函数或子程序来封装可重用的代码块。自定义函数可以接受输入参数并返回结果，而子程序只是执行一系列操作而不返回结果。通过调用这些自定义函数或子程序，可以在代码中重复使用它们。以下是一个示例：
Sub MySub()
' 在这里插入要重复执行的代码
End Sub
Function MyFunction(input As Variant) As Variant
' 在这里插入要重复执行的代码
' 并返回结果
End Function- 使用递归：递归是一种在函数或子程序内部调用自身的方法。通过使用递归，可以实现某些具有递归结构的重复性任务。需要注意的是，在使用递归时，必须定义终止条件，以避免无限循环。以下是一个示例：
Sub MyRecursiveSub(n As Integer)
If n > 0 Then
' 在这里插入要重复执行的代码
MyRecursiveSub n - 1
End If
End Sub以上是几种常见的方法，可以让VBA代码实现重复输入。根据具体需求和任务，选择适合的方法来实现代码的重复性执行。
腾讯云相关产品和产品介绍链接地址：
- 云函数（Serverless）：https://cloud.tencent.com/product/scf
- 云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 弹性计算（云服务器）：https://cloud.tencent.com/product/cvm
- 腾讯云容器服务：https://cloud.tencent.com/product/ccs
- 腾讯云人工智能：https://cloud.tencent.com/solution/ai
- 云存储（对象存储）：https://cloud.tencent.com/product/cos
- 腾讯云区块链：https://cloud.tencent.com/product/bcos
- 腾讯云音视频服务：https://cloud.tencent.com/product/vod
- 物联网开发平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发：https://cloud.tencent.com/product/mfe
注意：以上链接为腾讯云相关产品的介绍页面，提供了更详细的信息和相关服务。
相关·内容
我有一个基于输入手动添加或修改的文件。由于该文件中的大多数内容都是重复的，只有十六进制值在变化，所以我想让它成为一个工具生成的文件。
我想写c代码，这些代码将被打印到那个.txt文件中。
使用VBA创建.txt文件的命令是什么?如何对其进行写入
浏览 88提问于2012-07-16得票数 127
回答已采纳
3回答
我在VBA中做了一个相对混乱的SQL字符串，将许多变量连接成SQL字符串，然后在ADO中执行该字符串。
下面是一些示例代码：
Sql = "insert into mydb.dbo.table values ('" & var1 & "','" & var2 & "','" & double1 & "," & double2 & "," & double3 & ")"
我不想复制整
浏览 0提问于2013-07-23得票数 2
回答已采纳
1回答
我在Access VBA代码中有一个在用户表单上单击的按钮。
我有两个重复的表(PrintTable和ManPowerCalculator)，我正在尝试将ManPowerCalculator表中的每一项插入到PrintTable中，其中用户表单上的EmplID输入框= ManPowerCalculator表中的输入框。
CurrentDb.Execute "INSERT INTO PrintTable VALUES (*) SELECT (*)FROM ManPowerCalculator WHERE EmplID # = " & Me.EmplID "
我没有
浏览 24提问于2017-01-25得票数 2
我在我的.xlsm excel文件中有一个vba代码。当我在线编辑它时，我的代码无法工作。但当我在工作簿中编辑它时，它可以工作。
为何会这样呢？
vba代码包含用于停止excel中某列的重复值输入的代码。
浏览 1提问于2018-05-14得票数 0
我对VBA代码没有什么经验，我试图让这个代码对第2-100行重复。与行中重复的其他代码相比，我发现的问题是，我的代码有多个结束参数，我不知道如何解释这一点。任何帮助都是非常感谢的。
Private Sub Worksheet_SelectionChange2(ByVal Target As Range)
a = Date
b = 2
If Cells(b, 3).Value <> Blank Then
If Cells(b, 2).Value = Blank Then
Cells(b, 2).Value = a
浏览 2提问于2022-01-19得票数 1
回答已采纳
我是第一次使用VBA编程，我正在为我工作的一个心理实验室的数据输入创建一个数据库。当前数据库已创建，但我希望防止重复条目被放入数据库中(即，在输入参与者编号后立即进行代码查找)。我已经尝试修复这个代码很长一段时间了，但我最近遇到了麻烦。当我输入参与者号码时，它会显示正确的错误消息，但是它会显示每个号码都已经输入(即使他们实际上还没有输入)。代码如下：
Private Sub Participant_Number_BeforeUpdate(Cancel As Integer)
Dim Participant_Number As Integer
Dim StLinkCriter
浏览 0提问于2017-04-05得票数 0
1回答
我正在通过VBA excel制作一个数据输入表。我对此非常陌生，无法得到任何有意义的搜索结果，因为我不确定我想要做什么。
无论如何，我正在创建的表单是让用户输入从运行审核中收集到的数据，当单击"Save“按钮时，文本框和组合框中的数据将被写入excel工作簿中的新行。在我的表单中，有四个字段标识每个数据输入(年份、季度、日期、病房)，然后是其余的数据。我正在尝试获取一些代码，以便首先检查工作簿中是否存在具有相同值的行，以防止重复条目。
例如，电子表格包含以下数据-
年度-季度
2013年？
2013年？
2013年？
2013年？
2014年？
用户使用以下值输入一个新条目
2014
浏览 2提问于2014-01-31得票数 0
我已经在VBA中编写了代码来登录到一个网站并根据我通过VBA输入框输入的标准显示一个给定的页面。最初，我是拿一个案件编号，输入到一个输入框。代码检查o看看网站是否已经打开-如果是的话，我已经登录了，它会转到case #页面。如果我没有登录，它们会提示我输入密码让我登录，然后重定向到case #页面。我现在已经创建了一个hph网站，列出所有的案例#作为链接。我想点击链接，让同样的过程发生。在这种情况下，我已经提供了每个链接的案例#，但仍然需要能够循环通过打开的IE窗口，看看程序是否打开，是否登录，等等。我丢失的大片段是密码输入框的等价物，以及如何循环通过IE窗口。在VBA中，我为密码创建了一个自
浏览 1提问于2013-10-25得票数 0
回答已采纳
我在Excel中使用VBA删除活动区域中的重复值，该区域的长度约为12000行，并且在单个列内。但是，当我在所选区域上运行RemoveDuplicates命令时，它会删除重复值所在的整个行。我的代码显示如下：
Sub Dedupe()
Range("B1").Select
ActiveCell.Resize(12109, 1).Select
ActiveCell.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
我的问题是，这会删除相邻列中的重要数据，我计划接下来删除这些列中的重复数据。我想让这个过程循环遍历大约900
浏览 0提问于2016-08-23得票数 1
1回答
可能重复：
是否有机会在用户触发的任何marco GodMarco之前运行特定的marco GodMarco？
案件一
我有一个工作表，它有很多按钮来做不同的操作，由用户。
我有正常的单元格来让用户输入数据，并且有隐藏的单元格来做脏的工作。
由于用户可以使用箭头或标签圈通过，我必须保护工作表。
使他们无法选择。
现在VBA停下来了。
我知道我可以一次又一次地添加vba代码来解除保护和保护，但我认为将它们添加到每个marco中是愚蠢的。
那么，在每个marco被用户触发之前，运行GODMARCO1，在用户marco之后运行GODMARCO2，这是否是戈德模式呢？
好了，谢谢。案件二
或
浏览 1提问于2012-07-21得票数 0
1回答
我需要用VBA将数据输入到线图中。当我在原始测试中使用Excel时，我需要给出一个基本的一维范围。问题是，现在我需要在VBA代码中隐藏一些东西，这样用户只需单击一个按钮就可以看到一些基本输入所产生的曲线。
我认为至少有两种选择：
之前将图表对象放置在Excel中，并让它指向某些VBA片段。在这种情况下，我应该从Excel中以某种方式指向VBA吗？或者VBA会通过某些ID访问图表区域吗？
从VBA、图表窗口、图表和系列输入动态创建所有内容。这可能会更棘手，因为我已经冻结了窗格，因此会有一个问题:哪个窗格是活动的(我希望避免选择正确的窗格)
你有什么建议？在这两种情况下，如何才能真正做到这一
浏览 2提问于2011-12-01得票数 0
回答已采纳
1回答
我在Excel 2010中编写了一个VBA代码来搜索演示文稿中的特定文本(我从Excel输入)，剪切该幻灯片，并将幻灯片粘贴到幻灯片旁边，在幻灯片中找到相同的文本(同样是从Excel输入)。
我想重复大约50次，也就是说，我想用PPT找到50个文本，然后剪切这些幻灯片，然后将它们粘贴到其他地方。
是否可以使用Excel VBA代码执行此操作？？
浏览 0提问于2015-06-27得票数 0
2回答
我是一个非常新手的VBA编程，我有一个VBA代码读取数据从INI文件，现在我的老板让我去注册表！有人能告诉我他的意思吗？我的意思是，我给了INI文件中的输入文件，输出文件保存在某个文件夹中，但是这个注册表是什么？如何从注册表读取put输入和输出文件？
浏览 1提问于2014-03-12得票数 1
我正在编辑一个公司数据库和相应的3个字母的缩略语。我有一个宏，当一个新公司被添加到数据库中时，它会自动生成一个缩写词。
Function Abbv(pWorkRng As Range) As String
Dim arr As Variant
Dim xValue As String
Dim output As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
output = output & V
浏览 2提问于2017-06-06得票数 0
我正在使用VBA更改事件来查找列C中的重复项。下面的代码可以工作，但当我删除范围内的所有值时，空格将被作为重复项触发，因此我需要在代码中包含一种忽略重复项的方法。有什么想法吗？ Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error GoTo ws_exit
Application.EnableEvents = False
With Target
If .Column = 3 Then
With .Entire
浏览 37提问于2019-04-24得票数 0
回答已采纳
1回答
我试图将XML配置文件的访问封装在(excel) vba自定义类中。XML文档的一部分被分割成4或5个重复的部分，这些部分被一个AreaID区分。我的问题是:如何将类接口的输入限制到可以从XML文档中读取的各种AreaID接口？
修订：--什么是从类内部控制类接口输入的最佳方法(因为它与vba相关)？(即公共枚举、二级“助手”类、类内的错误处理、硬编码.)
浏览 1提问于2011-05-31得票数 1
回答已采纳
我有VBA Excel代码，它在Teradata中运行一个SQL查询，并将结果吐回excel中。为了安全起见，我希望弹出一个“输入框”，让用户输入他们的用户ID和密码，而不是让它坐在代码中。有什么想法/可能吗？我以前曾处理过消息框和输入，但对于如何对此实例执行此操作感到困惑。谢谢!
connect.Open "Data Source=****; Database=****; Persist Security Info=True; User ID=****; Password=****; Session Mode=ANSI;"
浏览 1提问于2014-03-06得票数 0
回答已采纳
1回答
我在MS Access条目表单中创建了VBA代码，以限制请求编号的重复输入。当我输入重复的值时，它会抛出警告。我的问题是，即使我输入了唯一的一个，它也会一直抛出警告。
Private Sub Request_Number_AfterUpdate()
Dim Request_Number As String
Dim Answer As Variant
Answer = DLookup("[Request Number]", "GSAPAssets", "[Request Number] ='" & Me.Request_Numb
浏览 0提问于2020-01-09得票数 0
我使用过CATIA vba编码，我知道可以生成几何特征(如平面、点、交点等)。使用vba代码。我还知道，您可以在vba中重复所需数量的操作(例如，创建一个平面)。但问题是vba实际上是离线的，我的意思是每次都应该执行代码来生成特性。 在我的例子中，我正在创建一个零件模板，其中不仅尺寸是参数化的，而且几何特征的数量也与输入参数相关。例如，当我将长度参数设置为100 it时，应创建2个平面；当我将其更改为200 it时，应定义另外2个平面。如果我把它改回100 if，应该只剩下2个平面。这意味着除了位置之外，平面的数量还与输入参数相关。 在CATIA中有什么特性可以做这样的事情吗？我猜在"
浏览 19提问于2019-01-02得票数 0
回答已采纳
2回答
我需要在VBA的专家帮助，因为我是新来的。实际上，我正在寻找的Vba代码连续计数的基础上，两列(序列号和警报代码)按钮单击事件。列行不固定(动态更改)。连续计数是每个序列号警报代码的最大重复计数。这应该显示在输出工作表中，如最大重复警报计数(每个序列号)。
输入工作表：
预期产出：
输入表中的重复计数工作模式如下(仅供参考).
矿用源代码，如下所示，但这并不引用第一列序列号(这只适用于AlertCode这样的一列) :
Sub ConsecutiveCount()
Dim lr As Long, c As Range, a As Long
Ap
浏览 9提问于2022-01-05得票数 0
1回答
与前一行中的列2和5相比，我需要限制用户在列2和5中输入重复的值。
如果第2列或第5列与上一行中这些列的值相比具有重复项，则我的代码限制输入重复项。
我的目标是当两个列都有重复的值时，有一个警告/操作。
截图示例：
“Sheet1”中的VBA代码：
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If (.Column <> 2 And .Column <> 5) Or .Cells.Count > 1 Then Exit Sub
If
浏览 2提问于2021-12-28得票数 0
回答已采纳
我使用的是Access 2010，我想让用户在Form1中单击一个名为“另存为”的按钮来启动VBA代码，在代码运行完成之前，让它暂停，打开Form2 (用户在其中输入一个“另存为”标题，然后单击“保存”)，然后使用在Form2中输入的字符串作为变量继续在Form1中运行代码。
我只是不确定如何在Form1中“暂停”我的代码，因为它等待用户输入。你有什么想法来解决这个问题吗？
浏览 0提问于2012-11-17得票数 1
回答已采纳
例如，当用户在A6中输入一个值并按enter时，光标应该移动到G6。当用户在G6中输入值时，光标应该移动到A7。用户再次输入值，光标移动到G7。这应该将A8重复到G8，将A9重复到G9。
我在朋友的帮助下创建了一个小的VBA代码！对这段代码的任何修改都会很有帮助！
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then Range("G5").Select
End Sub
浏览 17提问于2022-04-04得票数 2
2回答
我试图在MS-Access2007VBA中输入一个列表框的ColumnWidths，而且我在让它取十进制数时遇到了问题。
代码：
ResultList.ColumnWidths = "1;0.65;0.7;0.7;0.8;0.4"
Debug.Print ResultList.ColumnWidths
ColumnWidths:的输入内容
1;1;1;1;1;0
--我想让它来管理输入(根据现在的情况)：
1";0.65";0.7";0.7";0.8";0.4"
问题：
我如何让它认识到，我希望小数在那里，以便它停止四舍五入？在
浏览 1提问于2009-07-10得票数 0
回答已采纳
1回答
我有一个VBA代码，可以帮助用户通过为特定任务输入完成日期或天数来安排项目，然后创建一个显示项目完成百分比的图形。
VBA代码取决于单元格的格式以执行其计算。Excel在用户第一次输入值时正确选择数字或日期方面做得很好。但是，如果用户输入一个日期，然后决定输入一个数字(例如: 7)，他们最终将以1/7/1900作为日期，这将使excel不能正确地执行VBA。
有没有办法让Excel在单元格每次更改时“重新考虑”它的格式？如果没有，有没有办法在VBA中强制它这样做，并且只选择数字或日期格式？
谢谢,
-MK
浏览 2提问于2014-04-17得票数 0
1回答
我的代码中有一个错误，我已经改正了，但是它在运行时生成了一堆工作表对象，但我没有注意到。工作表不仅仅是隐藏的，它们不存在于Excel的前端，也不能被隐藏。
通常，我只编写一个类似sheet15.delete的代码，让VBA为我处理这类事情。但这些床单似乎不能这样删除。我还检查了Excel中视图选项卡上的窗口设置，unhide选项是灰色的。
我还将工作簿保存为xlsx，去掉了VBA，目的是从备份中导入VBA。但是，在我甚至可以输入VBA之前，在xlsx文件的VBA编辑器中列出了这些表。很令人沮丧也很奇怪。
知道我如何在不启动新项目和导入表单的情况下删除这些假页吗？
浏览 2提问于2017-10-04得票数 0
回答已采纳
打开excel时出现错误:我们发现XXX中的某些内容有问题。你想让我们尽可能多地恢复吗？如果您信任此工作簿的来源，请单击“是”。单击“是”可修复此问题，但会删除许多VBA代码，这需要两周的时间。无论昨天介绍了什么问题，我都不想重复两周的代码。有没有什么方法可以让我在不打开excel的情况下查看删除的内容，或者在notepad++或其他地方打开VBA？
浏览 6提问于2020-05-28得票数 0
我是第一次访问VBA。
我正在制作一个简单的表单，它将插入数据到表中。表如下所示。
该窗体有两个文本框和一个保存按钮。
textbox1 =类别名称textbox2 =项目名称
我想要的是当用户按下保存按钮时，代码应该检查比较类别和项目名称的重复条目。
例如，如果用户在类别文本框中输入水果，在ItemName文本框中输入苹果，则系统应提示重复输入。但是，如果用户在类别文本框中输入蔬菜，在ItemName文本框中输入苹果，则系统应允许在表中输入。
请帮帮忙。
问候/
浏览 0提问于2020-08-13得票数 0
1回答
我是韩国人，我用的是韩国的Excel。
Excel支持用户在其他语言中更正输入错误单词选项
例如,
当我们输入韩语单词'사랑‘时，如果在英语模式下输入'tkfkd’并按Enter键有误，它会将单词更改为原始韩语模式'사랑‘。
所以我想把这个技巧用在VBA的许多数据上
我写了下面的代码。
行(tkfkd、러브，사랑等)
我希望单词("tkfkd")会改为("사랑")，但这个单词("tkfkd")没有变化。
如何在VBA中使用此“自动更正单词”选项？
请让我知道。
谢谢你。
for row 0 to lastrow
C
浏览 0提问于2018-06-04得票数 1
1回答
我一直在研究使用VBA来编写VBA代码。所以最终我可以编写一个算法，根据输入的变量来编写循环。
我看到了下面的代码，它看起来像是将代码添加到VBA项目中，但我遗漏了一些东西来让它工作。在这上面找不到任何线索。我知道“ThisWorkbook”才是问题所在。我需要如何命名它才能在VBA项目中引用该工作表(相同的名称)。
谢谢
Option Explicit
Sub test()
Dim WB_Write_Code_Test As Workbook
Dim WS_Test As Worksheet
Dim nextline As Long
Set WB_Write_Code_Test = W
浏览 0提问于2017-08-28得票数 2
2回答
我正在寻找一种根据列名“Product”合并重复行的更有效的方法。某些行不会有重复项。这是我正在使用的数据示例。实际上，我正在处理数千行和超过40列的数据。如果根据列"Product“确定存在重复的行，我的目标是合并到一行中并保留非空值。
这是我在mr上的帖子的链接。excel，但没有人能想出解决方案：
这是之前和之后的图像
关于如何让这个过程更有效率，有什么建议吗？我认为VBA代码是必需的，我目前正在手动做这件事，这是非常痛苦的。谢谢!
浏览 0提问于2017-07-14得票数 1
回答已采纳
1回答
我有一张桌子是用Excel粘贴的。现在，我需要顶部的行，1和2，显示在每一页的顶部。问题是我不能让它使用VBA代码，但是手动工作。
我已经查看了internet、MSDN和VBA中的对象库，但是我似乎可以找到如何用代码来完成它，就像手工完成一样。
Sub test()
Dim tbl As Table
Set tbl = ActiveDocument.Tables(1)
tbl.Rows(1).HeadingFormat = True
End Sub
运行时错误: 5991 Cant访问选定的特定行，原因是包含垂直合并单元格的表
但是，如果我手动执行，输入表
浏览 0提问于2019-05-23得票数 0
回答已采纳
我之前问过这个问题，但我想我说得不够清楚。
我需要编写一个Word VBA宏，它将提示用户在宏开始运行后通过突出显示来选择一些文本，然后处理新的选择。此过程将在宏内重复未知次数。
我唯一的问题是弄清楚如何让VBA宏“暂停”，并允许用户进行此选择。如果有人熟悉AutoCAD VBA，我正在寻找AcadSelectionSet.SelectOnScreen方法的等价物。这似乎是如此明显和基本，但我就是无法在微软的帮助文件或在线搜索中找到任何说明如何做到这一点的东西。如果可以，请帮助我！
浏览 4提问于2009-04-03得票数 1
1回答
变长场的前导零点
、、
我有一个表单，要求用户在文本框中输入一些信息，然后使用一些VBA代码操作这些值并将它们输入一个表中。
其中一个文本框要求一个数字序列号。这个序列号值的长度可以是四位或五位，并且可能包含一个或多个前导零。例如0001、00758或0463。
一旦VBA代码将这个值输入到表中，它就会循环它，增加它，并生成另一个条目。这会重复执行，直到将所有序列号添加到表中为止。我在代码中将文本框中的序列号值声明为字符串，但它仍然删除了我的前导零。
浏览 3提问于2014-09-29得票数 0
回答已采纳
我有一个数据集，如下所示：
A B C
1 10 145
1.1 11 0
1.2 12 0
1.3 13 0
2 14 145
2.1 15 0
2.2 16 0
3 17 145
3.1 18 0
3.2 19 0
表中的A和B列是我的输入数据，C列是用以下公式创建的：
=IF(MOD([@A],1)=0,SUM([B]),0)
这是一个简化的例子，而不是我使用的实际公式，但作为一个最小的可重复的例子，它就足够了。
当我手动将此公式输入编辑栏时，它的工作方式与预期完全相同，并生成上表中的值。但是，当我尝试使用VBA将这个公式输入到单元格时，它失败了。
浏览 2提问于2018-11-12得票数 2
回答已采纳
1回答
我正在尝试从VBA中的一个输入框创建一个命名范围。这是我的代码，但我无法让VBA识别范围的名称。
Dim xRgl As Range
Set xRg1 = Application.InputBox("Range A:", "Select Range", xTxt, , , , , 8)
Range("xRgl").Font.Italic = True
浏览 0提问于2022-06-21得票数 1
我正在尝试为excel项目添加现有的VBA代码。我正在寻找一个VBA来查找列中的重复值，结果将在另一列中打印。例如，如果在一列中输入User1两次，则第二次输入时，下一列中将出现"duplicate“。
Sub DuplicateFinder()
Dim LastRow As Long
Dim matchFoundIndex As Long
Dim iCntr As Long
LastRow = Range("A65000").End(xlUp).Row
For iCntr = 1 To LastRow
If Ce
浏览 4提问于2017-02-17得票数 0
回答已采纳
我有一个VBA代码，它为给定一组条件的特定输入返回多个值--只有当它们之间的不是彼此的唯一的时候，我才需要更改代码才能使它返回多个值？
Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cel
浏览 3提问于2017-12-15得票数 1
回答已采纳
我有一个输入字段，用户可以在其中输入数字"X.XXXXX“
然后，当按钮被按下时，我使用一些VBA将该数字复制到另一个工作表中。当数字以0或多个零结尾时，就会出现问题。例如，以数字5.46770为例。我将单元格的格式设置为显示5位小数。但是，如果尾随数字是5.4677，Excel仍将该值视为用户未知的值。因此，当我的宏从单元格中提取值时，它需要5.4677对5.46770。我想知道的是如何让我的VBA代码提取尾随的0。有什么想法吗？
浏览 18提问于2013-09-19得票数 0
我需要帮助在下面的excel和什么看起来像VBA的问题。
这里的想法是在每个分组中生成所有可能的组合(不重复)。
输入
COLUMN A | COLUMN B
A | 1
X | 1
D | 1
C | 2
E | 2
输出
COLUMN A | COLUMN B
A | X
A | D
X | D
X | A
D | A
D | X
C | E
E | C
我所做的..。如果数据在同一组中，我如何让它运行。
Option Explicit
Sub Sample()
Dim i As Long, j As Long
Dim CountComb As
浏览 0提问于2012-11-20得票数 2
1回答
我正在为一个体育和社交俱乐部写一张平局表。我用过宏。我在VBA中计算雇员的数量并使用随机数，然后匹配从表中提取姓名。可以有1200名员工和400名点击一个数字按钮。然而，我发现我得到了重复。有没有办法防止重复，让随机之间再次运行，直到它得到一个唯一的数字？我只是VBA的初学者。
浏览 3提问于2021-12-05得票数 -1
如何将输入框中的用户输入限制为字母、数字和字符‘-’？我尝试了以下代码。
For I = 1 To Len(UserInput)
If VBA.Asc(VBA.Mid(UserInput, I, 1)) >= 65 And VBA.Asc(VBA.Mid(UserInput, I, 1)) <= 90 Or VBA.Asc(VBA.Mid(UserInput, I, 1)) >= 0 And VBA.Asc(VBA.Mid(UserInput, I, 1)) <= 9 Or VBA.Asc(VBA.Mid(UserInput, I, 1)) = 45
浏览 4提问于2016-04-04得票数 0
首先，我使用VBA编辑器在“非常隐藏”模式下隐藏所有工作表，并使用密码保护我的VBA工程。但问题是，我可以轻松地取消隐藏所有工作表，只需在即时窗口中输入vba代码，这是：
for each sh in worksheets:sh.visible=true:next sh
那么，哪种有效的方法可以让任何人都不能隐藏我的工作表呢？
浏览 3提问于2020-05-10得票数 1
我不知道是否还有这样的职位，但我想我的问题有点不同。
我目前正在设计一个数据库来跟踪雇主提供的员工培训。我发现的当前错误是将绑定表单(frmAddEmployee)添加到“员工”表(tblEmployees)中。
我现在拥有的是VBA代码，当您在textbox中输入一个值时，VBA代码会显示一个通知，然后它在表中找到一个重复的记录。VBA还将以与清除通知时输入的值相对应的形式显示记录。
下面是更新后txtEmpNumber使用的代码：
Private Sub txtEmpNumber_AfterUpdate()
Dim EmpNum As String
Dim stLinkCriteria A
浏览 1提问于2018-12-25得票数 0
1回答
我在Excel中记录了以下VBA宏
Sub EnterDate()
'
' EnterDate Macro
' Enter date at any point in a worksheet and move cursor down
'
' Keyboard Shortcut: Ctrl+x
'
ActiveCell.FormulaR1C1 = "12/15/2014"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
我需要做的是能够插
浏览 3提问于2014-07-29得票数 0
回答已采纳
1回答
我需要从用户的多个输入，打印用户提供的表格格式的数据，创建包含该表格的pdf，该表格将重复由用户提供的次数。我不确定它是可以通过VBA宏实现，还是可以通过c#中的代码实现。 输入:名称: ABC学校: XYZ要打印的标签数量: 12 预期输出:一个包含12个表的pdf文件，每个表有两行，即名称和学校。
浏览 7提问于2019-05-10得票数 0
可能重复：
我正在使用VBA编写Excel电子表格。我有一个彭博BDH函数，我想从VBA中刷新它。我试着录制一个宏，然后单击Bloomberg->Refresh工作簿按钮，但是宏显示为空。我怎样才能从代码中做到这一点？我正在使用Excel 2007，我找到了一个输入
Application.Run "blpmain.xla!RefreshAllStaticData"
但是找不到blpmain.xla。我不知道Excel/BBG-Addin的版本是用来做什么的。
有什么帮助吗？
浏览 10提问于2011-10-05得票数 1
回答已采纳
当我在VBA中打开命令提示符时，我无法让msg工作，但是我已经证明它在从windows启动cmd.exe或“命令提示符”时可以工作。
我的VBA代码如下：
Sub test()
Dim str_to_pass As String
str_to_pass = "msg"
Call Shell("cmd.exe /s /k " & str_to_pass, vbNormalFocus)
End Sub
我从内部命令提示符得到的结果是："'msg‘未被识别为内部或外部命令，...“
但是，如果我打开命令提示符，或者首先从windows打开
浏览 13提问于2016-08-10得票数 2
回答已采纳
当我在sheet2中进行数据输入时，我应用了这个vba代码将唯一的数据从sheet1复制到sheet1 &这个vba非常适合我&在这里，我想要在E列中添加sheet1中重复项数据在sheet2中的每个条目数据的计数
我在A栏到D栏sheet1中输入数据
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheet1.Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sh
浏览 2提问于2021-12-19得票数 2
回答已采纳
2回答
在VBA for MS Word 2010中，如何让Word弹出调色板对话框，以便用户可以选择颜色？
关于如何在Excel中这样做的例子有很多，但我还没有找到任何对Word用户的帮助。下面是Excel的代码：
Application.Dialogs(xlDialogPatterns).Show
问题是，没有与wdDialogPatterns等效的东西，我也找不到任何具有建议调色板对话框的名称的东西。我已经找到了wdFormatBordersAndShading，但它并不完全相同:我希望用户选择一种颜色供以后重复使用。
谢谢!
浏览 5提问于2016-03-15得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
