Excel VBA - Inputbox未将数据写入单元格
Excel VBA中的InputBox函数用于从用户那里获取输入。然而，有时候我们会发现使用InputBox函数获取的数据并没有被写入到指定的单元格中。这可能是由于以下几个原因导致的：
- 未将获取的数据赋值给一个变量：在使用InputBox函数获取用户输入后，我们需要将获取的数据赋值给一个变量，然后再将该变量的值写入到指定的单元格中。如果忽略了这一步骤，获取的数据将不会被写入到单元格中。
- 未指定要写入数据的单元格：在使用InputBox函数获取用户输入后，我们需要明确指定要将数据写入的单元格。可以使用Range对象来表示要写入数据的单元格，并使用变量的值来更新该单元格的值。
下面是一个示例代码，演示了如何正确地使用InputBox函数将获取的数据写入到指定的单元格中：
Sub WriteDataToCell()
Dim userInput As String
Dim targetCell As Range
' 获取用户输入
userInput = InputBox("请输入要写入的数据：")
' 检查用户是否取消了输入
If userInput <> "" Then
' 指定要写入数据的单元格
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
' 将获取的数据写入到指定的单元格中
targetCell.Value = userInput
MsgBox "数据已成功写入到单元格 " & targetCell.Address & " 中。"
Else
MsgBox "用户取消了输入。"
End If
End Sub在上述示例代码中，我们首先使用InputBox函数获取用户输入，并将获取的数据赋值给变量userInput。然后，我们使用Range对象targetCell来表示要写入数据的单元格，这里我们指定为"A1"单元格。最后，我们将变量userInput的值写入到targetCell所表示的单元格中。
请注意，上述示例代码中的单元格指定方式是以"A1"的形式表示的，你可以根据实际情况修改为其他单元格地址。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云Excel VBA开发文档：https://cloud.tencent.com/document/product/1040/30439
- 腾讯云Excel VBA开发工具包：https://cloud.tencent.com/product/1040
相关·内容
我对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
回答已采纳
我需要的是给用户控制来选择一些将在程序中使用的单元格。在许多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切换到VSTO，但在尝试调整范围大小时遇到一些我不熟悉的错误。
我有下面的代码，它最终应该能够将一个单元格范围拆分成x行数。
我已经在VSTO中创建了一个项目作为外接程序。当我在Excel Visual Studo中按下按钮来运行代码时，它会给我一个"COMExeption in by user code“，它会突出显示最后一行，我正在尝试调整大小并输出范围。
我做错了什么？
Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Clic
浏览 0提问于2016-03-19得票数 1
2回答
我在一个单元格中有下面的excel数据
Pankaj sharma;#234;#khushal verma;#786;#parul datta;#456;#
我想使用VBA将其转换为以下内容：
pankaj sharma
khushal verma
OP注释的代码：
Sub test1()
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection.Range
浏览 2提问于2015-04-19得票数 0
回答已采纳
我得到一个导出的电子表格，它在单个单元格中包含数据，用"ALT + ENTER“分隔。我希望这些数据是垂直的，而不是在单个单元格中。
我试图用"CTRL + J“将这些分隔成列。我想，这可能会更容易列出垂直(逐行)。你能看到我想要达到的目标
我尝试了一些我在网上找到的VBA，但是我对它不太了解。如果我想找出一个VBA解决方案，我会花更长的时间，因为我不知道很多。
我试过这个：
Sub vertsplit() Dim xRg As Range Dim xOutRg As Range Dim xCell As Range Dim
浏览 0提问于2019-08-15得票数 1
回答已采纳
2回答
我试图评估excel单元格，其中包含的数据如下，
"AAA*2“
然后在vba试图用
dim AAA
dim equation
dim result
AAA=inputbox("?") 'some numeric value
equation=sheets("sheet1").range("A1").value 'contains "AAA*2"
result=application.evaluate("=" & equation)
浏览 3提问于2017-10-03得票数 0
回答已采纳
1回答
我正在使用Excel 2010和Windows 7 Pro。我想将一个单元格内容复制到Windows搜索框中。我该怎么写一个VBA呢？
Sub CopytoSearchWindow()
'CopytoSearchWindow Macro ' '
sCell = Range(Application.InputBox(Prompt:="Pick the Cell", Type:=8)).Value
浏览 0提问于2014-04-29得票数 1
回答已采纳
我有一个用逗号将单元格中的数据分隔成单独行的VBA脚本，例如，如果单元格A1包含数据"A，B，C，D“，则此脚本将分隔这些数据，使A在一行，B在下一行，依此类推(在指定的目标位置)。
我正在尝试更新此脚本，以便将逗号分隔数据之前的单元格中的值与每个新行连接起来，即，如果单元格A1包含"Test“，单元格B1包含"A，B，C，D”，则输出行应为"TestA"，然后是下一行的"TestB“，依此类推。
我被困在如何进行这项任务，任何输入都会是有益的，我的VBA技能不是很好。
Sub SplitAll()
Dim xRg As Range
Dim xR
浏览 28提问于2018-09-04得票数 0
回答已采纳
我有一个数据集，其中联系信息和姓名与个人工作过的公司相关。1个人可以与多个公司关联。我想合并个人的信息，但保留不同公司名称的信息。
我有一个VBA函数，可以删除重复的行(姓名和联系信息)和另一个VBA函数，可以合并两个单独的单元格(公司名称)为一个合并的单元格。数据不是按任何特定字段排序的。
我想创建一个函数，它将删除重复的行，然后合并公司名称单元格，但仅适用于已删除重复行的个人(这意味着该个人与多个公司关联)。
谢谢你的帮助！
原始数据格式示例：
这是VBA函数1的函数和结果：
Sub RemoveDuplicates()
'UpdatebyExtendoffice2016
浏览 0提问于2020-07-12得票数 0
我正在尝试创建一个计数器，用来显示启用宏的按钮被单击的次数。我在识别与宏启用按钮关联的活动单元格时遇到问题。它将是从单元格A9到A50的任何地方(我将在页面上应用多个宏按钮)。
代码需要直接查看活动单元格右侧的单元格，并在按下按钮时将该数字加1。我是VBA的新手，在将建议的问题应用到我的场景中并不成功。
下面是如何将按钮放置到工作表上，如果它有助于解决问题的话。
Sub VBA_Input_Idea_inputbox()
Dim MyInp As String
Dim NextRow As Long
Dim Counter As Long
Dim btn As Button
浏览 30提问于2019-02-28得票数 0
我正在尝试使用Excel VBA进行一些编码。(我对使用Excel编写VBA代码非常陌生。) 我想要做的是从Application.InputBox中获取用户对单元格的选择。我的问题是，用户将选择位于另一个打开的工作表中的单元格。我知道我可以通过使用.Address属性来获取用户选择的详细信息。问题是，这只返回单元格范围，而忽略了文件和工作表的详细信息。我的问题是，是否有可能获得用户的文件和工作表的详细信息。当然，这肯定是可能的，因为当用户选择他们的单元格时，它在输入框中是可见的？ 非常感谢您在百忙之中抽出时间发表任何意见(！) 到目前为止，我使用的代码如下： Sub UserSelects
浏览 42提问于2021-08-05得票数 1
回答已采纳
我现在有一个小问题，因为我不能为我的excel创建一个合适的VBA代码来输入从单元格到特定网站的数据。你能帮我搬一下吗？
Sub MSC()
Dim OrgBox As HTMLInputElement
Set objIE = New SHDocVw.InternetExplorer
objIE.navigate "http://www.mscgva.ch/tracking/index.html"
objIE.Visible = True
Do While objIE.readyState < 4: Loop
Set O
浏览 2提问于2014-01-22得票数 1
1回答
是否可以在excel中选择只在有数据的单元格上方的单元格(需要选择的单元格下面的单元格需要有数据)？如果列中的每个单元格都有数据，则只应选择顶部的单元格。如果单元格的上方或下方没有数据单元格，则不应选择该单元格。谢谢
我发现这个宏用来选择范围内的所有数据单元格，是否可以为“下面的数据”添加一个IF？我试过了，我对VBA真的很陌生。谢谢。
Sub SelectNotBlackRange()
'Update20131220
Dim Rng As Range
Dim WorkRng As Range
Dim OutRng As Range
On Error Resume Next
xTitl
浏览 1提问于2015-04-23得票数 0
我想让用户输入单元格范围
Dim FromRang, ToRang As Range
'Ask the user to input the cell Range in which to search for the sub strings
FromRang = Application.InputBox(Prompt:="Enter Search Range From:", Type:=8)
ToRang = Application.InputBox(Prompt:="Enter Search Range To:", Type:=8)
但是这给了我一个错
浏览 1提问于2013-05-01得票数 0
回答已采纳
1回答
因此，附加的VBA代码适用于我正在寻找的内容，但它有一个重要的问题。它不会像我想要的那样匹配整个excel单元格内容。相反，如果它将替换单元格内的单个文本，而不是用单元格替换，则查找并替换。任何人有一些提示，我如何可以更改为只替换文本，如果整个单元格内容匹配与任何文本在单元格内？
Sub MultiFindReplace()
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
S
浏览 1提问于2015-03-01得票数 0
回答已采纳
我正在尝试将excel中同一行的单元格合并成一个单元格，然后将剩余的单元格向左移动。
示例：
内容|示例|更多| More2
因此，我想合并"Content“和"Sample”，并将"More“和"More2”单元格向左移动，结果将是。
内容示例|更多| More2
我发现了一个合并2列的代码，但它将2列合并为1，但它仍然占用第二列。因此，我必须“取消合并”并删除第二列，并将"More“和"More2”移到左侧。
下面是我拥有的代码：
Sub MergeOneCell()
'Updateby20140128
Dim
浏览 4提问于2014-10-02得票数 0
我有一个工作的Excel工作表，当打开时，要求用户输入产品类型。这是由VBA代码InputBox完成的，并将输入放在活动工作表的单元格A6中。我有一个隐藏的工作表，列出了单元格A2:A160中所有可能的类型。我希望有一种方法来检查用户输入的是有效的，如果不是再试一次。
浏览 0提问于2018-09-08得票数 0
我正在尝试设置一列excel单元格的格式并垂直拆分。每个单元格包含开始的ICD-10：，然后是许多用逗号"，“分隔的代码。我想删除ICD-10:和所有空格，结果只有一列单独的代码。我找到了下面的VBA代码，并将其修改为部分。我需要帮助从输出中删除不需要的空格和"ICD-10:“。我尝试过使用trim和replace，但我对它的工作原理并不是很了解，我只知道它很接近。 任何帮助都是非常感谢的。 Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Rang
浏览 40提问于2021-01-05得票数 0
回答已采纳
我需要将一些Excel文件导入Access数据库。我知道如何在VBA中编写导入函数，但它不能像我预期的那样工作，因为Excel中的一些合并单元格给我带来了麻烦。
例如，在Excel电子表格中
导入Access表时，逐行导入。因此，第一行应该是1-pencil 90，这是正确的，但由于合并的单元格，第二行和第三行是空的。结果是
No|Product|Storage
1 | pencil|90
| |23
| |41
但预期结果应该是：
No|Product|Storage
1 | pencil|90
1 | pencil|23
1 | pencil|41
浏览 0提问于2013-07-18得票数 1
回答已采纳
1回答
我试图在excel中创建一个VBA，它根据单元格中的文本来更改单元格的内容。我想更改的所有单元格都包含"< (空格) 0.005“的结构，但是数字变化很大，设置所有不同的数字将花费太长时间。我有一个老项目的基础，但我似乎不能调整它，以满足所需的需求。
Sub FillEmptyBlankCellWithValue()
Dim cell As Range
Dim InputValue As String
On Error Resume Next
InputValue = InputBox("Enter value that will fill empty cells in
浏览 0提问于2018-07-30得票数 0
回答已采纳
我试图根据另一个单元格的值更新一个单元格，但这需要跨一系列范围进行。我很难理解这么做的密码。
这是excel中的Vba。
Sub Elec()
Dim kw As Range, cells As Range, Response1 As Integer
InputBox ("Update Run Status to No Where the Kw load is less than")
Set kw = Range("B10:Z10")
Set cells = Range("B14:Z14")
If kw <
浏览 0提问于2019-03-31得票数 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
1回答
我想删除文本或数字左边和右边的空格。
我想使用VBA代码。
由于我现在在电子表格的每个单元格中应用公式，这将节省我大量的工作。
适用于单元格的公式：
对于数字：
=TRIM(SUBSTITUTE(A1;CHAR(160);CHAR(32)))*1
对于文本和空单元格：
=TRIM(SUBSTITUTE(A1;CHAR(160);CHAR(32)))
我在互联网上找到了这段VBA代码。这不能解决我的案子。我发现有趣的是，它会生成一个要求选择单元格的框。
Sub Clear()
Dim rLocal As Range
'Assignment of variables
Set rLocal
浏览 2提问于2020-04-03得票数 0
我在libreoffice calc中有大量的单元格，每个单元格都有两行。我想删除每个单元格中的每一行。有什么简单的方法吗？这段代码可以在VBA excel中完美运行，但不能在libreoffice calc中运行。
{子目标(ByRef RemoveFirstLine As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
结束子对象
子Star
浏览 0提问于2020-04-28得票数 0
作为VBA的一部分的RefEdit控件有点错误，但是当您希望人们指定一个或多个单元格范围(即Excel.Range对象)时，它很适合使用表单。
主要问题是您只能在VBA UserForm上使用UserForm控件(，我的测试也证实了这一点)。我正在使用Delphi制作一个Excel外接程序，我正在寻找RefEdit控件的一个替代方案。
Excel.Application.InputBox Type:=8是选择一个单元格范围的另一种方法，但是当您需要人们在单个窗体上选择多个单元格范围时，它对用户并不是很友好。我目前拥有的最好的真正的选择是从我的Delphi外接程序中调用一个VBA表单，但这还远远
浏览 14提问于2008-09-19得票数 4
1回答
我在试着替换牢房里的部分公式。
我有一个InputBox来指定一个数字，一个替换函数来替换这个值。(为了更好地衡量，我确定了范围，包括带有公式的单元格和它周围的几个空白单元格。)
我的宏用新值填充空白单元格，但在Excel中不替换所需的值。
我希望未更改的值为XXXX，并允许用户输入自己的值，这将与Excel文件相对应，以便从Excel文件中检索数据。
Sub Replace_XXXX_and_YYYY()
SN1 = InputBox("Enter 1st Serial Number")
SN2 = InputBox("Enter 2nd Serial Num
浏览 1提问于2022-06-01得票数 0
有一次，我在一个启用宏的模板上运行了一个名为SetProtection()的简单子程序。工作簿有9个选项卡。我运行了代码以便UserInterfaceOnly:=True。当模板打开时，它工作得很好。我保存并关闭模板。在windows文件夹视图中，我双击模板文件，以便excel打开新的工作簿。新的工作簿忘记了UserInterfaceOnly:=True设置。当vba试图更改另一个被锁定的单元格的值时，当单元格的值被更改时，我会得到一个错误。
假设我编辑了模板文件和一个启用宏的工作簿。如果我编辑工作簿，UserInterfaceOnly:=True设置将继续工作。VBA可以对锁定的单元格进行更
浏览 3提问于2016-05-24得票数 1
回答已采纳
我想链接我的excel单元格与文本框。我希望文本框内容显示在excel单元格中。我将链接超过一个单元格到文本框。
我的情况最初如下图所示：
我只是在Excel中试了一下，写了：="TextBox 9"，但没有成功。
我已经读到，不使用VBA代码可能是可能的：
但右击后，这里没有“属性”选项。
另一方面，另一种消息来源说，在Excel中没有立即这样做的选择。
有一些VBA解决方案可用：
但他们没有在我的案子里工作
我在这里找到了最接近的解决方案：
但不幸的是，它适用于工作簿中所有可用的文本框，我不想要这些文本框。
我试图只指定一个文本框，我需要这样做：
Sub T
浏览 0提问于2021-03-23得票数 2
我正在使用Excel Visual Basic for Applications (VBA)
我有一个宏，它选择一组单元格，剪切它们，并将它们粘贴到用户选择的另一个工作表中定义的单元格中。但是，我需要让宏在用户选择的电子表格中查找空行(表示为0)，因为数据可能已经在粘贴它的位置。
我的代码：
Sub Button11_Click()
'
' Button11_Click Macro
'
'
Range("A2:K2").Select
Selection.Cut
Sheets(Application.InputBox(&#
浏览 0提问于2014-04-10得票数 0
3回答
我正在尝试用VS2015为我拥有的几个VBA宏创建一个Excel。我可以使用VBA来完成这个任务，但是我想让我的脚在VB.NET中变湿，但是我面临的问题是如何获得活动工作表并将它分配给一个变量。然后，我需要传入以前转换为文本的范围。
该宏基本上允许用户通过选择范围并突出显示两个列表中出现的项来比较两个数据列表。
下面是当用户试图选择范围时执行的代码(工作正常)
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Me.Hide()
浏览 0提问于2017-06-06得票数 0
回答已采纳
我在access中开发了一个新的数据库，使很多手工输入Excel的工作自动化。现在，我已经达到了Excel可以用图形表示和分发数据比访问数据更容易的地步。
我想把一个按钮放在一个窗体上，当按下它时，它将从Access中获取数据，并填写一个现有的“模板”Excell表，其中包含从一组单元格中提取的所有公式和图形。Access中的数据(可以在VBA中生成sql查询/记录集)只是一些合计、平均值和YTD计算，需要放入现有excel工作表中的特定单元格集合中，并另存为另一个单元格(以避免覆盖模板)。它只有13 x 5个单元格的新数据。
这个是可能的吗？
浏览 0提问于2014-06-11得票数 2
回答已采纳
我正在Excel中构建一个基于父子结构的多级依赖下拉结构。使用vba构建它不是问题，但问题是重新打开文件。它会删除验证，因为它们包含的字符太多(超过255?)
生成的验证字符串太长，Excel无法存储，因此将在重新打开后将其删除。
一种解决方案是将验证字符串写入单元格，并基于此单元格值进行验证。唯一的问题是，当我将数据验证链接到这个单元格时，它是唯一的选择。
单元格中的值类似于A、B、C、D(已尝试使用或不使用"")
有没有人建议在数据验证中使用excel公式，以便从位于单个单元格中的A、B、C、D等字符串生成多个选项。
浏览 1提问于2016-11-30得票数 0
我对VBA很陌生。我有一个需求，需要将数据保存在Excel工作表的特定列中(假设C列数据的使用范围)到.txt文件中。经过一些网络搜索后，我得到了VBA代码，但问题是，如果一个单元格(例如Cell(1,3))有多行数据，如下所示
牢房(1，3)：
我拿到了VBA但我有个问题。
我使用的VBA是将单元格(1，3)内容保存在一行中--“我得到了vba，但是我有一个问题帮助我”，我不希望它出现在一行中。
我的要求很简单。
我在工作表上有一个activex按钮。
当我单击该按钮时，C列中的数据必须保存到.txt文件中，包括换行。因此，如果单元格(1，3)有4行，单元(2，3)有2行，那么.tx
浏览 4提问于2015-01-01得票数 0
Excel中的工作簿中有两个工作表。需要调用输入框来设置工作表#A、单元格号和注释(文本)和工作表#B、单元格号(在工作表#B上)和注释。因此，我们在两个不同的单元格中有两个注释。这有可能吗?你能帮我处理一下VBA代码吗？
好吧，到目前为止我想出了这个，
Sub Comment()
Dim scomment As String
Dim ssheet As String
Dim scell As Range
Dim scomment2 As String
Dim ssheet2 As String
Dim scell2 As Range
ssheet
浏览 2提问于2021-12-24得票数 -1
几年前，我使用Excel97编写了一个VBA程序，该程序使用
Set R = Application.InputBox( Prompt etc. ... Type:=8)
方法，供用户选择打开的工作簿/工作表中的单元格。这在当时是没有问题的，但现在我正在修改Excel2007的程序，只有当用户输入A1格式的地址时它才能工作。它不允许用户在打开的工作簿和工作表之间移动，或滚动工作表来查找他想要的单元格。
然而，奇怪的是，如果它位于宏中，它确实可以像广告中那样工作，但只需使用鼠标在与宏相同的工作簿中选择一个单元格。
我想知道是否有人遇到过这个问题，他们找到解决方法了吗？
浏览 0提问于2016-06-16得票数 3
我正在尝试编写一个宏以跳转到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
所以我知道这很奇怪。很久以前，我在Excel中遇到了同样的问题，但我认为使用VBA... 因此，我将邮件中的数据放入Excel中，如下所示。(请不要介意格式，我是德国人) $workbook.ActiveSheet.Cells.Item($LastRow, 3) = $MItem.ReceivedTime.ToString("dd.MM.yyyy") 日期写在单元格中。但它显示在单元格的左侧。我不能用VLOOKUP之类的 如果我双击单元格并按Enter键，日期就会跳到右边，一切都会正常工作…… Excel已经知道这是一个日期。但是细胞必须通过激活来“重新验证”。 我想我必须
浏览 24提问于2021-02-26得票数 0
回答已采纳
我有一个由用户通过Application.Inputbox方法定义的两列组成的范围。我会将它作为rng存储在VBA中，以便复制，然后粘贴到Excel表中的一些单元格中。在粘贴之前，我想在rng中交换这两列。有没有一种不需要循环，也不需要交换excel工作表中的实际原始列的方法？
我的意思是这样的：
rng_swapped.Columns(1).Value = rng.Columns(2).Value
rng_swapped.Columns(2).Value = rng.Columns(1).Value
rng = rng_swapped
浏览 0提问于2018-10-13得票数 1
回答已采纳
2回答
我有一个关于Excel2010VBA的问题。我不知道正确的英语Excel术语，因为我使用德文Excel版本。但我会尽我所能。很抱歉。
在VBA中，我设置一个单元格(列表选择)的数据验证。如果单元格已经设置了一个值，那么它仍然保留在单元格中，但是它可能无法完成数据验证。是否可以通过VBA执行刚刚设置的数据验证，如果validtaion没有完全填充，那么清除单元格中的值吗？
提前谢谢。
浏览 0提问于2013-09-18得票数 1
回答已采纳
1回答
我有一个包含许多工作表的工作簿，如果前面的单元格与给定的字符串匹配，我需要输入一个值。
我的代码适用于我需要它的工作表，但是当它到达一些不想要的工作表(其中也有数据)时，它就出错了。
调试器突出的一行是For Each r In Intersect (ActiveSheet.UsedRange, Range("F:F")，我是一个使用VBA/Excel脚本的新手。对不起，如果这是盲目的显而易见，但我搜索了网站，找不到合适的答案，或我只是没有认出它。
Sub AllOnePool()
Dim myStr As String
Dim myPool As String
浏览 5提问于2015-07-03得票数 4
回答已采纳
下面的VBA代码支持包含特定短语的单元格。有什么东西，我可以使用谷歌页，将有类似的输出？
Sub FindAndBold()
Dim I As Long
Dim xFind As String
Dim xCell As Range
Dim xTxtRg As Range
Dim xCount As Long
Dim xLen As Integer
Dim xStart As Integer
Dim xRg As Range, xRgFind As Range
Dim xTxt As String
Dim xArr() As String
On Error Resume Next
If Acti
浏览 13提问于2021-10-28得票数 0
回答已采纳
我是数据科学的初学者，所以如果我的错误是愚蠢的，请原谅。
在这里，我有一个循环，它查看我的数据框架并使用.loc进行更改--问题是这些更改在最后没有保存。我检查了每一步，一切都是正确的。我甚至检查了修改后的单元格(请看下面)，它给出了我输入的值。但是，当程序完成时，我的excel数据框架一点也不改变。
请帮帮忙。提前谢谢你！
exc = pd.read_excel('...')
...
for x, y in exc.iterrows():
y = y.copy() # got this row from some guy's code
# ...
浏览 7提问于2021-06-13得票数 0
回答已采纳
1回答
VBA对一系列单元格求和
、、、
我正在尝试编写一个简单的VBA宏，该宏将接受活动单元格列和用户输入，以将单行上的一系列单元格添加到一起。该范围是通过将用户输入的整数添加到活动列(即结束列)来计算的。问题是它给了我运行时错误'424‘，并告诉我"Object required“。当我运行它的时候，对求和线感到很生气。
这是我的代码。我才刚开始学VBA，所以不会是那个hard....right吧？
Sub Food()
Dim first As Variant
Dim last As Integer
Dim days As Integer
Dim month As Variant
Dim total As Dou
浏览 8提问于2017-08-03得票数 4
回答已采纳
嗨,
目前，我正试图自动化其中一个最耗时的excel文件。显然，VlookUp是问题所在。
一些背景作为新的VBA开发：
，我正在使用inputbox获取特定的工作表名，以便使用它更新所有的查找。是的，这种情况每隔几周就会发生一次。长话短说: Vlookup与求值公式并不是获取数据，而是用心爱的#值进行重定位！在特定的单元格中.和我被困在这一点上，我猜还有另一个问题，因为我不能在我的整个范围内拉下这个公式。但这是可以解决的范围，即be 13:be 37020，对吗？但是，这会导致Vlookup的第一个参数出现问题，因为它将发生变化。
代码如下：
Dim myValue As Variant
浏览 1提问于2020-05-12得票数 1
回答已采纳
1回答
如何选择任意大小的范围和输出？
、、、、
我正在使用VBA代码Application.run("BERT.Call",..)在Excel中调用R函数。它正在成功地工作。但要做到这一点，我需要选择打印输出的单元格。
假设我想在Excel中使用BERT.Call获得R的Summary()的输出，然后首先我需要选择6个列单元格来显示我的输出，否则我需要通过VBA代码本身传递范围。
我的问题是：
有没有什么方法可以使用户不需要选择/输入范围，就可以用BERT.Call在Excel VBA代码中调用R函数来获得任意大小(可变大小)的输出？
浏览 2提问于2018-03-13得票数 0
1回答
我想构建一个VBA宏来拥有一个单元格，在那里我可以键入一个字符串，启动一个宏，它从另一个名为PIVOT的工作表中筛选出一个数据透视表。
我确实有一个通过Inputbox的解决方案(见下文)，但我更喜欢使用单元格。
Sub Macro1()
Dim IdentificationNo As String
IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER")
Sheets("PIVOT").PivotTables(
浏览 1提问于2017-05-09得票数 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
我需要做一个循环，以便使用VBA在excel电子表格中打印类似于步骤的结构。
我必须从单元格E1开始，直到用户在文本框中输入的数字。我需要在单元格E1、F2、G3...and等中打印一个字符串。
我使用了以下方法，但效果不佳：
Dim j As Integer, N As Integer
Dim i As String
N = InputBox("Plese enter the number of Processes", "Enter data", "Enter number here")
i = "E"
For j = 1
浏览 18提问于2017-01-28得票数 2
回答已采纳
我正在尝试创建一个Excel宏，该宏请求一天，然后将其插入到下一个打开的单元格中。这是我尝试使用的代码。
Sub Button7_Click()
Dim AddName As String
AddName = InputBox("Date: Month/Year", "Add Date", "01/00")
Sheets("Sheet2").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1"
浏览 0提问于2017-03-22得票数 5
我正在Excel中使用VBA。我希望用户能够选择一组垂直的连续单元格，并将这些单元格的值放入数组中。下面的代码可以做到这一点，但我不明白为什么Debug.Print DatArr(0)会在所选区域的上方打印一个单元格的值。我做错了什么？
Option Explicit
Option Base 0
Sub reconcile()
Dim DatArr As Range
Dim AuxDat As Range
Dim StartCellRange As String
Dim CellCnt As Integer
Set DatArr = Application.InputBox(&#
浏览 2提问于2015-01-10得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
