如何允许将多行输入输入到VBA InputBox中？
在VBA中，InputBox函数默认只能接受单行输入。然而，我们可以通过一些技巧来实现多行输入。
一种常见的方法是使用UserForm来替代InputBox。UserForm是VBA中的一个窗体对象，可以自定义界面和控件。通过创建一个包含多行文本框的UserForm，用户可以在文本框中输入多行内容。
以下是实现多行输入的步骤：
- 打开VBA编辑器（Alt + F11）。
- 在“插入”菜单中选择“用户窗体”。
- 在UserForm上添加一个多行文本框控件（TextBox）。
- 在需要多行输入的地方调用UserForm。
下面是一个示例代码：
Sub MultiLineInput()
Dim myForm As New UserForm1
myForm.Show
' 获取用户输入的多行文本
Dim userInput As String
userInput = myForm.TextBox1.Value
' 在这里处理用户输入
MsgBox userInput
' 清除UserForm对象
Unload myForm
End Sub在上面的示例中，我们创建了一个名为UserForm1的UserForm，并在其中添加了一个名为TextBox1的多行文本框控件。在调用UserForm之后，用户可以在TextBox1中输入多行文本。然后，我们可以通过TextBox1的Value属性获取用户输入的内容。
请注意，为了使上述代码正常工作，需要在VBA编辑器中添加一个名为UserForm1的用户窗体，并在其中添加一个名为TextBox1的多行文本框控件。
这种方法可以灵活地实现多行输入，并且可以根据需要进行界面定制。对于更复杂的需求，还可以使用其他控件或自定义用户界面来实现多行输入。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云数据库（TencentDB）：https://cloud.tencent.com/product/cdb
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发（移动推送、移动分析等）：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云游戏多媒体引擎（GME）：https://cloud.tencent.com/product/gme
- 腾讯云视频处理（VOD）：https://cloud.tencent.com/product/vod
- 腾讯云音视频通信（TRTC）：https://cloud.tencent.com/product/trtc
- 腾讯云网络安全（DDoS防护、WAF等）：https://cloud.tencent.com/product/ddos
相关·内容
我正在处理一个宏，它允许我将SQL查询键入(或者更有可能是粘贴)到InputBox中，在单击"OK“时，它将返回对数据库的查询结果。问题是，默认情况下，VBA只接受一行文本，并且为了可读性，SQL代码以更结构化的多行格式编写。当我尝试将SQL代码粘贴到InputBox中时，除第一行文本外的所有文本都被截断。我的下一个想法是读取剪贴板的内容，并在显示InputBox并提示我输入查询之前用空格替换任何换行符，但显然这对我正在键入而不是粘贴的查询没有帮助。任何帮助都将不胜感激！
浏览 98提问于2019-05-06得票数 1
回答已采纳
我正在尝试创建一个vba代码，该代码要求用户输入他/她正在寻找的关键字的编号n，然后创建n个输入框以获取每个关键字并将其存储为字符串。我不确定做这件事的最佳方法，我不知道这里是否应该使用循环，如果应该使用它，如何对其进行编码。到目前为止..。
Sub GetKeywords()
Dim numKey As Integer
numKey = InputBox("How many keywords would you like to search for? (Integer)")
For i = 1 To numKey
keywordi = InputBox("P
浏览 2提问于2016-07-05得票数 0
回答已采纳
我需要的是给用户控制来选择一些将在程序中使用的单元格。在许多excel函数中都可以很容易地看到该界面，例如在向图形插入数据时。
预先选择的范围可以很容易地访问为Globals.ThisAddIn.Application.ActiveWindow.RangeSelection，但这不是我正在考虑的，因为我需要多个这样的范围。我在visual-studio上试了一下，有一个Interaction.InputBox函数可以接受字符串，据说它相当于vba的Inputbox，但是vba的inputbox有输入数据类型的参数，而c# inputbox没有。
与此等效的VBA是
Dim rngX as Ra
浏览 59提问于2019-08-08得票数 2
回答已采纳
我是VBA的新手。我试图从InputBox获取一些输入参数，并希望将这个InputBox元素传递给post请求URL。但是我不知道该如何将这个值传递给我的URL？
对于例如-> Dim iInput作为字符串iInput =InputBox(“请输入一个数字”、“创建发票号”、“在这里输入您的输入文本”)
"myurl.com/api/v4/projects/3765/ref/master/trigger/pipeline?token=123&variablescheck1=2" objHTTP.Open "POST"，Url，False
在这里，
浏览 2提问于2022-09-19得票数 0
回答已采纳
1回答
我试图将一个变量从word VBA传递给批处理文件。变量是用户必须键入用户名的输入框。然后，批处理文件将接受该用户名，并在我们目录中的AD组中检查它。我必须首先在VBA中显示变量，因为我需要在批处理文件运行后在VBA脚本中操作它(除非将批处理变量传递给word vba更容易)。我所做的所有研究都让我得出了这样的结论：
Dim val, r As String
r = InputBox("Please enter your username:")
val = "path\mybat.bat" & r
Call Shell(val, vbNormalFocu
浏览 0提问于2018-06-27得票数 1
回答已采纳
请告诉我，如何允许用户只在输入框中输入文本，我想在vba代码中使用Application.Inputbox命令。
浏览 2提问于2016-05-01得票数 1
我已经在Microsoft Word的VBA中创建了一组宏文件，作为一种CAT工具(CAT = https://en.wikipedia.org/wiki/Computer-assisted_translation)。问题是，在某些情况下，我需要显示需要翻译的文本，而用户需要用自己的语言输入文本。这可能包括一些特殊的字符，如“ăü？？șț/Ă?ȘȚ”，甚至包括引号或括号。有没有办法在一些InputBox函数中使用它们？或者，至少以某种方式让用户在某个TextBox或其他文件中输入他需要的文本？或者我应该如何处理这个问题？也许UTF-8支持就是我所需要的？或者？...任何帮助都将不胜感激！..
浏览 51提问于2019-06-19得票数 0
1回答
下面的代码在第四行不起作用。如果有人能帮忙的话。我想使用输入框中的信息来输入VBA代码。如果消息框显示为b25，我希望它从b25复制数据并将其粘贴到另一个工作表中，如下所示。
谢谢
Sub MsgBoxYesNoCancel()
input_Cells = InputBox("Input column")
MsgBox "Want to Continue?", vbYesNoCancel
input_Celli = InputBox("Input row number")
ActiveSheet.Range(&
浏览 8提问于2020-05-25得票数 0
我有一个输入框：
Sub Insert()
Dim myValue As Variant
myValue = InputBox("Need Input")
Range("A1").Value = myValue
End Sub
现在，我想使用A1中的值，并将其插入到另一个名为Sub pr()的vba代码中。它在同一个工作表和桌子上。
它应该取代"www.google.com"作为A1中的输入。
Set Explorer = CreateObject("InternetExplorer.Application")
Explorer.
浏览 1提问于2022-02-03得票数 1
回答已采纳
我是VBA的新手，我正在尝试创建一个宏，该宏从inputBox接受0到1000之间的数字，并将其转换为十六进制。很好，这是可行的，但我正在努力保持程序接受这个范围(0-1000)。这就是发生的事情：
如果我输入-1，它会抛出一个错误；
如果我输入-1001，它会抛出一个FFFFFFFC17；
如果我输入任何高于1000的值，它就不会抛出一个MsgBox (我目前还不熟悉在excel上引起错误)。
我先做了这样的事：
Sub DecToHex()
Dim inputDec As Integer
Dim outputHex As String
inpu
浏览 0提问于2015-05-23得票数 2
回答已采纳
因此，目前在特定条件下，我会弹出这个InputBox，供用户输入注释，然后该框将这些注释填充到一个单元格中。我想要做的是，如果注释已经在InputBox填充注释的单元格中，这些注释将已经出现在输入字段中，以便用户可以添加到它们中。我不知道这是否可以做到，在谷歌上也找不到任何东西。如果不能做到这一点，我只需要使用用户表单实例。 ? 当前打开输入框的代码如下，"notes“是InputBox填充的字段： If InStr(OPs, "Incomplete") > 0 Or InStr(OPs, "Miss") Then
notes.I
浏览 3提问于2019-02-26得票数 0
回答已采纳
1回答
在excel中使用VBA编写代码非常新，我想要做的是有一个do While循环，它接受用户的输入，如果它不是一个数字或小于0，则返回一个错误消息，并再次提示用户输入一个值，直到它到达先决条件为止。我试过用几种方法来做这件事，但似乎无法弄清楚它背后的细节。我的代码目前看起来如下：
Function getQuantity(prompt)
Dim quantity As String
quantity = InputBox(prompt)
Do While quantity < 0
If Not IsNumeric(quantity) Then
MsgBox (
浏览 0提问于2015-10-21得票数 1
回答已采纳
我了解到OSX上的Excel已经步履蹒跚，但这是我的代码中的问题还是OSX的VBA中的问题呢？以下一行：
FirstYear = Application.InputBox(prompt:="Enter the first year you wish to import", Type:=1)
给我一个输入箱，但没有提示。有什么想法吗？如果我使用inputbox函数而不是方法，提示就能工作，但是取消按钮的错误处理似乎是不可能的。
浏览 1提问于2017-02-27得票数 0
回答已采纳
我想建立一个聊天室。在消息的视图中是消息和消息的输入字段。Inputbox应该在底部，并且应该使用它需要的高度。如果用户输入多行文本，则输入框的高度可以更改。msgs-View应该填满其余的高度(上图)。我不想绝对地定位输入，因为消息的FlatList应该总是在“可见”区域。
<View style={styles.wrapper}>
<View style={styles.msgs}>Messages (FlatList)</View>
<View style={styles.input}>Inputbox</View>
<
浏览 9提问于2018-02-24得票数 1
回答已采纳
2回答
如何使用VBA将MsgBox文本复制到剪贴板？
myValue = InputBox("Please enter user text")
MsgBox("This is my text " & myValue & ", my second text & Now & ".")
我不想使用ctrl + c，我想在MsgBox出现后自动复制。
浏览 0提问于2020-03-12得票数 0
我想在unix dialog实用程序中使用类似于inputbox的多行输入： dialog --title "Inputbox - Example" --backtitle "Title" --inputbox "Prompt for input" 16 50 这是可能的吗?还是我需要使用其他东西？
浏览 16提问于2020-11-24得票数 0
回答已采纳
1回答
我有个简短的问题。我是VBA的新手，我一直忙于如何用循环实现IF语句。
当输入框返回某个值时，我有一个范围希望选择单元格。例如：
Sub Example()
Dim userinput As String
userinput = InputBox("What ID would you like to choose?")
If userinput = "1" Then
End If
End Sub
如果用户输入等于"1“，那么我希望选择范围(”A10“)为。但是，在我的工作表中，用户输入值可以是1-50，我不想写49个其他的语句。如何循环遍历A10:
浏览 4提问于2022-02-26得票数 0
在我的工作中，我必须处理Excel表，并在时间范围内收集数据。
到目前为止，我使用了以下VBA代码：
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set
浏览 0提问于2017-02-10得票数 0
回答已采纳
我试图使用vbscript在一个用户表单中创建多个输入框，而不是一次显示一个输入框，我想一次显示多个输入框，然后从所有输入框中获取条目，但在互联网上也找不到任何解决方案。在我的代码中，第二个输入框是在从第一个输入框输入之后出现的，反之亦然，我只想使用vbscript一次接受所有输入，而不是vba
sInput = InputBox("Enter your name")
MsgBox ("You entered:" & sInput)
sInput1 = InputBox("Enter your Age")
MsgBox ("
浏览 1提问于2017-11-20得票数 4
回答已采纳
每当A列中的值发生变化时，我希望输入3个空白行。我在网上找到了以下vba代码。有没有可能将其修改为输入3行而不是1行？我也想摆脱输入框。我对vba的了解非常有限，所以我为此道歉。 每当ID列中的值发生变化时，我只需要一些方法来输入3个空白行，而不需要任何类型的输入框或其他对话框。任何帮助都将不胜感激！ Dim curR As Range
Set curR = Application.Selection
Set curR = Application.InputBox("Select the Range of Cells to be insert blank rows", xTi
浏览 14提问于2021-07-30得票数 0
2回答
我有一个代码，它使用InputBox请求1-3之间的输入，然后根据输入内容运行代码。我的问题是，我不再需要那个InputBox了，因为我打算做的工作只使用一个输入，即3。我试着删除输入框，只在那里插入3，但是代码没有做任何事情。然后，我尝试在框中插入一个默认值，但它仍然出现，需要我单击enter，这正是我想要避免的。请告诉我该如何处理这个问题。
我的代码
Function GetTypeFile() As Integer
Dim strInput As String, strMsg As String
Dim Default
choice = 0
While
浏览 4提问于2016-12-05得票数 0
2回答
我有很多活页(大约1000张)，名字是整数，比如:1，2，3，5，7，10等等。它们是上升的，但不一致，就像我写的那样。我有vba代码，它从inputbox中创建新的工作表，在活动表之后(我激活了sheet 3，运行代码，在inputbox中输入4，它在3之后创建了sheet 4)。我需要的是如何解决(示例)：在第3页之后创建一个名为4的新工作表，而不需要在第3页上。
浏览 1提问于2015-02-18得票数 0
回答已采纳
基本上，在我的excel工作簿中，除了第一个工作表之外，我还有多个包含库存数据的工作表，它是用来输入值的--具体是这个月的日期，而我想要的是代码从inputbox中识别输入日期，以便在这些各自的库存数据中找到列标题，然后将值输入到正确的行和列中的所需单元格中。或者简单地说，VBA能够根据输入从另一个工作表中找到列吗？这有可能吗？
下面是我对代码的最初尝试，但不幸的是，我被困住了，不知道如何继续：
Private Sub Label1_Click()
'input variable declaration
Dim inputValue As Variant
Dim inputValu
浏览 0提问于2021-11-05得票数 0
回答已采纳
4回答
在Access中使用一些VBA代码，当满足一组非常特定的条件时，它将弹出一个InputBox，要求输入一个整数。到目前一切尚好。
Private Sub Command10_Click()
If Not IsNull(mrf) Then
If min <> max Then
If qty <= min Then
mrf = GetParamValue
End If
End If
End If
End Sub
问题是Not IsNull似乎被
浏览 1提问于2009-03-31得票数 5
回答已采纳
3回答
我似乎不知道如何将两个单元格输入(myvalue = cell D2和myvalue2 = Cell C3；单元格可以因此改变输入函数)连接到一个application.vlookup vba中。
在线上，它说你不能使用连接函数与application.worksheetfunction.vlookup，所以试图找出一个替代方案。有什么想法吗？
Dim myValue As String
Dim myValue2 As String
myValue = InputBox("Please input Cell that first merch cat is in")
myVal
浏览 15提问于2022-08-05得票数 0
我正在尝试编写一个宏以跳转到Excel中的一个单元格，在那里我会通过高亮显示来选择一个特定的列，然后跳转到包含来自不同列的搜索值的行。我知道如何制作宏和快捷方式，这只是我正在挣扎的vba代码。我发现这个宏只需要知道如何更改它，以便跳转到包含特定列中的搜索值的行，而不是输入的行号。
Sub JumpTo()
'Description: Select the specified row or column
'If row is specified, active column is used
'If column is specified, active row i
浏览 6提问于2022-01-14得票数 0
1回答
现在，我一直在使用多个输入框来获取我需要的几个字符串的用户输入：
Dim U As String
Dim P As String
U = Application.InputBox("Enter Username", "Username", Type:=1))
P = Application.InputBox("Enter Pwd", "pwd", Type:=1))
等等。
是否可以使用VBA在Excel工作表中创建具有多个输入或某种形式的多个输入的输入框？
浏览 5提问于2013-10-08得票数 10
回答已采纳
1回答
在Excel VBA中，默认日期输入格式为"mm/dd/yyyy“。如何将"yyyy/mm/dd“格式更改为"mm/dd/yyyy”，以便Excel仍然将其识别为日期？
每当我将输入更改为"yyyy/mm/dd“，然后将其格式化为"mm/dd/yyyy”(使用CDATE或format函数)时，Excel不会过滤数据。有谁知道解决办法吗？谢谢!
sub date_filter()
lastrow = Sheets("Sheet2").Cells.Find(What:="*", After:=[A1], SearchOrde
浏览 3提问于2014-07-22得票数 0
尝试使用Excel VBA填写表单(文本框)。第一个问题是表单无法识别这些值。
我试着使用下面的代码，但是，同样的问题，它仍然不工作表单抛出一个自定义的验证‘必需的’错误
Set inputBox = document.getElementById("company_name")
inputBox.Focus
inputBox.FireEvent ("onchange")
inputBox.Value = somevalue.Value
检查html，我看到有一个自定义的onchange函数
<input name="company_name
浏览 27提问于2019-07-30得票数 0
我有一个"work date“列(B)和一个"start date”单元格(V7)。我正在尝试弄清楚如果工作日期< (V7)，如何将列(B)的工作日期更改为单元格(v7)中的值。 ? 更新:从那以后，我尝试在VBA中整合一些东西。请注意，我只学习了两个星期的VBA。代码当前只是在列中输入我在InputBox中设置的日期，而不是只输入< startdate的日期。请看代码和截图。 Sub Workdatechange()
Dim gpWorkDate As Worksheet
Set gpWorkDate = Worksheets("START&#
浏览 6提问于2020-11-20得票数 0
回答已采纳
在研究VBA Application.InputBox方法时，我已经意识到，当类型是引用时，捕捉用户取消是很棘手的，因此返回值是一个范围对象。
由于取消的返回值是False，所以我不能将它分配给带有Set的对象，所以当用户按cancel / Esc时，我创建了一个返回Nothing的UDF。
Function mjInputBox(prompt As String, title As String, default As Variant, dataType As Integer) As Variant
If dataType = xlInputReference Then
浏览 0提问于2016-04-06得票数 2
回答已采纳
场景
通过使用以下代码，我有一个输入框
total = Application.InputBox(prompt:="Please key in the total value", Title:="", Type:=2)
问题
输入框是随机出现在屏幕的角落。
我需要什么
我需要这个输入框对齐到中心的用户窗体或屏幕。有人知道吗？
浏览 0提问于2018-08-07得票数 3
1回答
我正在处理一个电子表格，并添加了一个按钮w/ VBA来按行项的状态进行筛选。有3种不同的状态类型可用。我知道用户选择按钮并获得一个输入框来输入一个状态(具有*= ALL status)。输入框中输入的状态将插入到字段中，以显示选择了哪个筛选器。我的问题是:如果用户选择*(对于所有人)，如何将文本"ALL“插入到字段中？或者，不需要输入框，是否有VBA可以对所有三个状态选项加" all“进行下拉/选择？使用的代码如下。谢谢!凯萨琳
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="123
浏览 6提问于2022-04-20得票数 1
回答已采纳
我有这个VBA代码
Sub DeleteRows()
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "Delete"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputB
浏览 3提问于2017-04-03得票数 0
回答已采纳
我对vba excel宏很陌生。通常在excel中，我会双击单元格，然后数据将自动生成，直到最后一行。但是在vba里怎么做呢？下面是我的密码。目前我选择BF2到vlookup。在我得到vlookup的值之后。我想将数据填充到最后一行。通常以excel的方式，我只需双击单元格，然后它就会填充。那么，我们在vba宏中如何做呢？请告诉我。
Set myValues = Application.InputBox("Please select on the CON2:",
Default:=Range("BE2").Address(0, 0), Type:=8)
Set
浏览 0提问于2014-09-26得票数 0
回答已采纳
我正在使用文本到列的函数来拆分从输入框中取出的字符串。如何定义拆分文本的文本格式？目前，文本"3101/09/1“将自动更改为日期格式"01/09/3101”。
我尝试使用FieldInfo函数，如下所示。
例如，如果我只在输入框中输入两个段：“3101/10/12910/09/2”数组(FieldInfo：=Array(0，2)，Array(1，2))，则可以正常工作。
但是，如果我在输入框中输入3个段：“3101/10/12910/09/22910/09/3”FieldInfo：=Array(FieldInfo：=Array(0，2)，Array(1，2)，Array(2，
浏览 20提问于2019-11-04得票数 0
回答已采纳
当按下cancel按钮时，VBA inputBox返回一个空字符串。
当OK被按下时，它就是其文本框中的文本。
inputBox的第三个位置参数是其文本框中的初始文本。此参数的默认值为"“。
当用户单击"Add“按钮时，我使用inputBox请求用户指定新记录的名称。如果他按下“取消”键，我就退出潜艇。
如果他没有输入一个名字，或者输入一个名字并删除它，我想要一个msgBox告诉他他必须指定一个唯一的记录名。
如何用空文本框区分“取消”和“确定”？
我发现了几个类似的问题，但都没有解决我的问题。
浏览 0提问于2018-09-05得票数 0
回答已采纳
我想将带有单元格目的地的超链接添加到选定的单元格中。
例如，首先选择范围(“H3”)，然后出一个输入chatbox，我输入"2"，VBA程序将插入一个超链接，链接到单元格"H2"到单元格"H3"。
我尝试了以下代码：
Sub test1()
Dim myValue As Variant
myValue = InputBox("Input the cell that you want to link to!", "Please input", H2)
ActiveSheet.Range.Hyperlinks.Add
浏览 3提问于2020-08-03得票数 0
回答已采纳
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
我正在VBA Powerpoint中开发一个倒计时器，它接受小时、分钟和秒的输入，并计算剩余的时间，只需将其计数为0。
“工作守则”：
Sub countdown()
Dim time As Date
hours = InputBox("Hour")
minutes = InputBox("Minutes")
seconds = InputBox("Seconds")
time = Date + TimeSerial(hours, minutes, seconds)
Do Until time < Now()
DoEvents
Ac
浏览 7提问于2022-01-20得票数 0
1回答
我希望在循环的末尾，他会在msg框中显示从a1到a2的所有数字，但他会取有7的数字，并写成“a1”，我需要在最后部分做什么？ ? Private Sub booming_Click()
Dim a1 As Integer, a2 As Integer
Dim i As Integer, s As Integer
a1 = VBA.InputBox("what's your first number?")
a2 = VBA.InputBox("what's your second number?")
If a1 < 10 Or
浏览 13提问于2020-11-03得票数 0
1回答
尝试创建一个用户可以输入备注的输入框，这些备注将被输入到同一文档中，同时创建一个宏使能“竖起大拇指图标”，该图标将保存一个宏，其他成员可以“竖起大拇指”提出他们想要推广的想法。下面的代码导致按钮在相同的单元格上复制自身。我需要它应用于下一个可用的单元格。 Sub VBA_Input_Idea_inputbox()
Dim MyInp As String
Dim NextRow As Long
MyInp = VBA.Interaction.InputBox("Please input idea", "LEARNING
REQUEST")
浏览 12提问于2019-02-27得票数 0
我有一个用户输入框作为excel vba宏的一部分。我需要用户能够键入这个11位数字，然后输入到一个单元格。但是，任何大于10位数的数字都只返回0值。我该如何解决这个问题呢？
我的代码是：
Dim lNum As Long
On Error Resume Next
Application.DisplayAlerts = False
lNum = Application.InputBox _
(Prompt:="Enter starting Number", _
Title:="Startin
浏览 0提问于2015-07-10得票数 0
在Visual basic6中使用InputBox时，是否可以输入多行字符串？
strSrch = InputBox("Enter word(s) or phrase(s), like " & Chr(34) & "Jesus wept" & _
Chr(34) & " to search for any word or phrase" & vbCrLf & _
"If you place & between words the verse must contain bot
浏览 13提问于2020-04-15得票数 2
当使用早期绑定和Microsoft脚本运行时库创建字典对象时，似乎有两个等价的类型名称用于相同的内容：
Dim dict as Dictionary
Set dict = New Dictionary
和
Dim dict as Scripting.Dictionary
Set dict = new Scripting.Dictionary
似乎也在做同样的事情(至少到目前为止)。
我看到As Scripting.Dictionary语法使用了，也看到了As Dictionary语法使用了，但是我在任何地方都没有看到比较。字典上的MSDN文档要么是，要么是。
如果我只使用As Dictiona
浏览 1提问于2018-01-24得票数 3
回答已采纳
2回答
我在VBA中为Excel 2016开发了许多UDF和宏。我的一个宏使用Inputbox来获取宏随后使用的数据。我想用用户窗体替换Inputbox。我已经创建了带有一个文本框的用户窗体。我想激活用户表单，用默认数据填充文本框，并在选择“确定”时将文本框数据返回到宏。我已经广泛地搜索了一个端到端的示例，寻找完成此操作所需的所有代码，但都没有成功。有没有这个简单问题的例子？
浏览 0提问于2019-01-30得票数 1
我正在尝试在Excel中创建一个用户数据录入工作表，以便它可以从其他工作表中筛选出数据库，但是，我不知道如何从该录入工作表中获取要使用的数据并将其保存在我的VBA代码中。 这是我的数据输入表： ? 我要做的就是替换这段代码中的弹出式InputBox，并替换数据输入表中的输入。这是前面的代码： Sub InputFilter()
Dim strInput As String
Dim strInput1 As String
Dim strInput2 As String
ActiveSheet.AutoFilterMode = False
浏览 17提问于2020-03-20得票数 0
回答已采纳
2回答
我已经接近拥有准确的语法了，只有一个大问题！
我从输入框捕获的用户ID没有传递到报告中，因此我必须输入两次用户id。
为了实现这一点，需要修改哪些内容？
Public Function userProd() As Integer
Dim userID As String, saveloc As String, filename As String, reportname As String
'Report Name
reportname = "rpt_UserProduction"
'Setting Save location
saveloc = "
浏览 2提问于2016-12-28得票数 0
1回答
我正在尝试使用命令按钮将行复制到excel工作簿中的不同工作表。我希望输入行号，并让VBA将该行复制到一个称为"6.2022基础“的工作表中。我的问题是"6.2022基础“有超过150行，我以前的代码覆盖了我需要的一些行。我正在尝试使用rngToCopy，但是我不断地出错。如有任何意见或建议将不胜感激。
Private Sub CommandButton3_Click()
Dim rngToCopy As Range
Dim rngToPaste As Range
Set rngToCopy = Application.InputBox("Select range
浏览 2提问于2022-06-21得票数 0
2回答
循环内VBA Vlookup
、、、、
用户在输入框(“输入用户名”)中输入用户名，这些用户名出现在从第4行开始的第一列中(代码中指定为单元格(4+k-1,1) )。他输入的用户名数量对应于第一个输入框中指定的在某一特定日期活动的用户数(“在此日期活动的用户有多少？”)。
现在，我希望下一列(单元格(4+k-1，2))执行一个vlookup或类似的函数，该函数在第一列(同一行)中使用用户名，并在不同工作表中的表中找到相应的值(相同的工作簿！)。问题是，无论我尝试什么，我都找不到一个代码使这个工作。我最简单的尝试在代码中显示如下，并返回一条消息“运行时错误1004:应用程序定义的或对象定义的错误”。
Sub Makro4()
浏览 4提问于2015-01-25得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
