使用VBA在Excel中着色一系列单元格
使用VBA在Excel中着色一系列单元格，可以通过以下步骤实现：
- 打开Excel，并在需要着色的工作表中选择要着色的单元格范围。Sub ColorCells() Dim rng As Range Dim cell As Range Dim colorIndex As Integer ' 设置要着色的单元格范围 Set rng = Selection ' 设置要使用的颜色索引（1-56） colorIndex = 3 ' 遍历所选单元格范围并设置颜色 For Each cell In rng cell.Interior.ColorIndex = colorIndex Next cell End Sub
- 按下Alt+F11打开Visual Basic编辑器。
- 在编辑器中，单击“插入”菜单，然后选择“模块”以创建一个新模块。
- 在新模块中，粘贴以下代码：
- 按下F5或单击“运行”菜单中的“运行子/用户表”以运行刚刚创建的宏。
- 所选单元格范围中的所有单元格现在都应该具有所选颜色。
请注意，此代码仅适用于VBA编辑器，并且仅在Microsoft Excel中运行。如果您使用的是其他电子表格软件或编程语言，则可能需要不同的代码。
相关·内容
在Excel中创建伪甘特项目计划。对于那些没有MS项目的员工，我遇到了以下问题。Excel表变得非常缓慢。我不确定它是由我使用的VBA函数还是条件格式引起的。
该表从任务详细信息任务、持续时间、taskStart、taskEnd开始。
并继续使用日历部分，包括字段weekStart和weekEnd。在每个日历单元格中都有一个公式
=PseudoGantt(task;duration;taskStart;taskEnd;weekStart;weekEnd)
宏如下所示：
Function PseudoGantt(taskName As String, taskLength As Integer,
浏览 4提问于2012-01-03得票数 0
5回答
我希望用它们的绝对值来为Excel 2010中的值表着色。基本上，如果我有桌子的话：
...the单元格由单元格的原始值着色。我想要做的是用单元格的绝对值来着色，所以用这个表的单元格着色：
...but具有第一个表的值(实际值)。对如何做到这一点有什么想法吗？通过GUI还是用VBA？
浏览 5提问于2014-12-05得票数 8
回答已采纳
我正在寻找一个Excel VBA代码，它将只对任何给定用户选择的行(cells A to P)中的特定单元格着色，而不是整行，它也会在我的表外为没有数据的单元格着色。
用户需要每天查看一张列表，并确定某一行是否应该标记为绿色或橙色，例如，在以后的跟踪中。
目前我使用的是：
Selection.EntireRow.Select
With Selection.Interior
.Color = 49407
但是，正如前面提到的那样，在我的数据范围之外的单元格也是彩色的，我只希望在某个范围内的单元格(A to P)被着色。
浏览 3提问于2017-10-16得票数 2
回答已采纳
1回答
我们正在尝试在excel中使用单元格着色。
我们希望如果一个单元格颜色是红色，它会在另一个单元格中给出一个数字答案。例如，如果单元格A2是红色，那么在单元格B2中它将是8。
有没有人知道不用VBA怎么做？
浏览 1提问于2018-05-16得票数 0
在excel vba中，我尝试选择从单元格“O2”开始直到工作表末尾的一系列值。
Range("O2", Range.End(xlDown))
但这在Argument Not Optional上失败了。我做错了什么？我正在使用Excel 2010。
浏览 9提问于2013-12-20得票数 4
我希望在Excel/VBA中创建一个函数，该函数将查看一系列单元格，如果其中任何单元格包含某个字符(星号*)，则返回值为TRUE。有些单元格是空白的，有些单元格包含文本，有些单元格可能包含文本和星号。有人能帮上忙吗？非常感谢
浏览 1提问于2013-11-29得票数 0
回答已采纳
4回答
跳过数组中的列
、、
我有一个VBA函数，它返回一个要在Excel中显示的数组。数组的前两列包含不需要显示的ID。
有没有办法修改Excel公式以跳过前两列，而无需返回创建VBA帮助器来剥离这两列？
公式如下所示，其中的括号允许数组跨一系列单元格显示：
{=GetCustomers($a$1)}
浏览 2提问于2011-03-11得票数 2
我希望将MS Excel电子表格转换为LibreOffice计算电子表格。
Excel文件包含一个VBA宏，它遍历用户选择的一系列单元格，Visual Basic代码看起来就像这样：
For Each Value In Selection
' Manipulate Value
Next Value
其中Selection包含用户手动选择的工作表中的单元格。
因此，我的问题是:如何在Libre Basic中重现这一点，访问用户选择的单元格范围？
浏览 1提问于2013-02-06得票数 1
回答已采纳
如何使用VBA将一系列单元格从Excel复制到Outlook中的电子邮件正文？
我只需要的内容是一个Outlook邮件的主体。
浏览 2提问于2010-09-21得票数 0
Excel突出显示具有相同颜色值的单元格 我需要一个宏，将颜色所有重复的单元格的颜色， 我需要用不同的颜色给单元格着色，单元格A2和单元格A3可以有相同的值，比如50，单元格A4和A5可以有值60，单元格A7，A8和A9可以有值40，单元格A11，A15和A20可以有值250。 我需要不同的颜色，如果值不同，这样单元格A2和A3可以是黄色的，如果值是重复的，那么单元格A4和A5可以是橙色，单元格A7，A8和A9可以是黄色。 问题是，我可以有一个从10个单元格到600个单元格的Excel文件，所以它可能需要永远手动做。 我有一个可以用这种方式着色的宏，但我需要能够读取着色单元格的值，这是我的宏
浏览 85提问于2021-07-05得票数 0
回答已采纳
使用VBA时，我需要将Excel工作表中某个范围内的图片调整为它所在的每个单元格的实际大小。换句话说，我希望我的图片大小一致，并且能够在工作表中对它们进行排序。我不想改变我的单元格大小来适应图片。我在stackoverflow中看到了与此类似的东西，但它是用于表的，而不是包含行的工作表。除了将图像大小更改为一系列单元格中每个图片的单元格大小外，我已经为所需的所有内容编写了代码。有没有人有这样的VBA代码？
浏览 85提问于2020-07-20得票数 0
我有一系列的Excel文件都是相同的格式。每个excel文件中的数据量不同。我正在做一个代码，将循环通过一个文件夹，并执行所有excel文件的计算。
我在VBA中使用以下代码来确定excel文件中的行数：
i = .Cells(.Rows.Count, 2).End(xlUp).Row
我使用以下公式对一系列单元格进行计算：
With .Range("D2:D" & i)
.Formula = "=Log(B2)"
End With
如何计算D中下一个可用单元格中"D“列中所有值的总和？从理论上看，这个公式是这样的
j = i + 1
浏览 2提问于2014-03-31得票数 0
回答已采纳
我刚刚开始学习VBA，这是我的作业问题。它要求我使用我的名为17067513_Excel的工作簿中的一系列数据。我必须使用COUNTIF来找出有多少单元格包含超过40个标记。你能看看我的代码并帮助我吗？
Sub Test()
Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIf(Workbooks("17067513_Excel.xlsx").Worksheets("17067513").Range("N2:N296"), ">40%"
浏览 0提问于2019-01-21得票数 0
我是excel和VBA的新手，所以我来这里寻求你的帮助。
我正在寻找一个VBA代码，以自动颜色，每个列单元格的第一个字母。
这仅适用于A列，而不是excel中的所有列。列中只有单词。
例如，如果第一个字母是'a‘，那么'a’only就会变成红色。
没有区分大小写的限制，每一个a-z都将用26种可区分的颜色着色。
我试了几天才找到解决方案，但不幸的是我做不到。
示范：
提前谢谢。
浏览 3提问于2020-12-26得票数 0
回答已采纳
我创建了一个简单的vba加载项，用于根据单元格的值为单元格着色，我创建了一个函数，该函数使用快捷方式调用它，然后将其另存为Excel加载项并将其添加到Excel中。
问题是，当我第一次添加插件时，它工作得很好，但当我打开一个新的Excel文件时，我需要禁用和启用插件才能正常工作。
更新:我在另一台电脑上试过，它工作正常，但它显示了一个错误，当我忽略它时，它工作得很好。我正在为错误和代码添加屏幕截图
浏览 0提问于2019-08-18得票数 0
我需要使用Excel搜索一系列单元格，返回第一个匹配的行号。只要我在搜索值，匹配函数就很容易做到这一点。但我需要搜索公式，而不是数值。
当我搜索“=A4+2”时，我需要VBA返回"4“。
浏览 1提问于2015-12-10得票数 2
回答已采纳
2回答
在vba中，我想从工作表的单元格中读取颜色，以便为条形图中的特定条形图着色。我的问题是，我有4F9F92格式的颜色，但要在makro中读取它，我需要使用单元格中的excel颜色代码4076202。有没有办法在vba代码中转换这两种格式？我知道在即时窗口中我可以执行以下操作
?rgb(170,50,62)
这导致了
4076202
在vba代码中，我使用以下命令读取颜色
ser.Points(p).Interior.Color = arr(s, p)
其中s和p是通过具有不同颜色代码的数组运行的两个游程变量。
有没有可能我只是给每个单元格设置一个函数，让我输入一个值，比如4F9F92，将它自动转
浏览 2提问于2014-08-04得票数 3
我在excel中创建了一个非常简单的下拉列表。它包含从单元格范围(年)加载的一系列整数。我需要在vba中读取选定的值。然而，我似乎甚至找不到控件！
我试过了
CboYear
Sheet2.CboYear
Worksheets("SheetName").CboYear
等等等等。
在VBA中的任何地方，这个控件都不存在。我发现的所有教程似乎都假定只使用控件名称就可以了。
我已经尝试了工作表本身、工作簿和一个模块中的代码，但没有成功。
浏览 2提问于2010-03-26得票数 4
回答已采纳
我正在尝试使用win32com/python在Excel中获取一系列单元格的内部颜色。循环遍历每个单元格不是一个选项，因为这需要3到5秒才能完成，而颜色每秒钟变化一次。
使用似乎会有所帮助，但win32com不喜欢将任何参数传递给Range.Value。
import win32com.client as win32
excel = win32.Dispatch('excel.application')
fileName = r"myFile.xlsm"
myBook = excel.Workbooks(fileName)
mySheet = myBook.S
浏览 1提问于2018-03-18得票数 1
回答已采纳
我试图给B列中的所有单元格的背景着色，这些单元格的内容通过VBA进行了更改。
如果我手动更新单元格，背景就会改变，而不是当它通过VBA更改时。我不明白为什么它不改变与VBA。
在称为OriginalData的工作表模块中，我有
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim nName As String, nEmail As String
Application.EnableEvents = False
For Each c In Target
If
浏览 4提问于2015-08-21得票数 2
回答已采纳
我使用的是Excel 2016，我需要应用一个条件格式，它将从一系列单元格中高亮显示值最高的单元格(使用绿色圆圈)。例如，我在单元格A1、B1和C1中有值，如下所示：
A B C
Row 1 50 60 55
我需要一个条件格式，在单元格B1的值旁边放一个绿色的圆圈，因为它是单元格A1:C1范围内的最高值。
如何才能做到这一点(不使用VBA)？
浏览 3提问于2018-05-03得票数 0
回答已采纳
我想使用VBA在excel中得到一系列单元格的值的乘积。
我得到了一个选择，例如：(这行得通)
ActiveSheet.Range(Cells(i, j), Cells(i, z)).Select
我想把一个区间的乘积放在另一个单元格中，但这不起作用：
'Range("X10").Formula = "=PRODUCT(Range(Cells(i, j),Cells(i, z)))"
非常感谢您的帮助，提前谢谢！
浏览 10提问于2013-06-20得票数 1
6回答
我试图通过VBA宏转换Excel中的一系列单元格，但我得到了一些错误，主要是错误91。
我是VBA的新手，对函数也不是很了解。
Range(InRng).Select
Set Range1 = Selection
Dim DestRange As Range
Set DestRange = Application.WorksheetFunction.Transpose(Range1)
在经过几个论坛之后，这就是我想出来的。需要注意的一点是，我不需要将它们复制到任何其他单元格中。
我试图实现的是创建一个协方差方法，在选项窗口中，用户可以选择范围，然后选择按列或按行，这将影响产生的协方差矩阵。
浏览 0提问于2012-11-01得票数 8
回答已采纳
我有一些单元格是根据Excel中引用的一些单元格的值着色的：
如您所见，“A”、“B”和“C”指的是工作簿中的几个工作表。因此，您可以在顶部一行键入工作表的名称，如' a‘(圆圈)，然后第a、b和c行的单元格将根据该工作表中某个表格的值进行着色。因此，对于A：
表中的所有单元格都是通过INDIRECT和TEXT函数引用的。
我的问题是，我目前必须对顶行进行绝对引用(即“摘要”中的“A”)，以便挑选出正确的工作表(也称为“A”)。但是我不能复制和粘贴它来创建另一个条目(例如D‘)，而不必为每个颜色格式编排规则手动键入该条目的单元格。
因此，我想说'Excel，
浏览 12提问于2017-08-14得票数 0
回答已采纳
我被要求用VBA编写一个足够简单的任务，我通常使用Java，甚至从来没有看过VBA。当我搜索它的时候，我并没有真正得到我想要的东西，所以我想我会在这里问。
如何在VBA中的一系列单元格中搜索excel中不等于“短语”的字符串的值
为这个看似简单的问题道歉，但这不是我的问题，任何反馈都是非常感谢的
马丁
浏览 3提问于2015-02-23得票数 1
回答已采纳
假设我在Excel中有一个表A-详细信息如下：
和另一个表B，如下
我希望输出如下，表B中的名称必须与表A中的名称进行核对，并且应该从表A中挑选相应的StartDate和EndDate，并且应该将其与表B中的日期进行比较，如果表A中的Status处于“进行中”状态，则该名称下的单元格应该着色为绿色，或者如果处于“等待状态”中，则应将该名称下的单元格着色为红色。
例如：
考虑表B中的Jack，它在表A中有3条记录，第一个开始日期应该选择4-Apr-2017，结束日期应该是27-Apr-2017，并且必须根据status字段进行相应的着色。
如何在Excel中使用VBA/任何工具
浏览 2提问于2017-04-04得票数 0
我知道有几种使用宏(VBA)在Excel中显示/隐藏列和行的方法，但我找不到或找不到使用公式或条件格式实现此目的的方法。我特别感兴趣的是Excel2007--但我很想知道是否有人在Excel的任何版本中做到了这一点。
对于那些想要背景的人，我有一系列的数据，日期在顶部，标签在第一列。我想指定一个日期窗口(在另一个工作表上)作为两个具有下拉日期(月)的单元格，然后显示/隐藏数据表上的适当列。
浏览 21提问于2010-04-14得票数 3
回答已采纳
1回答
关于Excel中VBA中单元格的范围，我有一个问题。我想要做的是编写一个VBA代码，该代码从我提供的初始值中选择一系列值，直到列的底部，最后一个条目位于该列的底部。
我将我的初始值定义为：
Dim Value_one As Integer
Value_one = 8
现在，我似乎找不到在列中选择从第8行开始到列中最后一个单元格的值范围的代码。我试过这个：
Range(Value_one, Value_one.End(xlDown)).Select
但没起作用。任何帮助都将不胜感激！
浏览 4提问于2020-11-01得票数 0
回答已采纳
我在excel中有一组键值类型对。对于每个键值对，我有一个唯一的项目列表，我希望在一个单独的工作表中作为下拉菜单的内容。为了制作下拉菜单，excel数据验证需要引用一组单元格来进行选择。
我的问题是:与其为数据验证列表引用一系列单元格，数据验证列表是否可以包含在与其键值对相对应的单个单元格中？。
例如：
键值\列表，of，可接受，值，in，下拉列表
我想我可以编写一个宏来使用VBA字符串比较手动地检查和验证输入的文本与接受的值列表，但是这似乎很乏味，并且失去了下拉菜单功能。
浏览 4提问于2020-03-12得票数 0
3回答
我想要求和一系列的值，不包括同一行中的另一个单元格包含指定值的单元格。
我需要使用VBA在Excel中执行以下实现。
我在下面的示例中报告了以下数据：
我需要一天的总和，不包括“测试”所需的天数。
我知道offSet做了一些类似的事情，但是“测试”可以随机插入到任何字段，因此，我需要一个动态计算。
所需输出为16。
浏览 1提问于2018-11-05得票数 1
1回答
我有一个相当简单的问题。我只是想不出该怎么做。
我在Excel中有如下所示的一系列单元格：
Row ColA
1 B001
2 B002
3 B003
4 B004
5 B005
我需要知道如何在VBA中分割这些单元，以便它们现在是这样的：
ColB ColC
1 B 001
2 B 002
3 B 003
4 B 004
5 B 005
我知道您在VBA中使用拆分命令，但我很难知道如何填充其余的命令。有人能帮忙吗？
这是一张图片，可以帮助描述我在Excel中有什么/需要什么
浏览 1提问于2022-03-07得票数 1
回答已采纳
1回答
我有一个Excel电子表格，它使用大约1200行和5列。A列包含颜色的名称。B、C和D列包含这些颜色的红色、绿色和蓝色值。E列是空的，但我希望E列中的每个单元格都用RGB值与该行中B、C和D列中的颜色相同的颜色着色。
我几乎没有使用VBA的经验，在我的搜索中没有找到任何解决方案。
浏览 5提问于2015-03-03得票数 0
回答已采纳
我需要通过vb在Excel中为列中的交替单元格着色，基本要求是如果B1值被选择为4/6/8/10/12，则生成(完成)一个表格，然后使用特定模式的单元格进行着色。我手动为其中的几个单元格着色，但要求是在B列中为B67:B323中的交替单元格着色。
浏览 9提问于2016-08-11得票数 0
我有一个Excel文件，我和我的团队使用它来收集来自GP的关于我们应用程序的评论。事情是这样的，我想通过使用VBA代码添加一些按钮来改进这个excel，以自动执行一些每周的任务，如清除工作表的全部内容，并使其成为一个新的一周。我需要知道如何引用一系列单元格:范围的开始总是相同的单元格，但结束单元格每天都在变化。结束单元格下面的单元格始终是相同的值。我如何定义从A1开始范围，比方说，到这个常量以上的单元格(今天是C3，明天可能是C6？
浏览 1提问于2019-01-29得票数 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
回答已采纳
2回答
我试图用范围内值最高的单元格重新着色，但是无论我使用什么方法，似乎总是有一个组合不起作用。我不习惯VBA。我最后一次尝试的是：
Sub HLF()
Dim HLF As Range
Set HLF = WorksheetsFunction.Max(Range("H2:H7"))
Range("HLF").Interior.Color = RGB(0,255,0)
End Sub
似乎'Set‘和'Max’函数不一起使用。我的基本编程逻辑是，正常的“范围”应该由一个找到范围的函数替换，但显然Excel不这么说。我也尝试通过选择单元格和使
浏览 4提问于2015-10-28得票数 0
回答已采纳
2回答
是否可以将值/名称赋给函数中的单元格？
谢谢
编辑
对不起，不清楚，这是我的要求。
我有一个用户定义的函数(=MyFunction())，它可以从excel表中调用。因此，我还拥有一个菜单按钮，当用户单击该按钮时，需要回忆对=MyFunction()的所有函数调用。
我的计划是在MyFunction()内部，为调用单元分配一个名称rerefence，并将其存储在vba中。这样我就可以有一系列的单元格名了。然后，当单击菜单按钮时，我可以回忆这些单元格引用。
请帮助我实现这一目标。有什么更好的方法来保存单元格引用吗？
浏览 0提问于2010-02-20得票数 2
我有一系列包含文本的单元格，一个重复的单元格('MYTITLE')：
MYFIXTITLE
foo1
bar1
MYFIXTITLE
foo2
bar2
MYFIXTITLE
foo3
bar3
并希望将其转换为2列数组，如下所示：
first column : MYFIXTITLE for all cells
second column : foo(y) \n bar(y)
(y)是该数组的行号，\n是新行。
您知道如何在非VBA-Excel中执行此操作吗？谢谢
浏览 6提问于2016-09-14得票数 1
我有一个问题，在excel的一段VBA，并正在寻求帮助。
我需要一段代码才能通过一系列数据自动在excel中填充公式，该系列的长度将有所不同，将占据C:I列。
我已经用了一段时间没有问题的代码了：
Sub Auto_Fill_Formula()
Sheets("Sheet1").Select
Dim LstRow As Long
With Sheets("Sheet1")
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A2:A" & LastRow).
浏览 0提问于2018-04-10得票数 1
回答已采纳
1回答
我正在使用以下VBA宏用邮件发送Excel中的一系列单元格
ActiveSheet.Range("A2:Q133").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "demo"
.Item.To = "abc@abc.com"
.Item.Subject = "Testing mail"
.Item.Send
End With
我想修改代
浏览 7提问于2013-10-18得票数 3
0回答
在excel vba中，我向工作表添加了一个复选框，一旦选中此复选框，我就想将一系列数据从一个工作表移动到另一个工作表。我已经编写了在工作表之间移动数据的代码，但我只想知道如何将复选框被单击的日期(和时间)添加到正在移动的单元格范围中，谢谢
浏览 3提问于2016-07-13得票数 0
我正在导出一个报告，其中包括作业何时完成的结束时间，但该时间将以以下20130808191057格式导出(yyyymmddhhmmss)。
我尝试使用excel中的日期和时间自动格式化，但似乎没有。
我需要一个宏或VBA脚本，它需要一系列单元格，例如K4:K86，并格式化显示为20130808191057的时间，并将其格式化为19:10。
如果可能的话，我也希望能够在结束时添加我的首字母，以显示工作是经过双重检查的，所以最终的格式将是这样的: 19:10 IT
最终，我需要一系列的单元格K4:K86，其中的日期时间显示为20130808191057，格式为19:10 IT
谢谢。
浏览 4提问于2013-08-10得票数 1
回答已采纳
我有一个VBA函数，我想在Excel文件中使用它。
Excel文件是通过Matlab创建的，我想在一个Excel工作表的单元格中使用VBA函数。
我可以在Excel文件中手动创建一个VBA函数。但是，由于我是通过程序创建Excel文件，因此我想将VBA函数另存为文件，然后从Matlab中调用它。
有没有办法在Excel文件中使用VBA函数？
浏览 5提问于2012-03-04得票数 1
我一直试图复制和粘贴或使用.value的一系列单元格从excel到一个网页文本区域。我只能用一个手机。链接( )允许您复制和粘贴多个地址，并为您映射它。我似乎不能在excel vba中这样做。
VBA Excel宏尝试：
Sub BatchGeo2()
Dim IE As Object
Dim MyURL As String
Set IE = CreateObject("InternetExplorer.Application")
'create new instance of IE. use reference to return current open IE
浏览 1提问于2015-04-13得票数 0
回答已采纳
2回答
我有一个关于Excel2010VBA的问题。我不知道正确的英语Excel术语，因为我使用德文Excel版本。但我会尽我所能。很抱歉。
在VBA中，我设置一个单元格(列表选择)的数据验证。如果单元格已经设置了一个值，那么它仍然保留在单元格中，但是它可能无法完成数据验证。是否可以通过VBA执行刚刚设置的数据验证，如果validtaion没有完全填充，那么清除单元格中的值吗？
提前谢谢。
浏览 0提问于2013-09-18得票数 1
回答已采纳
我需要一个VBA代码的帮助，它基于手动着色的单元格。基本上，如果该单元格是绿色的，则另一个单元格表示“真”，如果没有着色，则"False“
谢谢！
浏览 5提问于2022-06-22得票数 -3
2回答
对于我的工作表，我编写了一个VBA代码来隐藏一些选定的列。隐藏这些列之后，我想标记一行并为其上色。在那之后，我想要取消隐藏列，这样我就可以回到我的原始工作表，但选择的行是全彩色的。
VBA工作得很好。我的问题是，当我选择一行(单击行号)并为其着色时，当我取消隐藏列时，隐藏在列中的那些行的单元格不会着色。
即使宏隐藏了一些单元格，是否有可能对整行进行着色？
谢谢
浏览 2提问于2018-05-29得票数 1
我想用模式突出显示Excel工作表上当前选中的行。(不是颜色，因为该行上的某些单元格可能已经着色了。)
我编写了以下VBA宏。当选择一个新的单元格时，它会重置整个工作表的颜色。
如果它清除了工作表上的整个模式(因为没有用模式格式化单元格)，就可以了，但是，即使我指定只清除模式(使用ActiveSheet.Cells.Interior.Pattern = xlPatternNone)，它也会清除颜色和边框。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'remove past colors
Ac
浏览 1提问于2017-07-14得票数 2
回答已采纳
3回答
我想在excel VBA中获取自动值，如果我在单元格中输入AOM字母，它将显示自动数据1。如果是BOM字母，它将显示2。如果是COM字母，它将显示3。
例如，AOM=1、BOM=2、COM=3
如何编写excel vba代码改变excel单元格中的自动值。
致以敬意，
浏览 2提问于2014-02-03得票数 0
我正在尝试构建一个循环，以复制和粘贴从一个excel工作表到另一个excel工作表的一系列单元格，就像在单元格A1中指定的那样。
Sub AnalogPointBuild()
Dim i As Integer
Dim y As Integer
'only copy the number of times as the count in cell A1 of worksheet "inputs"
Sheets("inputs&
浏览 1提问于2018-01-05得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
