Tag: 循环

如何在循环中定义“设置”variables？: 我是新来的，事先道歉。此代码在一张表中search列中的特定值，存储find的值的行引用，然后使用它将input值复制到电子表格中，然后将输出值复制到摘要中。它的工作原理…但有没有办法设置“设置”variables循环？ Dim i As Long Dim wb As Workbook Dim sht1 As Worksheet Dim sht2 As Worksheet Dim RNG(1 To 8) As Range Dim MyVal As Variant 'Set value of rows to work down MyVal = InputBox("To what row to calculate", "Enter a row number", 36) If MyVal > 52 Then MsgBox ("You […]

VBA循环错误: 我在Excel中编写VBA相对比较新。在Excel工作表中，我在多个列中有单行的事件。这些事件只是由它们的颜色来表示（除了它们是空白单元格）。想象一下，将单元格A1到G1着色为红色，H1到V1着色为蓝色。我正在尝试编写一个小程序，告诉我单元格何时改变颜色。用我目前的代码，在下面的文本中，Excel停止响应，并且popup错误代码“运行时错误”-2147417848（80010108）。我不确定问题出在哪里。 Sub colorReader() Set a = ActiveCell Range("C8").Select Dim cellColor As String cellColor = ActiveCell.Interior.Color MsgBox (cellColor) Do While cellColor = "13408767" a = ActiveCell.Offset(, 1) If cellColor <> "13408767" Then MsgBox ("end color") End If Loop End Sub

Excel VBA如何在工作表上编辑每个带有公式的单元格: 我很新的Excel VBA，所以请原谅，如果这个问题很简单:)我花了半天试图谷歌一些简单而优雅的方式来解决我的小问题，但还没有成功。问题是：我需要通过公式在表单中的每个单元格，并以某种方式更改公式（无所谓）。那么，最有效的方法是什么？到现在为止，我写了一些与UsedRange一起工作的代码行，但是他们的工作不正确，因为我还没有弄清楚如何识别Used Range中的第一个单元提前谢谢了问候，PG

循环遍历列中的每个单元格，将每个单元格与列表进行比较，然后将相关的描述input到相邻的单元格中: 目标：遍历一列数字/代码，并将这些代码与它们的描述（在一个列表中）进行匹配，并在下一列中填充与相关描述相关的单元格。例如：A2 = 123456，A3 = 885467，A4 = 954789等…读入第一个单元格A2（123456）。在列表中find123456（123456 = Finance），在B2中放置“Finance”。阅读885467（A3）。在列表中find（885467 = Marketing），在B3中放置“Marketing”…等等。我最近解决这个问题是： Sub JobCodeDescription() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets 'There are 3 worksheets in this Workbook. 'Job Code 'Location Code 'Entity Code 'Dim x As Number Dim f As Range For Each f In ActiveSheet.UsedRange.Columns("F").Cells If f […]

在MATLAB中定位大单元arrays中的多个零值: 我在编写MATLAB代码时遇到了一些麻烦，这些代码需要定位我的一个单元格数组vel_data的每个单元格的vel_data ，这是一个1×430单元格，包含多个由M行x 1列组成的数据的excel表单。我想提取最大值，以及该最大值之前和之后的每个值，直到第一个0到达一个新的单元arrays。例如，如果数组中的第一个单元格是[3 2 1 0 2 6 4 3 0 1 0]那么它将提取值[0 2 6 4 3 0] ，并为数组中的每个单元格执行此操作。我知道以下提取的单元格arrays的最大值，但我希望它能做到我上面提到的。 d=dir(f); for n=1:numel(d) max_vel{n} = deal(max(vel_data{n})); end 任何build议/示例代码将非常感激。

保存一个大单元arrays作为单独的input文件MATLAB: 我有两个单元格arrays一个命名文件名，这是一个1x430arrays包含一个文件名string，例如第一个和第二个单元格是“一月一日2016”，“一月二十六号”…几个Excel数据表。第二个单元格数组max_vel是一个1×430数组，其中包含与这些date分别对应的双精度数据，例如，max_vel中的第一个单元格包含2016年1月1日起的数据。是否可以编写一个代码来保存单元格数组max_vel的每个单元格，使其对应于与单元格数组文件名相关联的名称作为input文件？我期望的输出是1×430单元arrays中的每一个double_max_vel都被保存为一个单独的input文件及其关联的文件名。例如max_vel {1,1}保存为2016年1月1日.inp，max_vel {1,2}保存为2016年1月2日.inp等。谢谢！

如何解决“编译错误：下一个没有for”在VBA中的错误？: 所以我对VBA编程或一般的编程都是很新的。我正在收到“编译错误：下一步没有”。我相信我为了三分而给三分，但我还是不知道。以下是我正在处理的代码…. Sub width2（）'自动分配系列宽度 For Series = 1 To 24 'chart series, 144 combinations For i = 0 To 1 For j = 0 To 11 ActiveSheet.ChartObjects("Chart 4").Activate ActiveChart.FullSeriesCollection(Series).Select With Selection.Format.Line .Visible = msoTrue .Weight = Sheet5.Range("Q9").Offset((9 * i) + 6, (3 * j)).Value Next j Next i Next Series End Sub 不知道错误在哪里。 […]

个人macros不在不同的工作簿中循环: 我的问题是通过工作簿中的几个工作表循环。我需要将macros保存在我的个人工作簿中，但是如果我这样做，它将循环通过相同的工作表，直到达到工作表数量。如果我将代码移动到当前的工作簿，它运作得非常好。我已经研究了编写macros将个人工作簿中的模块复制到当前工作簿，但是对于其他用户，此模块将简单地保存在仅在后台打开的另一个工作簿中以运行该模块。如何获取此代码以循环其他工作簿中的所有工作表，代码保存到我的个人工作簿中的模块中，还是保存在另一个在后台打开的工作簿中？代码如下： Sub WorksheetLoop() ' Loop Through Worksheets, Add Totals Dim LastRow As Long Dim ws As Worksheet Dim starting_ws As Worksheet Set starting_ws = ActiveSheet ' Loop Sum Formula Through All Worksheets For Each ws In ThisWorkbook.Worksheets ws.Activate 'Now my code, the do something, (I have simplified this part since […]

当拖拽marque down列时阻止单元格引用迭代: 我有一个单元格B2000，里面有一个固定值，即5.25 。我通过函数=B2000+G5在单元格H5中引用该值。现在，我想突出显示单元格H5，然后向下拖动该标记，以便对B2000的引用不会迭代，但对G5的引用将在该列上进行迭代。这可能吗？

VBA和Excel – 循环eecordset: 我需要在VBA中循环logging集来填充我的Excel表格。我想为每一行做这个。我现在得到的是： comm.CommandText = str_SQL rec.Open comm Sheets("mySheet").Range("A4").CopyFromRecordset rec 这工作。但是当我rec里的索引change为X时，我想改变单元格的颜色。这是可怕的吗？有人得到另一个解决scheme？