如何根据条件定义activecell周围的范围
根据条件定义activecell周围的范围，可以通过以下步骤实现：
- 首先，获取当前活动单元格（activecell）的位置。可以使用VBA中的
ActiveCell对象来获取当前活动单元格的位置信息。 - 然后，确定周围范围的条件。条件可以是基于单元格的值、格式、公式等。根据具体需求，可以使用VBA中的条件语句（如
If...Then语句）来判断是否满足条件。 - 在满足条件的情况下，确定周围范围的边界。可以使用VBA中的
Range对象来表示周围范围，通过指定范围的起始单元格和结束单元格来定义范围的边界。 - 最后，根据需求进行进一步的处理。可以使用VBA中的各种方法和属性来操作和处理周围范围的数据。
以下是一个示例VBA代码，演示如何根据条件定义activecell周围的范围：
Sub DefineRangeBasedOnCondition()
Dim activeCell As Range
Dim surroundingRange As Range
' 获取当前活动单元格
Set activeCell = ActiveCell
' 判断条件，例如判断当前单元格是否为空
If activeCell.Value <> "" Then
' 定义周围范围的边界
Set surroundingRange = Range(activeCell.Offset(-1, -1), activeCell.Offset(1, 1))
' 在周围范围内进行进一步处理，例如将范围内的值相加
Dim sumValue As Double
sumValue = Application.WorksheetFunction.Sum(surroundingRange)
' 输出结果
MsgBox "Sum of surrounding range: " & sumValue
End If
End Sub在上述示例中，我们首先获取当前活动单元格的位置，然后判断当前单元格是否为空。如果满足条件，则定义周围范围的边界为当前单元格周围的3x3范围。最后，我们计算并输出周围范围内的值的总和。
请注意，上述示例仅为演示目的，具体的条件和处理方式可以根据实际需求进行调整。另外，腾讯云提供了一系列云计算相关的产品和服务，可以根据具体需求选择适合的产品。具体信息可以参考腾讯云官方网站（https://cloud.tencent.com/）上的相关文档和产品介绍。
相关·内容
A列表示日期和时间，B列表示每小时的测量数据。我想要做的是计算每日平均值。
我所做的是添加C列，显示一个月的天数，添加D列，计算B列中数据的日平均值，并添加E列，用于提取按日计算的日平均值。
我的代码是：
Sub dailyAverages ()
Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row).Value = "=DAY(A2)"
Range("D1") = "daily average"
Range("D13:D&#
浏览 1提问于2021-04-13得票数 0
我正在使用Excel2013，遇到了一个SelectionChange事件的问题，这让我发疯了。我想知道是否有人能帮我这个忙。我已经干了这么久(一个多星期了！)我可能错过了一些很容易被人看到的东西。下面的代码在Excel 2007和2010中运行良好。
最初，当您激活页面时，代码将立即将您还原到调用页面(在这个不饱和的主菜单中)。第二次循环代码正确工作。在某个阶段，只要选择新的单元格，它就会将您还原到另一个页面。在我的例子中，它把我带回到主菜单页面。
在我的问题中有三个例程被调用：(1)选择更改事件，(2) SetHighlightRows1(ByVal目标作为范围)，(3) MinRowsH
浏览 2提问于2014-11-18得票数 0
回答已采纳
我正在尝试用下表中的数据创建一个堆叠的列图。
我希望选择列A1:A9和C1:F9。选择还需要适应不同的列大小(例如，有人添加了另一个特性)。宏还应适用于工作表中的任何位置的数据表。只要宏来自ActiveCell。
如何不仅选择直到列结束，而且选择排除“值”列。我试图使用结束和抵消，但我不确定最好的方式去做它。再次，我想在表中的任何地方使用它，然后从它创建一个堆叠的列图。
谢谢你的帮忙!
浏览 2提问于2016-05-30得票数 1
回答已采纳
问题是，当我用某种颜色突出显示一行时，该行的原始颜色消失了，所以我尝试了此代码，并且再次删除了该行的原始格式和颜色
这是来自的代码
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const cnNUMCOLS As Long = 256
Const cnHIGHLIGHTCOLOR As Long = 36 'default lt. yellow
Static rOld As Range
Static nColorIndices(1
浏览 1提问于2012-09-06得票数 0
1回答
我是VBA的新手，在编写脚本时遇到了一些问题。它应该做的是在单个单元格中使用分号分隔的数据(数据在括号中包含名称和数字)，并找到具有最大数字的名称，然后将其划分到不同的单元格中。
为了从字符串中取出数字，我使用了由ozgrid开发的定制函数ExtractNumber：
在我的这部分代码中，当我试图调用该函数时，我一直收到错误424：
For i = 0 To a
stored(i) = ExtractNumber((Full(i)))
Next i
据我所知，当变量定义不当或根本没有定义时，就会出现这个错误。我仔细检查了我的所有变量，并尝试在不使用"option expl显式“
浏览 2提问于2018-01-21得票数 1
1回答
我有以下代码：
ActiveCell.Offset(0, -2).FormulaArray = "=INDEX(Table1[Id Company],MATCH(1,(D$5=Table1[Client])*(" & ActiveCell.Offset(0, -1).Value & "=Table1[Id Client]),0))"
当使用数字作为查询数据时，它工作得很好。但是当使用字符串时，它不会找到任何结果。
怎么让它起作用？
浏览 1提问于2018-09-03得票数 0
回答已采纳
好的，我正在制作一个工作表，用户可以从下拉列表中选择一个值，然后需要根据选择来查看所需的参数。
示例：
如果我从下拉列表中选择X，那么将创建三个新的输入字段，并将其格式化为输入单元格，将参数作为默认值(因此，带有解释参数的默认文本的浅橙色输入格式--例如一个的开始日期，然后是下一个结束日期)
我的开始：
Sub test()
If ActiveCell = "setEnrollnet" Then
ActiveCell.Offset(0, 1) = startDate
ActiveCell.Offset(1).EntireRow.Insert
ActiveCel
浏览 0提问于2014-06-30得票数 0
我正在用excel开发一个我正在设计的应用。我在vba中声明了以下Sub：
Sub MakeThickOutsideBorder(ByVal theBox As Range)
...draw the border...
End Sub
当我这样说的时候：
Set box = Range(ActiveCell, Cells(lastRow, lastCol))
MakeThickOutsideBorder (box)
平安无事。
如果我这么说：
MakeThickOutsideBorder (Range(ActiveCell, Cells(lastRow, lastCol)))
在运行时，我在调
浏览 3提问于2021-09-26得票数 0
回答已采纳
2回答
我有一个宏，用于标识列中包含数据的单元格，然后将多个列从所述单元格行复制到另一个工作表中。
符合要复制的条件的19行(并且不包含在我的5个异常中出现的任何单词)没有被复制。
我试着一步一步地完成这个宏，使用停止点并改变宏本身。
我的理论是，它应该从纸上复制的细胞有问题。
Sub Copy_Range()
Dim zelle, cell As Range
Dim i As Long
On Error Resume Next
Worksheets("Worksheet 4").Activate
Application.GoTo Worksheets("Worksh
浏览 5提问于2021-10-04得票数 0
我正在自动化一个从工作表导入数据的过程，尽管为了数据完整性(并最终附加到数据库)，我不希望输入两次标识符。如果标识符(SHC_No)不在A列中，我的代码将导入数据，并提示您是否希望替换某些更改的条目。它将删除这些条目，并查找下一个空行，但.paste函数将不会运行。(即使它在我要粘贴到的单元格上，并且我可以在剪贴板中看到数据。)
我得到了运行时错误1004“粘贴工作表类的方法失败”，"PasteSpecial方法的范围类失败“，以及438”对象不支持此属性或方法“。
我对Excel VBA比较陌生。我尝试过.paste和.pastespecial的不同版本，但似乎都不起作用。我已经尝试
浏览 1提问于2015-10-29得票数 1
我有一个高级过滤器，标准如下：
Range(ClientRange).AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range(ClntName), CopyToRange:=Range("AA2"), unique:=True
而且它工作得很好。它复制标题和数据。
但在下一种情况下，我没有如下标准：
Range("F2").Select
Lastrow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
SiteRange = "F2:
浏览 1提问于2015-03-14得票数 0
1回答
我已经编写了一段代码，可以在运行代码的过程中移到下一列，但是它不能工作，而不会出现错误。
我希望在运行代码时，它应该再次移动到下一列，并重复此操作。
例如:我第一次运行代码，它将在第二次移动到BD4，它将移动到BE4，然后是BF4，然后是BG4，然后是BH4，然后是BI4，等等。
如果使用这一行ActiveCell.Offset(0, 1).Select并选择BC4，它将移动到运行代码。试图生成相同的代码，但它将从BC4开始。
我非常感谢你的帮助。
Sub Move()
With Sheet7.Range("BC4")
.Offset(0, 1).Activate
End Wi
浏览 2提问于2021-02-23得票数 0
回答已采纳
1回答
首先，感谢你们在过去的所有帮助，这个网站是一个祝福，你们都是圣人。现在开始谈正事
我在一组测试数据上遇到了问题，另一组图是正确的，然而，这组数据导致我的图看起来错误。我想我找到了问题所在，但我不确定如何解决它。当我的代码创建要绘制图形的范围时，由于数学错误，它没有抓住正确的范围。作为参考，DataLength = 102，这是图形和数据的一部分。
我需要将图形绘制到"CZ"，但它只会转到D，因为fRemainder = 0，这是最奇怪的代码。
Dim iAlpha As Integer, fAlpha As Integer
Dim iRemainder As
浏览 19提问于2017-08-18得票数 0
回答已采纳
我正在写一段代码，它遍历一列中的所有值(直到它到达空行)，并将包含“木头”的值添加到要显示在消息框末尾的范围中。
在链接的图像中，它将从A2开始并向下每行，检查C列中该过山车的值，如果C是木制的，则将A中的值添加到要在末尾显示的范围中。
代码：
Sub checktype()
Dim wooden As Range
Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Offset(0, 2).Value = "Wood" Then
浏览 12提问于2018-09-10得票数 0
回答已采纳
我有一个Excel电子表格，我正在尝试创建一个工作宏(在VBA中)，当一个单元格包含一个日期(日期按B列中的一行排序)，并且这个单元格是特定颜色的，并且这个单元格是活动的，并且用户单击一个按钮，宏会搜索与活动单元格中的日期和它的颜色相等的所有日期。然后在H列中，将找到日期的各行的数值相加并存储到名为totalValue的变量中，然后将日期、描述和totalValue复制到另一个工作表中，并粘贴到下一个可用的预定义行中。
我知道颜色排序只适用于一种颜色，我使用了不止一种颜色布局。问题是，当我运行宏时，它似乎将日期内H列中的所有数值相加，并且没有过滤掉颜色。但是，当我在52 & 53行(E
浏览 1提问于2016-08-16得票数 0
1回答
我有C列的条件格式，其中单元格背景颜色变为红色，表示B列中的最大值。我有A列，下拉菜单用于选择组(组1- 6)。如何使C列中的颜色变为红色，以便仅显示A列中每个特定组的B列中的一个最高值。新行被插入和删除，C列中的单元格颜色需要更改。请对解决方案提出建议和建议。
请看截图
修正如下：
我有一个用于插入新行和复制/粘贴到新行的命令按钮。所有新行都复制到下面。第一排是15号。代码如下：
ActiveSheet.Unprotect "*****"
lrow = Selection.Row()
Rows(lrow).Select
Selection.Copy
Rows(lr
浏览 1提问于2020-02-05得票数 0
我是StackOverflow和VBA的新手。除了用VBA从头开始编写代码之外，我是Excel的所有方面的专家。
我尝试做的是将索引中的颜色应用于包含特定术语的单元格的内部。这就是我所拥有的：
Sub ConditionalFormatting()
Do Until ActiveCell = ""
If ActiveCell = "STAR DISTRICT" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "STAR SCHOOL" Then
ActiveCell.I
浏览 0提问于2012-06-28得票数 1
回答已采纳
我有一个有两个工作表的工作簿，Rep和Aux。
我希望动态地将Aux!A2设置为ActiveCell的值，该值位于sheet Rep上，但仅当ActiveCell位于该工作表的列D (在range Rep!D2:D5000中)时。
更重要的是，只要工作簿是活动的，我就需要这个机制来运行，而不仅仅是一次。
例如，：在使用Rep时，我将光标放置在单元格D2上，即ActiveCell。我希望Aux!A2被设置为Rep!D2的值。我将光标移动到，比方说，Rep!F5，并期望nothing会发生在Aux!A2上，最后，我激活单元格Rep!D7，再次期望Aux!A2得到ActiveCell的值。继续直到关
浏览 4提问于2017-06-05得票数 0
回答已采纳
我正在尝试删除excel 2013 VBA中的重复项。但是我得到了错误“对象不支持这个属性或方法”。问题是我没有静态范围可供选择。我想从列头'abcd‘中删除重复项。
Cells.Find(what:="abcd").Activate
ActiveCell.EntireColumn.Select
Set rng = Selection
ActiveSheet.rng.RemoveDuplicates
浏览 1提问于2015-07-26得票数 12
回答已采纳
我正在创建一些代码来更好地记录开支。其中一个宏只能在金额不为空的情况下从另一个工作表加载固定费用，而在信贷情况下，只有在仍有未付款的情况下才能加载固定费用。
我的代码如下：
Sub CargarFijos()
ActiveSheet.Range("J4").Select
If Not ActiveSheet.Previous Is Nothing Then
If Not ActiveSheet.Previous.Range("C12") Is Nothing Then
If Not IsEmpty(ActiveSheet.Previou
浏览 3提问于2016-06-15得票数 0
回答已采纳
我正在尝试创建一个宏来导入30个随机数，并将每个随机数乘以一个预定义的人口。我不能使用固定范围，因为每次使用的范围都不同。我已经完成了所有的工作，除了乘法部分--我不能编译这行代码。 Dim N As Integer '(counter)
Dim rng As Range '(activecell address)
Dim rand As String '(convert addre
浏览 16提问于2019-09-05得票数 0
2回答
我是VBA的新手，一直在努力寻找一种解决方案，将一些公式复制和粘贴到带有可变尾行的范围中。我设法拼凑了下面的代码，这是可行的，但效率很低，因为它一次只粘贴一行公式。我想复制公式，然后立即将它们粘贴到整个范围中(而不是逐行)。我必须在几个不同的工作表和范围中执行这个函数，所以理想情况下，我希望创建一个子例程来查找最后一行。我不知道的是: 1)如何找到最后一行，2)当我选择要粘贴公式的范围时，如何引用它。
从单元格C9开始，使用第一列中的数据设置工作表，公式在D8:I8中。我需要把公式复制到D9.I的范围内？(最后一行是C列中的最后一行数据)。
我已经为此做了大约5个小时了，现在我已经疯了。任何帮
浏览 6提问于2020-05-09得票数 1
回答已采纳
嗨，在那里，我已经创建了下面的代码来格式化excel电子表格中的Grand Total行。我的问题是，我想从Grand Total和right中选择dynamic单元格，因为我并不总是有15列。我试了一试ActiveCell，但它不起作用。有人能帮我修改这段代码以满足我的需要吗？
Range("A1").Select
FindRow1 = Range("A:A").FIND(What:="Grand Total", LookIn:=xlValues, LookAt:=xlWhole).Activate
ActiveCell.Resize(, 15
浏览 1提问于2019-02-22得票数 1
我是VBA的新手。我在MacOS 10.14.5上使用Excel16.27 (19071500)和VBA7.1(Office365)。
几个月前，我创建了一个Excel宏，直到几天前我才成功地使用了它。今天，我想使用它，但是在第37行中我得到了以下错误：
Valeur = cell.Value
“方法或数据成员未找到”
我已经用这个宏解决了几个月的问题.
Sub Prepare_All_Data_From_Wac()
'
' Prepare_All_Data_From_Wac Macro
'
Dim Valeur As String
Dim i As Integer
D
浏览 1提问于2019-07-24得票数 1
2回答
我设计了一个宏，它将根据目标工作簿中的主编号搜索“源工作簿”，在找到匹配后，它将复制与其关联的整行(通常会复制5行作为主编号)，如果没有匹配，它将把该行涂成黄色
当我运行宏时，excel表格变得非常慢，很难使用该excel表格进行操作。
这是我的代码：
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 4 To 2000
If IsEmpty(Cells(i, 3)) Then
GoTo line
End If
Range(Cells(i,
浏览 2提问于2014-09-22得票数 0
1回答
循环到黑色单元格
、、
我就快到了！但是很难弄清楚如何循环我的代码的一部分。参见底部的“循环部分”。
Sub CopyPaste()
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, lastrow As Long, x As Integer, ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Brand By Vendor "
Shee
浏览 5提问于2021-01-30得票数 0
1回答
我正在创建一个客户端寄存器，其中客户端可以添加使用按钮。我还有一个排序函数，允许我在klantnr上对它们进行排序。但问题是，每当我使用排序函数时，它只对klantnr进行排序，并且从表单中提供的添加信息保持不变。例如，这是我的userform：
()
这是我的excel表格：
()
当我添加另一行时，它会对klantnr进行排序，但它不接受其他值，比如Naam和Adres。因此，它需要对klantnr进行排序，并带走其他信息。
这是我的密码：
Private Sub btn_Toevoegen_Click()
Dim laatsteKlantNummer As Integer
Ran
浏览 2提问于2014-10-30得票数 1
回答已采纳
我创建了一个包含5列的电子表格，当用户按enter键时，它应该将信息复制到第二个电子表格中。然而，第二个按钮正在从同一列复制信息，但我已经检查过了，这两个按钮都选择了Trade1和Trade2宏。
截图1：屏幕截图2：
正如您在SS2中看到的，在按下按钮2之后，它复制了错误的数据。
代码如下
Sub Trade1()
Sheets("Trades").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Act
浏览 3提问于2013-08-10得票数 0
回答已采纳
1回答
对于下面的代码，我希望"x“的值是基于Excel中的单元格的值而变化的，比如2000年和1995年。给定这两年，我希望"x“的值为5 (2000 - 1995)。我尝试了几种不同的方法，但都不能让它工作。 Dim i As Integer
For i = 1 To 5
rng.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C/R122C&
浏览 17提问于2019-10-07得票数 0
回答已采纳
2回答
新手在Excel VBA上。我只想问一下如何修复我得到的错误？我正在尝试根据条件复制整个行，并将其粘贴到另一个工作表(同一工作簿)上。下面是我的代码：
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim endRow As Range
Set ws = Sheets("FIELD OFFICE DATABASE")
Set ws1 = Sheets("Transferred Items")
set endRow = Range("B" & Rows.Count).End(xlUp).Offset(
浏览 10提问于2018-01-23得票数 0
我正在使用With/End With，并且只想调用在With之后编写的代码，但是我不知道如何做到这一点。例如：
With Activecell.End(xlToRight).End(xlToRight)
Range(., .End(xlDown)).NumberFormat = "###0"
End With
在本例中，我希望单个.表示Activecell.End(xlToRight).End(xlToRight)，但它不起作用。有什么想法吗？
谢谢!
浏览 1提问于2014-09-16得票数 0
回答已采纳
我有一个工作表，里面有很多表格，我刚刚开始使用表格，因为它们看起来很方便。但我以前从未操作过Excel表中的内容。这些表基本上是带有Firstname和Lastname的列的列表。根据这些列上的值，我想生成一个用户名。但我正在尝试编写一个带有参数的泛型Sub，例如工作表和表的名称。
以前，我曾在数据未在表中时执行过此操作：
Cells(2, 2).Select
Do
strFirstName = ActiveCell.Value
strLastName = ActiveCell.Offset(0, 2).Value
strFirstName = Left(strFi
浏览 0提问于2011-10-24得票数 2
回答已采纳
1回答
没有"var =“的变量可以吗？
、、、、
这个脚本似乎运行得非常好。这个问题更多地是针对(初学者)是如何写的。
我一直在编写一个脚本，在将它分解成多个函数之后，我很难将变量从第一个函数传递到下一个函数。在阅读了一下之后，我发现我不一定需要包含"var = "，尽管我不能百分之百地确定差异是什么。我设法得到了“变量”(它们仍然被认为是变量吗？)传递到下面的函数，但我只想确保我所做的工作是有效的/可接受的。
function onEdit(e){
/* I switched these from "var = " because they weren't passing
down to t
浏览 0提问于2019-08-24得票数 0
回答已采纳
如何使用Excel JS API获取ActiveCell周围的当前区域？
在VBA中，这是
Set rng=ActiveCell.CurrentRegion
浏览 4提问于2016-10-22得票数 3
1回答
我正试图在userform按钮中编写一个子例程来执行以下操作
从输入的文本框收集数据，使用文本框过滤第6列(生产线)，在A列中使用代码块查找过滤后第一个空单元格，当它发现第一个可见的空单元格时，尝试使用顶部的行(由于公式)< code >G29</code>自动填充单元格
这是我目前的密码。
Private Sub GenerateNewPartID_Click()
'grabs all the information entered by user and creates a new row and autofillsName Current Inv
浏览 8提问于2022-03-03得票数 1
我已经写了这段代码，但它在第一行'SolverOk‘处开始出错。不知道如何解决，如果有任何建议，我们将不胜感激！
Worksheets("Reconciliation").Activate
Range("AM3").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Range("A1:G1").Select
Selection.ClearContents
SolverReset
SolverOk SetCell:=ActiveCell.S
浏览 3提问于2017-04-28得票数 0
我正在尝试放置一个宏，在其中选择Yes，下一个单元格将变成灰色。所以我有几个“是”列，但是对于我的生活来说，我无法计算/修复错误
误差
运行时错误1004
应用程序定义或对象挑战错误
码
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 5 Then
Set r = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7))
If Target.Value = "Yes" Or Target.Val
浏览 6提问于2015-05-13得票数 1
回答已采纳
1回答
我创建了一个嵌套的for循环来比较两个工作表中的3个不同的单元格的值。当数据很小时，循环运行得很好，但是当我在5000行上运行时，它太慢了，并且崩溃了。任何关于如何更有效地运行它的想法。
Sub RowMatch()
Dim x As Integer
' Make sure we are in the right sheet
Worksheets("Q416").Activate
' Set numrows = number of rows of data.
NumRows = Range("C
浏览 8提问于2017-03-14得票数 0
1回答
我有一个在用户活动单元格上方插入12行的代码。我正在尝试让代码从另一个工作表复制特定的范围，并将其粘贴到新创建的行中。我一直收到一个424的运行时错误。我该如何解决这个问题呢？
下面的代码
With ActiveSheet
For i = 1 To 12
ActiveCell.Rows.EntireRow.Insert Shift:=xlDown
Next i
Sheets("The Hidden Works").Range("A2:U13").Copy.Range.ActiveCell
End With
浏览 12提问于2018-01-04得票数 1
2回答
我在Excel中有一个日历，它一直持续到2020年7月。我希望在我的工作表中有一个自动着色的所有单元格的“当前月”，每次我打开工作簿。
我已经做了“今天的自动着色”--这是代码：
Public Sub FormattaCalendario()
Dim LColCount As Long
Dim cell As Variant
ultimoGiorno = DateSerial(Year(Date), Month(Date), 0)
primoGiorno = ultimoGiorno - Day(ultimoGiorno) + 1
LColCount = Cells(
浏览 4提问于2019-09-25得票数 3
回答已采纳
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 3).Select
Dim Q As String
Q = ActiveCell.Address
Range(" Q:D10438").Select
Selection.ClearContents
变量q采用活动单元格的值，但我无法将其包含在范围内
浏览 0提问于2020-12-05得票数 0
2回答
我试图在excel模块中创建一个自定义函数，如下所示：
Function STATUS(valuex As String)
If ActiveCell.Offset(0, 1).Value = valuex Then
ActiveCell.Value = ActiveCell.Offset(0, -1).Value
'Remove value from left column
Activecell.offset(0,1).clearcontents
End If
End Function
它基本上是这样做的：
Number Resul
浏览 1提问于2018-08-30得票数 3
我正在处理Excel中的宏，它需要遍历整个专栏，查找非零数据的集群，将数据加起来，并将结果存储在上述集群附近。然后，它继续在列中查找其他集群，并执行相同的操作。
尽管如此，我正在尝试将对“目标”单元格(集群的添加将被存储在其中)的引用存储在变量中，然后使用该变量访问单元格的"value“属性，以便对其进行更改。
下面是代码：
Sub addNonZeroes()
Dim targetCell
' Select cell E5, *first line of data*.
Range("E5").Select
' Set Do loop to
浏览 2提问于2012-03-06得票数 0
1回答
我需要创建一个简单的宏来清理我的工作表。基本上，如果一批货物上有多个订单，我需要将这些订单垂直显示，而不是水平显示：
我创建了一个宏，它将复制/粘贴第一行到它下面的行，然后用另一个复制/粘贴更改第二个顺序。
很简单。我的问题是宏被绑定到我创建的宏的范围中。
如何使它能够在选定的范围上运行这个宏。与其手工复制和粘贴具有多个订单的每行，我更愿意突出显示具有多个订单的行并运行宏。
这是代码：
ActiveCell.Range("A1:M1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1")
浏览 12提问于2022-05-11得票数 0
这个简单的宏会在178次迭代后停止，并显示错误28消息。我怎样才能绕过这个问题，使宏继续运行？我尝试了论坛上的许多建议，但都没有成功。我使用的是Excel2007。D Hatch Bilthoven
Sub Macro1()
' Macro1 Macro
' Keyboard Shortcut: Ctrl+a
ActiveCell.Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Past
浏览 2提问于2015-08-24得票数 0
我每天都会将数据添加到我的工作簿中，我通常会使用一组公式来计算我的失败率和成功率。我已经有了编译数据的代码，但是我现在缺少的是如何复制下一个空单元格的公式集，这样它就可以帮助我计算速率。我的公式集从"P22“添加到"AB22"，我需要将这些公式复制到下一个空行。这是我现在拥有的宏，如果足够好的话，检查一下是否有改进的地方，因为我仍然是vba的新手。非常感谢。
Sub trial()
Dim wb As Workbook, wb2 As Workbook, wb3 As Workbook
Dim ws As Worksheet
Dim fn As String
Se
浏览 2提问于2017-09-21得票数 0
回答已采纳
我试图使用此VBS代码删除具有特定单元格值的整个行，但当我试图查找值并选择该行时，会出现错误：
Set xc = CreateObject("Excel.Application")
xc.Visible = false
xc.displayalerts=false
Set xp = xc.WorkBooks.Open ("C:\Users\Shahim\Desktop\test.xlsx")
Set xs = xp.Worksheets(1)
Set xc = xs.find(what:="Vtest",lookat:=xlwhole).sel
浏览 2提问于2015-07-29得票数 0
回答已采纳
我想向下传递一个特定的ActiveCell甚至ActiveCell.Address给另一个Sub()。 包含我需要的ActiveCell的函数是： Private Sub CommandButton1_Click()
If Trim(TextBox1.Value) = "" Then
MsgBox "No Value detected"
Else
Debug.Print "ActiveCell on ButtonClick: " & ActiveCell.Address ' ACTIVECEL
浏览 92提问于2021-03-22得票数 1
2回答
条件格式范围
、、
我有两个范围的数据，我想要比较和格式，如果它们匹配。因此，如果其中任何数据与range 2中的数据匹配，我希望格式化range 1单元格。到目前为止，这就是我所拥有的--直到我将数据更改为范围2，但没有更新它：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRange As Range, cell As Range
Set myRange = Range("a9:a12")
For Each cell In myRange
If cell.Value = ActiveCell.Value
浏览 2提问于2015-09-28得票数 3
回答已采纳
1回答
我正在尝试写一个代码，它可以在工作表之间来回切换，从一个工作表中获取输入，然后将它们粘贴到另一个工作表上。这就是代码。
For r = 1 To ActiveCell.End(xlDown).Row
Cells(1, c).Select
Do Until IsEmpty(Selection)
name = ActiveCell.End(xlToLeft).Value
email = ActiveCell.End(xlToLeft).Offset(0, 1).Value
phoneNumber =
浏览 0提问于2016-06-17得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
