- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试调整我的宏,以便它在始终更改位置的特定列旁边创建一个列。在我下面的宏中,它只是左侧 6 列的绝对引用。然而,情况并非总是如此。我应该通过查找顶行中的列名称来设置它吗?
基本上,宏创建一个新列,如果重复,则放入 IF 语句,然后设置条件格式以突出显示所有“1”值。抱歉,如果我没有解释清楚!
Sub test()
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Range("L2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]=R[-1]C[-6],R[-1]C+1,1)"
Range("L2").Select
Selection.Copy
Range("K2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
最佳答案
我有一个可用的代码,但它要求您的数据位于表中。这是动态操作和引用数据(列、行等)的最佳方式
我也严重依赖 ListObject 方法。它确实可以很好地处理表格。
Public Sub InsertColumn(Optional columnName As String, Optional BeforeORAfter As String)
Dim loTableName As ListObject
Dim loColumn As ListColumn
Dim newColDest As Long
'Handles user input if they desire the column inserted before or after
Select Case UCase(BeforeORAfter)
Case Is = "BEFORE"
newColDest = 0 'Inserts column and moves reference column right
Case Else
newColDest = 1 'Inserts column to the right of reference column
End Select
'Ensures the user selects a reference column name
Select Case columnName
Case Is = ""
columnName = InputBox("Enter column name to be referenced.", "Enter Column Name")
Case Else
End Select
'Sets the ListObject as the table.
Set loTableName = Range("TableName").ListObject
With loTableName
On Error GoTo InsertError 'Exits sub in case the column couldn't be found
.ListColumns.Add (.ListColumns(columnName).Index + newColDest)
End With
Exit Sub
InsertError:
'Most likely error is user typed the column header incorrectly.
MsgBox "Error creating column. Ensure a correct reference column was chosen", vbExclamation + vbOKOnly, "Insert Error"
End Sub
如有任何疑问或问题,请告诉我。
关于VBA宏: Formula is Based on a Column that changes locations,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22103539/
我正在尝试使用神经网络进行预测。 创建一些X: x f y ~ x1 + x2 ## fit model using `f` model model Call: neuralnet(formula
我要字段idEmpresa使用 idDepartamento 成为@Formula 字段(这是另一个@Formula 字段)在 WHERE陈述。 @Entity public class CfgUsu
我正在使用Google Apps脚本从概念数据库中查询数据,并在我的Google日历中创建日历事件。。我遇到了一些奇怪的行为,我搞不懂。。我的概念数据库为每个事件都有一个条目。每个事件都有开始和结束日
例如:将公式左侧的7个单元格相加。。值得注意的是,当在其左侧或范围内的某个位置插入新列时,该公式应该起作用。不扩展范围,不跳过新插入的列。
例如:将公式左侧的7个单元格相加。。值得注意的是,当在其左侧或范围内的某个位置插入新列时,该公式应该起作用。不扩展范围,不跳过新插入的列。
例如:将公式左侧的7个单元格相加。。值得注意的是,当在其左侧或范围内的某个位置插入新列时,该公式应该起作用。不扩展范围,不跳过新插入的列。
示例:对公式左侧的7个单元格求和。。值得注意的是,当在其左侧或范围内的某个位置插入新列时,该公式应该起作用。不扩展范围,不跳过新插入的列。
我需要帮助才能在 MS Excel 工作表中执行以下功能。工作表示例如下 A B C D E 1
好的, 我有一个射弹,其位置定义如下: a.x = initialX + initialDX * time; a.y = initialY + initialDY * time + 0.5 * gra
我正在尝试根据另一个点的经度计算一个点的经度。它们具有相同的纬度,并且它们之间的距离是已知的。我尝试使用余弦的特殊定律公式。 # 'lat' short for 'latitude', 'lng' s
我使用haversine公式来计算点之间的距离。这个公式的结果是米还是公里? http://en.wikipedia.org/wiki/Haversine_formula 任何人都可以帮助我吗?
取消使用鱼眼镜头或广角镜头制作的照片的最简单方法是什么?我正在寻找一个参数很少的像素投影公式。相机和镜头参数将不可知,因此用户必须直观地更改参数。谢谢 最佳答案 有好纸here这为镜头畸变提供了一些看
当使用来自 Formula package 的 Formula() 或 as.Formula() 时,我收到一条警告消息。它似乎不会影响功能,但我无法理解它的来源。 我正在使用 Formula 包更新
我正在使用这个公式来显示本月剩余的天数。是否可以在工作日内执行此操作? =EOMONTH(TODAY(),0)-TODAY() 最佳答案 分析工具包还提供函数 NETWORKDAYS 来查找两个日期之
我正在向字段添加公式: @Formula(value = "(select count(*) from approvalGroup as a where a.isAccounting=true)")
我想根据标准在下面的 C 列中使用 IF 公式发表评论: A B C 10 56% Leader 20 10% Laggard 55 45% Mover 90 90% Cashco
有没有更优雅(更简单)的方式将变量放入.formula?我不想使用 .formulaR1C1 我有这个代码: Range("C8").Select Selection.End(xlDown).Sele
我在 excel 中解析字符串,我需要通过最后一个数字返回所有内容。例如: Input: A00XX Output: A00 在我的情况下,我知道最后一个数字将在索引 3 和 5 之间,所以我用暴力强
我有一个包含两张纸的 LibreOffice Calc 文件。表 2 只有一列 A 有很多数字。在工作表 1 中,每行的 A 列也包含一个数字。我想从工作表 1 中删除所有在 A 列中具有值的行,这些
Excel的范围下拉(或拖拽)操作的公式是什么? 输入2,5,7,9然后向下拖动,显示11.5 13.8 16.1 18.4 ....步骤2.3 输入5,10,20然后向下拖动,显示26.66667
我是一名优秀的程序员,十分优秀!