为什么VLookup未在Event Change sub中运行
VLookup未在Event Change sub中运行的原因可能有以下几点：
- VLookup函数未正确使用：VLookup函数是Excel中用于在一个区域中查找某个值并返回相应值的函数。在Event Change sub中使用VLookup函数时，需要确保函数的参数正确设置，包括查找的值、查找的区域以及返回值的列数等。
- Event Change sub中的代码逻辑错误：Event Change sub是Excel VBA中的一个事件处理程序，用于在单元格的内容发生改变时执行相应的操作。如果VLookup未在Event Change sub中运行，可能是因为代码逻辑错误，导致VLookup函数没有被正确调用或执行。
- 单元格的内容未发生改变：Event Change sub只有在单元格的内容发生改变时才会被触发执行。如果VLookup未在Event Change sub中运行，可能是因为单元格的内容并没有发生改变，因此事件没有被触发。
- 事件未正确绑定：在Excel VBA中，需要将Event Change sub与相应的单元格或区域进行绑定，以确保事件能够正确触发。如果VLookup未在Event Change sub中运行，可能是因为事件未正确绑定到相应的单元格或区域。
总结起来，VLookup未在Event Change sub中运行可能是由于VLookup函数的使用错误、代码逻辑错误、单元格内容未改变或事件未正确绑定等原因导致的。在解决该问题时，可以逐步排查以上可能的原因，并进行相应的调试和修正。
相关·内容
2回答
为什么这不起作用？我正在尝试让excel检查B列和D列中的任何更改，如果B列已经更改，则执行一些操作，等等。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lc As Long
Dim TEMPVAL As String
Dim ws1, ws2 As Worksheet
Dim myDay As String
Set ws1 = ThisWorkbook.Sheets("Lists")
myDay = Format(myDate, "dddd")
If Intersect(Target, Ran
浏览 0提问于2018-01-10得票数 2
1回答
我有四个牢房。最左边的单元格(A列)是唯一的值。下面三个右边的单元格用公式填充。列B和C是在填充A列时从工作表2中提取值的Vlookup(否则单元格的值为"")。当值被放入A列时，D列填充当前日期(否则单元格的值也是"“)。
我要做的是运行一个宏，当一个唯一的值被放入A列时，它将杀死B，C，D中的公式，并保留它们的值。然后它自动选择A列下一行中的单元格。A3是固定的，这就是为什么我使用End(xlDown)方法，然后使用Activecell.Offset。
当Excel运行时，我拥有的就是轰炸Excel：
Private Sub Worksheet_Change(ByV
浏览 1提问于2016-06-09得票数 0
回答已采纳
我试图在我的UserForm上，在Excel2010中，对同一个工作簿中的另一个工作表执行一个VLookup。基本上，当我在combobox9框中输入员工号并按enter键时，我希望VLookup将名称填入textbox531框中。到目前为止，这就是我所拥有的，我觉得VLookup不起作用。它不会在textbox531框中做任何事情。它在textbox531中没有给我任何东西。“军官”是工作表上“表”上范围的名称。有指引吗？
Private Sub TextBox531_Change()
'Dim LName1 As String
LName1 = WorksheetF
浏览 5提问于2015-09-10得票数 1
回答已采纳
3回答
我有一个包含以下标题的表：
Task ID | Description | Date completed | Time completed
假设表格的布局是这样的: Task ID在单元格A3、Description B3、Date Completed C3和Time Completed D3中。在单元格A1中，我将输入要查找的任务ID。
我想要发生的是，当宏运行时，在表中找到输入到单元格A1中的任务ID，然后将日期和时间(在运行宏时)输入到列C和D中的相应单元格中。
谢谢!
浏览 3提问于2013-06-09得票数 0
2回答
代码适用于第3列，但是当我为第10列添加额外的行时，它就不起作用了，我希望能够在同一个工作表上对几个不同的列运行此代码。谢谢。 Private Sub Worksheet_Change(ByVal Target As Range)
selectedNa = Target.Value
If Target.Column = 3 Then
selectedNum = Application.VLookup(selectedNa, Worksheets("Risk Dropdowns").Range("B3:C30"), 2, False)
If Targe
浏览 19提问于2020-04-09得票数 0
我有一个文件，我想检查单元格"$A$2“是否为空，如果是真的，我想在这个单元格中添加公式(=VLOOKUP($I$2;'Raw Data'!$A$1:$AH$5000;4;FALSE)。我运行下面的代码，它会生成一个
运行-tim '1004‘(应用程序定义或对象定义错误)。
我已经玩过目标公式了，如果我采用像=B1+B2这样的简单公式，它就会起作用，而且我也不会收到错误消息。因此，引起错误的似乎是Vlookup公式。
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.C
浏览 0提问于2019-05-22得票数 0
回答已采纳
2回答
我在工作表"LutSht“上有一个名为"LUT”的表，如下所示：
A 1 2 3
B 4 5 6
C 7 8 9
在第二个工作表"CalSht“单元格中，A1包含从"LUT”的第一列生成的下拉列表。
当我记录一个宏以了解vlookup如何在VBA中运行时，它会生成：
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],LUT,2,)"
在本例中，查找值被写入单元格。我试图将它传递给数组变量。
以下是我的错误代码：
Private Sub Worksheet_Change(ByVa
浏览 1提问于2013-08-29得票数 0
回答已采纳
2回答
我最近学会了如何用VBA编程，通过阅读这个网站上以前提出的问题和答案，我得到了一些非常有帮助的帮助。然而，我在我的一个程序中遇到了一个问题，这个问题似乎没有得到很直接的解决。所以我会在这里问它。
我正在制作一个Powerpoint宏，它将使用新数据自动更新一些幻灯片。对于包含excel表的幻灯片，我希望宏打开一个excel文件，运行excel文件中的现有宏，用新数据填充电子表格，最后将该表复制到powerpoint幻灯片上。到目前为止，我的代码(不包括复制部分)是：
Private Sub GetProposals()
Dim myXL As Excel.Application
浏览 1提问于2013-08-15得票数 1
回答已采纳
我正在试图从其他工作表中查找数据。我在Sheet 2中有两列，第1列有数字，第2列有名称。我在Sheet 1和文本框中放置了一个命令按钮，所以当我在文本框中键入数字时，当我单击命令按钮时，它应该显示名称。有人能帮我吗。
浏览 8提问于2016-06-29得票数 0
1回答
当我试图编译我的用户表单时，我得到一个溢出错误：
Nr Isikukood Perenimi Linn
1 38602110722 Priit Burmeister Jógeva
Private Sub wisikukood_Change()
Dim h As Range
Set h = Range("tabel2")
znimi.Value = h(wisikukood.Value, 3) + " " + h(wisikukood.Value, 4)
End Sub
这行代码是：znimi.Value = h(wisikukood.Va
浏览 0提问于2011-05-09得票数 0
好了，我为以下内容设置了一个组合框：
With Pclient Pclient.AddItem "CMN" Pclient.AddItem "RSS" Pclient.AddItem "ORD" End With
当我为Pclient选择一个选项时，我希望Pcodclient设置为X，这样它就可以设置客户端代码的值，而不必手动输入它。
Cells(ActiveCell.Row, 2).Value = Pclient.Value Cells(ActiveCell.Row, 3).Value = Pcodclient.Valu
浏览 11提问于2016-09-21得票数 0
我有两张纸，一张是Data Sheet，上面有一个支点表，上面有不同公司的数据。我有另一个工作表Output Sheet，它有几个数据表中的列标题，我希望使用公司ID对不同的列标题进行vlookup。
该公式运行到100000行，即使companyID只能使用到9555行，并在显示#N/A之后运行。
如何使这个公式查找其他列标题，如分段，扇区等。
需要映射的列标题：
Sub MakeFormulas()
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim sourceBook As W
浏览 1提问于2018-02-26得票数 0
回答已采纳
我有一个带有标题(时间和长度)的元素表，可以在下面的图1中看到(请忽略突出显示的部分，并将它们视为“无填充”单元格)。
我想创建一个宏来将所有" Time“列连接成一个单独的列，并根据上面图1中显示的相应时间值来排列"Length”的值。为了说明它是如何工作的，你可以看看下面的图2，看看在运行宏对表进行排序后表的最终排列。
我对如何创建宏有一点想法-首先，使用time列作为键，我将附加所有与键相对应的长度值(例如，E列中的3.29E-04附加到D列中的“键”0)，然后连接时间值，最后，根据它们所附加的键对长度值进行排序，以获得最终的表，如图2所示。但是，我不知道
浏览 0提问于2020-03-09得票数 0
3回答
我想知道，如果VLookup函数找不到任何东西，是否有一种方法可以告诉excel不要显示某些变量。
下面是我代码所做的大致工作:通过查找另一个excel工作簿中的一些数字，比较前一年的值并计算差值，将差值显示在另一个电子表格中，所有这些操作都在一个合并的大单元格中完成。我的代码中的一些摘录：
cashO = Val(Application.VLookup("cash" & "*", Workbooks("creditreport.csv").ActiveSheet.Range("A1:F199"), 4, False))
浏览 9提问于2016-08-01得票数 2
好的，下面是我的UserForm的代码：
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub ClearButton_Click()
Call InventoryEntryBox_Initialize
End Sub
Private Sub SubmitButton_Click()
Dim emptyRow As Long
'Make Inventory Test sheet active
Worksheets("InventoryTest").Activate
'Tran
浏览 2提问于2015-04-07得票数 0
我有一个带有几个文本框的用户表单，我希望当您将值放在第一个扫描数据表时，如果它找到相同的值，它会填充其余的文本框，我想如果我分两个步骤就可以做到。首先，以textbox1的值作为变量，用它扫描数据，生成第二个用户表单，其中的数据已经粘贴在上面。但有什么办法可以活下去吗？目前，我将数据放在textbox1中，显示其他文本框中其余列的数据？
而且，我试图用vlookup公式(VLOOKUP(A27，BDD!A:B,2，FALSE))在工作表中或多或少地做同样的事情，但问题是，我希望公式能够改变单元格的值，只有当它在数据中找到马赫时，而且我也不希望要更改单元格中的公式，这样我就可以没有问题地放新数据
浏览 1提问于2017-02-08得票数 1
回答已采纳
1回答
嘿，我想知道这是否可行:目前，我在sheet1上有一个下拉列表，其中包含使用数据验证从sheet2中提取的名称列表。下拉列表旁边的单元格使用来自sheet2的VLOOKUP填充电话号码。
我的问题：我是否可以使用VBA，以便每当下拉列表发生更改时，它旁边的单元格就会从SHEET2中的数据中填充？请记住，需要选择的值才能提取正确的电话号码。
为什么要问我的文件是否有效？，因为任何人都可以不小心删除VLOOKUP公式，而我无法保护它，因为它是一个使用几个不同宏的共享文档。
浏览 3提问于2017-02-23得票数 2
回答已采纳
我在用这个代码
Private Sub ComboBox2_Change()
On Error Resume Next
Dim myRange As Range
Set myRange = Worksheets("cash").Range("BF:BH")
Price.Value = Application.WorksheetFunction.VLookup(ComboBox2.Value, myRange, 2, 0)
End Sub
使用vlookup从textbox2中选择值，以匹配价格中从textbox2中选择的值。如果该
浏览 1提问于2018-03-28得票数 0
回答已采纳
我已经搜索了我所能做的一切，在这里滚动到类似的主题，但没有找到直接的答案/解决方案。
我有A和B页。
在表格A上，我正在键入客户的名称，并需要它从B页上的列表中自动完成。
一旦我输入完客户的名字，我需要将有关该特定客户的所有相关信息(地址、电话#、传真#)从B页的同一列表中插入到表A中。
这在Excel中有可能吗？
浏览 4提问于2016-01-15得票数 4
我对VBA非常陌生。我有两个专栏：
第1栏a b c
第2列1 2 3
因此，如果我从组合框中选择a-我想要文本框显示1。
我一直试图通过这里的其他帖子来解决这个问题，但无法让它发挥作用。
如果你能给我解释一下，那就太好了！
Private Sub UserForm_Initialize()
With Worksheets("Sheet1")
ComboBox1.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
浏览 3提问于2018-09-20得票数 1
我已经创建了一个userform，它接受一个作业推荐(JobRefCbo)列表，并根据所选内容填充文本框。我还没有理解错误，如果在组合框中选择一个空白或按转义键，它会跳回VBA错误屏幕。
如果职务推荐选择无效，我如何实现“什么都不做”的方法？
我想一种明智的方法是拥有一个锁定列表，但我正在尝试从列中的活动作业列表中提取cbo列表。
Private Sub UserForm_Initialize()
Sheets("Lists ").Activate
Dim xRg As Range
Application.ScreenUpdating = False
Call Lists_
浏览 0提问于2019-10-16得票数 1
回答已采纳
1回答
奥拉
我使用了一个名称管理器，其中包含每个部门的员工列表，现在我想在代码中查找每个员工的时钟号。
我从我的Combobox per department (CB_Department)开始，然后查找每个部门的一系列雇员(CB_EName)。然后我想要vlookup的员工时钟数字从表中的excel，并直接输入到用户表单文本框(TB_ENumber)。此路由的原因是因为excel工作表是从Sql (名称和时钟号)自动更新的，但工作人员在哪个部门工作是在工作表中管理的。
现在的问题是，代码适用于第一个员工的部门更改，但是当我更改员工组合框时，文本框不会更新。能告诉我我错过了什么吗？
到目前为止，我必
浏览 1提问于2015-02-12得票数 0
我有一个包含多个不同工作表的Excel电子表格。第一个工作表包含在第二列中具有唯一id的产品列表。其余列包含产品的其他信息，如名称、价格、折扣等。
在其余的工作表中，我通过添加产品的唯一id来添加产品，然后复制并粘贴第一个工作表的行。我基本上要做的是创建一个宏，当在第n个工作表的第二列(例如，在第5个工作表中)输入唯一id时，将执行该宏。它应该使用第一个工作表中具有相同id的产品中的信息自动填充其余的列。
浏览 0提问于2013-04-22得票数 0
回答已采纳
我正在寻找一种方法，以反复搜索与事件的日期表。
用户将选择一个开始日期和一个结束日期，我需要知道这些日期中是否有一个包含事件。
工作表列出结束日期和开始日期之间的所有日期。我需要搜索这个数组。
前端视图
搜索区域是工作簿中另一个工作表中的一个表，如下所示：
日期表
我希望宏在A列中搜索列表中的日期，如果其中任何日期对应于E列中的事件，则返回一个msgbox。
这就是我到目前为止所拥有的。我一直在讨论如何将SearchDate作为vlookup的变量范围，以及如何在找到一个结果后停止循环，因为这足以提示警告消息。
Sub EventFinder()
Dim RowNMBR As Lo
浏览 3提问于2019-12-27得票数 0
回答已采纳
我正在尝试编写一个vba宏，该宏插入一个Vlookup公式(它应该在另一个工作表中查找一个值，并将其粘贴到列C中)，当对该表进行任何更改时，它将粘贴到一组单元格中。这是我到目前为止掌握的代码：
Private Sub worksheet_change(ByVal target As Range)
Dim thisRow As Integer
target.Range = Hoja4.Columns("C")
If target.Column = 1 Then
thisRow = target.Row
Range("B" & this
浏览 3提问于2016-08-30得票数 1
我不知道我是否解释得太好了。我是个初学者，我正在尝试使用VBA中的VLOOKUP从一个文件中获得一个值。然而，尽管我显然可以处理字符串本身，但我不能将它用作变量。
所以，我们的想法是，当我在下拉列表中选择某些内容时，自动填充两个文本框。下拉列表本身决定有数据的工作表。
Private Sub cbProductList1_Change()
vCode1 = Application.WorksheetFunction.VLookup(cbProductList1.Value,
[Products!A:B], 2, False)
Me.tbProdCode1 = vCo
浏览 1提问于2017-11-11得票数 1
回答已采纳
1回答
我有一个带有几个文本框的用户表单(Arow1，Arow2，.)。打开窗体时，从工作表中的值填充文本框:代码是
Private Sub Arow3_Change()
On Error Resume Next
Me.Arow2.RowSource = ""
Me.Arow4 = Application.WorksheetFunction.VLookup(Me.Arow2, Sheet5.Range("Data"), 2, 0)
Me.Arow6 = Application.WorksheetFunction.VLookup(Me.Arow2, Sheet5.Ran
浏览 0提问于2018-04-02得票数 0
可能有点菜鸟的问题，
我正在用Excel启动我的第一个用户表单。
我有一个ComboBox，它使用一个下拉列表来选择值。一旦选择了这个值，它就会使用VLOOKUP将其余数据显示到文本框中。
但是，在使用窗体上的重置按钮时，或者尝试取出这些文本框中的数据时，会出现VLOOKUP运行时错误，因为数据不再存在。
我必须对下面这段代码做些什么才能阻止这种情况发生？
私有子ComboBox1_Change()
Dim MyTableArray As Range, MyEmpID As String
Set MyTableArray = Sheets("CompressorData").
浏览 6提问于2021-06-04得票数 1
回答已采纳
我有一个带有1个组合框和3个文本框的用户表单。我想使用vlookup根据组合框中的选择来显示文本框中的值。第一个textbox可以工作，但之后它会给出错误。请帮帮忙。下面是我的代码：
Private Sub ComboBox1_Change()
Description = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 2, 0)
TextBox1.Value = Description
Platform = Application.VLookup(ComboBox1.Value, Range(
浏览 8提问于2017-07-27得票数 1
回答已采纳
1回答
在我的excel文档中，我有以下两列的信息：
US Dollar (USD) 1
British Pound (GBP) 0.63
Guatemalan Quetzal (GTQ) 0.13
Honduras Lempira (HNL) 0.046
Other Please give factor
Other Please give factor
Other
浏览 1提问于2015-05-15得票数 0
回答已采纳
为什么我的IFERROR函数不工作？如果vlookup返回错误2024或#NA，我只想让它返回"NOT DONKEYS“。
我已经尝试通过将IFERROR行中的"QUANTITY“替换为整个vlookup函数来合并这两行，但仍然没有帮助。我只打开了一个工作簿，这就是为什么我没有在代码中引用任何工作簿的原因。vlookup的范围只是一个水果列表，并且它没有"DONKEY“作为选项。
Sub FRUITS()
Dim QUANTITY As Variant
'find quantity of fruits
QUANTITY = Applica
浏览 4提问于2019-09-09得票数 0
2回答
许多具有键-值对的组合框
、、、
在sheet2中，我有数据键值。例如：
1 Thomas
2 Michael
在sheet1中，我会有带有项(键)的组合框。如果我从组合框中选择，例如，按1键，然后在组合框旁边(在单元格中)，我将看到值Thomas。使用VBA很容易，但我需要很多这样的组合框。因此，如果我使用VBA，那么对于每个组合框，我必须复制相同的VBA代码。
没有VBA，我们能做到这一点吗？我们可以使用任何公式吗？你有什么想法吗？如果不是，我如何在所有的组合框中使用VBA中的代码？
浏览 0提问于2014-02-03得票数 0
3回答
我有带下拉列表的excel表格，当我从列表中选择任何东西时
宏将为请求值执行vlookup。但是当我想要从这些单元格中删除值时，我选择它们并按下delete，它会显示"#N/A“，excel被冻结，我什么也做不了。你能给我提个建议吗，我怎样才能避免它？
Option Explicit
Private Sub Worksheet_Change()
Dim Target As Range
Dim selectedNa As Integer, selectedNum As Integer
selectedNa = Target.Value
If
浏览 0提问于2018-03-07得票数 0
2回答
我目前正在开发一个用户表单。在这个用户表单中，数据被输入到textbox4中，并基于Vlookup通过commandbutton3将数据放入textbox6中。但是，vlookup必须从A: B范围内的工作表"DB - verzamelformulier“中检索其数据。目前，我收到错误消息:需要424个对象。有人能帮我写代码吗？ Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("DB - verzamelformulier")
With ws
Texbox6.Formula = "VLookup(TextBo
浏览 23提问于2019-04-08得票数 1
1回答
我编写了以下宏来帮助我处理VLOOKUP重复操作。它可以工作，但我不能同时在几个细胞上运行它。
我猜在宏的开头有一段代码要写。
非常感谢您的帮助;-)
Sub Croisement_ZANOX_BO()
'
' Croisement_ZANOX_BO Macro
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,BO!C[-18]:C[-11],1,FALSE)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = &
浏览 1提问于2014-01-07得票数 0
我正在努力开发一种形式，以跟踪发票，因为他们进来。该表单将有一个组合框，在那里我可以点击并选择一个供应商号码。我希望文本框根据从组合框中选择的供应商编号自动填写。到目前为止，我的情况如下：
Private Sub ComboBox1_Change()
'Vlookup when ComboBox1 is filled
Me.TextBox1.Value = Application.WorksheetFunction.VLookup( _
Me.ComboBox1.Value, Worksheets("Sheet3").Range(
浏览 3提问于2013-10-09得票数 19
3回答
我正在尝试制作一个宏，在excel中做vlookup。我已经成功地创建了，代码运行良好！代码如下：
ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1],LW0640!R2C8:R12163C9,2,TRUE)" Selection.AutoFill Destination:=Range("D6:D6098")
然而，我发现范围是固定的范围。它来自结果上的D6:D6098和源上的R2C8:R12163C9。
如果数据范围发生变化，它将不起作用。我想知道如何设置vlookup函数的范围，从开始到范围中的最后一行。请帮帮我！
浏览 1提问于2017-10-02得票数 0
我很难理解为什么下面的代码不能工作？我是不是缺少了什么？
Sub vlookup_test()
Dim class As String
class = "tmp_1"
Cells(1, 1).Formula = "=vlookup(" & class & ",'Sheet1'!A:B,2,FALSE)"
End Sub
浏览 0提问于2020-02-27得票数 0
我正在使用VBA对存储在工作簿的另一个工作表中的五个“规则”列运行一组数据。简而言之，我似乎有可以工作的代码，但是当一个单元格公式返回#N/A或#VALUE时，VBA使用Selection.Formula =返回"False“。获得错误值非常重要，因为它会告诉用户一些不同于"False“的信息。False意味着C列(见下面的计算选项卡图片)没有通过规则。错误值表示未在规则列中找到具有VLookup的列B，或者规则写入不正确。
这是我到目前为止所知道的：
Sub Build_Formulas_v2()
Application.Calculation = xlMa
浏览 36提问于2013-10-16得票数 1
2回答
单元格变化的cell
、、、
当单元格值发生变化时，我尝试在VBA中执行Vlookup，根据已更改的单元格查找值。
现在我有：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Frametype")) Is Nothing Then
On Error GoTo MyErrorHandler:
Range("Framewidth").Value = Application.WorksheetFunction.VLookup(Sheets("Frame Inf
浏览 0提问于2018-08-03得票数 1
回答已采纳
1回答
我在excel中有一个用户表单，VBA，它以ComboBox5为起点。当用户放下它时，我希望它返回到excel工作表(FaultLog - range B:L)，然后自动填充文本框。类似于VLookup在工作表中的工作方式。这个是可能的吗？
已经尝试过了..。
Private Sub ComboBox5_Change()
Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Me.ComboBox5.Value, Sheets("FaultLog").Range("B2:J9999"),
浏览 4提问于2019-08-16得票数 0
2回答
我试着搜索谷歌和建议的代码，但仍然无法计算出VLookup。
我有两个工作簿，一个是ActiveWorkbook，另一个是Template.xls (查找工作表名为"CtyAccesCode“，范围为A1:B13)。
我想要做的是，如果AD列中的单元格是而不是空的，那么在同一行AB列的另一个单元格中使用VLookup来查找通讯员。
下面是我使用的内容，但在运行以下代码后Excel不会给出值：
For Each cell In Range("H2:H" & LastRow) ' This is the lookup range
If IsEm
浏览 1提问于2015-11-10得票数 0
回答已采纳
1回答
假设我在Excel中有三张工作表。工作表1是主表，工作表2和3包含不同的信息集，这些信息集的标题与输入到主表中的表格的标题相同。有没有办法让我可以在工作表1中编辑信息，工作表2会改变，反之亦然，这样我就可以在工作表2中编辑信息，从而更新主表？
浏览 2提问于2014-03-12得票数 0
我想用Vlookup制作一个用户表单.信息存储在不同的工作簿中。如何使用以下VBA代码将所需的信息从不同的excel工作簿提取到我的文本字段中？
Private Sub Textan_AfterUpdate()
'check to see if value exists
If WorksheetFunction.CountIf(C:\Users\poury\Desktop\ADDON Order Tool\AL010.xlsx.Sheet2.Range("B:B"), Me.Textan.Value) = 0 Then
MsgBox "
浏览 1提问于2017-02-13得票数 0
回答已采纳
我需要一个非常基本的vba宏的帮助。当A6中的值等于1时，工作站中需要出现一个msgbox。我开发了下面的代码，但问题是，当我在电子表格中添加任何其他信息时(例如，如果我在B6中写“我爱披萨”)，msgbox将再次提示，我需要它提示一次，就在我设置A6 = 1的时候。您能帮助我吗？
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A6").Value = 1 Then
MsgBox "THIS IS A MSGBOX."
End If
End Sub
@edit我忘记了一件非
浏览 2提问于2017-03-11得票数 2
我有一个自由格式的文本框，一旦在上面的文本框(txtStore)中输入值，我就想用一个值填充它--基于一个4位数字。 下面是我尝试过的代码，但不确定是否需要其他subs (布尔逻辑)来触发某些东西？ Dim ws as worksheet
Private Sub txtMall_Change()
Set ws = Worksheets("Lists")
Dim txtStore As Integer: txtStore = Me.txtStore.Value
txtMall.Value = Application.WorksheetFunction.I
浏览 17提问于2020-07-09得票数 0
回答已采纳
我在Excel 2016中测试了以下代码。但我遇到了一个
1004错误消息
代码也不起作用。错误行：Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False))
Private Sub UserForm_Click()
Dim xRg As Range
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet1").Range("A2:B8")
Me.ComboBox
浏览 0提问于2018-10-02得票数 1
回答已采纳
我有两个工作表在同一电子表格和第二个工作表的日期是基于第一个工作表与不同的vlookup。现在，我已经知道了如果单元格中的计算值发生变化时如何更改单元格颜色：
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.Color = 3
End Sub
当我在第二个工作表中使用此VBA并更改第一个工作表时，第二个工作表中的单元格颜色不会更改。当我手动更新第一个工作表时，我希望第二个工作表中具有公式的单元格更改其颜色。有可能吗？谢谢!
浏览 2提问于2021-04-18得票数 2
这是我的第一篇文章，不过我已经在工作中用了几年了。对于像我这样的VBA新手来说，它被证明是一个无价的参考。我有一个很大的工作表，用于花名册和显示员工的工作时间。我试图在下面的代码中使用vlookup来生成已知操作员的联系电话和供应商详细信息，到目前为止，这很容易，但是如果我在vlookup表中不存在的操作员的详细信息中填充了一行(这通常是这种情况)，如果我在事实之后单击详细信息或将详细信息复制到单元格中，vlookup将运行并删除主要输入的详细信息。基本上，我希望excel只在匹配的情况下才运行vlookup，并且如果它遇到错误，就不去处理手动输入的数据。这是我到目前为止所掌握的。 Priv
浏览 17提问于2020-07-14得票数 1
回答已采纳
我有一系列的步骤，我变成了一个宏。当独立运行时，它们都很好，但是在步骤18上发生了一些事情，当它集体运行时，会导致“我粘贴到的位置与我的副本大小不一样”的问题。你们中有人能帮忙吗？当我具体选择步骤18时，我的代码应该是正常的，因为它的行为是正确的，但是我确信我正在做一些可怕的错误。这是我第一次使用VBA，所以任何事情都有帮助！这样做的目的是将vlookup语句填充到P、Q和R列中的动态范围(列R从工作簿中的另一个工作表中获取其值)它说它被卡在的位置是：
"Range("P2:P" & LR).PasteSpecial xlPasteAll"
以下是18之
浏览 1提问于2019-03-25得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
云直播
对象存储活动推荐
腾讯云开发者
