我已经创建了下面的代码,用于从隐藏的工作表中复制包含数据验证和条件格式颜色的数据模板行,并将其插入到特定行中。
问题是除了条件格式之外,所有的下拉式单元格都是白色的?
Sub Newstaff()
ThisWorkbook.Sheets("Code").Rows(4).Copy
ThisWorkbook.Sheets("PO1's").Range("A7").End(xlDown).Offset(-1, 0).EntireRow.Insert
End Sub
如何更改它,以便在插入新行时包含来自每个条件的颜色?
我正在尝试设置一个Google Sheets电子表格,当编辑特定的单元格时,右侧单元格中的日期会更新,以指示已进行了更改。在Google Sheets论坛上,有人把我带到这里来寻求最好的指导。
脚本本身工作得很好。我需要在脚本中添加什么才能将其应用于特定的单元格/行?
下面是我现在的脚本:
function onEdit() {
var s = SpreadsheetApp.getActiveSheet();
var r = s.getActiveCell();
if( r.getColumn() != 3 ) { //checks the column
var row =
我有一个表(Sales)和一个表(Table1),如下所示。
我尝试每隔三行设置一次特定的背景颜色,但没有值的单元格除外。背景颜色基于品牌名称(在第2栏中)。每个品牌的颜色是从另一张(颜色)中指定的,如下所示:
代码如下:
Sub Color()
Set DataCells = Sheets("Sales").Range("Table1[Brand]")
Set ColorValueCells = Sheets("Colors").Range("Colors[Brand]")
For
我有一个宏,它每隔一行都有阴影。当我运行潜艇两次,尽管它遮住了每一行。我尝试的新代码继续删除"B“列的阴影,然后在其余的列中对每一行进行阴影。
Sub ShadeEveryOtherRow()
Dim LastRow As Long
Dim Wa As Worksheet
Dim a As Integer
Set Wa = ThisWorkbook.Sheets("Analysis")
With Wa
For a = 2 To 15
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
我是这里的新手,也是VBA的新手。
我有两个工作表,我想比较一下。
比方说,
Sheet1
DWG栏不是
列SYM
Sheet2
DWG栏不是
列SYM
但是,在sheet2中,DWG和SYM的列位置并不总是相同的,所以在进行比较之前,首先需要定位列的位置。然后突出比较。
还请注意,工作表有数千行数据和多列。但是只需要比较两列。
这是工作代码:
Sub LookForMatches()
Dim rng1 As Range, rng2 As Range, c1 As Range, c2 As Range
Dim rn
我试图使用VBA在类似的范围内进行条件格式化。我确信我的代码中的错误与优先级有关,但我不知道它是什么。我正试图格式化本质上相同的一组细胞。如果CI列包含文本“领带材料”,那么在下面的CU:DD列中,它应该将单元格格式化为该特定行的白色。如果该列不包含文本字符串,且该值已从其原始值更改,则应将单元格更改为红色。
下面是我把它变成白色的代码:
Private Sub white_format()
'This section adds the formatting condition of white cells to the cells that are changed by t
我是VBA的新手,我想(1)复制一个模板,(2)把它放在指定的工作表之前,以及(3)修改它的颜色。
(1)和(2)已经很好了,但我在修改颜色(这是代码的最后3行)方面有问题,我可以请你帮忙看一下吗..?提前感谢您的帮助,非常感谢!
亚Add_ITS()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim wt As Worksheet: Set wt = wb.Sheets("Data Input-ITS template")
Dim ws As Worksheet: Set ws = wb.Sheets("ITSEnd"