SJR
2019-07-03 23:29
最简单的方法可能是使用offset和一个计数器，该计数器在循环的每次迭代中都增加1。
如果要增加偏移量，则无论是否满足任一条件，都可以i在If之外增加。
Sub AutoTrack()
Dim rng As Range
Dim cell As Range
Dim i As Long
Set rng = Workbooks("Test").Worksheets("Track").Range("I2:I10")
For Each cell In rng
If cell.DisplayFormat.Interior.Color = RGB(146, 208, 80) Or cell.Offset(0, 1).DisplayFormat.Interior.Color = RGB(146, 208, 80) Then
Worksheets("Result").Range("D1").Offset(i) = WorksheetFunction.MRound(cell.Offset(, 1).Value + 0.125, 0.125)
Worksheets("Result").Range("C1").Offset(i) = WorksheetFunction.MRound(Worksheets("Result").Range("D1").Offset(i) - 0.75, 0.125)
i = i + 1
ElseIf cell.Offset(, 1).DisplayFormat.Interior.Color = RGB(255, 0, 0) Or cell.DisplayFormat.Interior.Color = RGB(255, 0, 0) Then
Worksheets("Result").Range("C1").Offset(i) = WorksheetFunction.MRound(cell - 0.125, 0.125)
Worksheets("Result").Range("D1").Offset(i) = WorksheetFunction.MRound(Worksheets("Result").Range("C1").Offset(i) + 0.75, 0.125)
i = i + 1
End If
Next cell
End Sub
热门帖子
相关问题
热门github
1
2
4
The Python Risk Identification Tool for generative AI (PyRIT) is an open access automation framework to empower security professionals and machine learning engineers to proactively find risks in their generative AI systems.
(翻译：用于生成式 AI 的 Python 风险识别工具 (PyRIT) 是一个开放式访问自动化框架，使安全专业人员和机器学习工程师能够主动发现其生成式 AI 系统中的风险。)
5
7
8
9
Mamba is a new state space model architecture showing promising performance on information-dense data such as language modeling, where previous subquadratic models fall short of Transformers. It is based on the line of progress on structured state space models, with an efficient hardware-aware design and implementation in the spirit of FlashAttention.
(翻译：Mamba 是一种新的状态空间模型架构，在信息密集型数据（例如语言建模）上显示出良好的性能，而之前的二次模型在 Transformers 方面存在不足。它基于结构化状态空间模型的进展，并本着FlashAttention的精神进行高效的硬件感知设计和实现。)
10
11
13
SJR，如果
"J2"and 语句"I2"的第一行中的IF和ELSEIF是静态的，则它们可以。但是第二行中的范围不是静态的，并且必须为每个循环递增，@GMalc-我刚刚修改了代码以删除所有静态引用，但是由于在此方面的问题尚不清楚，因此它可能不正确。不完全确定“每个循环必须递增”是什么意思？
SJR，只是指出您错过了`WorksheetFunction.MRound（Worksheets（“ Result”）。Range（“ C1”）'中的偏移量
好，谢谢，我想现在就在那里。
@ SJR-谢谢，当我在等号的右侧也添加了Offset（i）时起作用。