Tag: 循环

Excel VBA：复制/粘贴循环

我在这个留言板上进行了广泛的search，并没有find可行的答案来解决我的问题。 我是VBA的初学者，但是尽了我的努力。 背景：我有一个数据块，从外部来源更新（彭博，对于这个问题不重要）。 我想通过一个驱动数据更新的input（公司的股票代码）循环，然后粘贴数据块作为硬编码输出。 UNIQUE WRINKLE：我不想覆盖每个更新的数据。 我想把它粘贴在我的纸上。 问题：我的VBA代码更新input，但是然后将每个更新的数据块粘贴在我的工作表的相同位置。 这是我的代码。 谢谢您的帮助！ 更新：我仍然处于僵局与macros的粘贴function，但已成功地将其重写为embedded式子程序，以避免其他提到的循环错误。 我只在这里粘贴粘贴子进行故障排除。 请参阅ProcessData子文件： 新macros（部分）： Sub CheckRequestingData() ' Check if data has refreshed, if not, continue to wait Dim c As Range For Each c In Selection.Cells If c.Value = "#N/A Requesting Data…" Then Call Wait Exit Sub End If Next c Call ProcessData End Sub […]

VBA循环使用另一张表中的数据更新图表系列

在工作表（“成本”）中，下面的代码中有一个错误。 一旦错误得到解决，我打算把一个'c（x）'计数器循环通过每个图表 运行时错误'1004'：对象'_Worksheet'的方法'范围'失败 我认为这个错误与我如何引用其他工作表有关 Dim p As Worksheet, cost As Worksheet Set cost = Workbooks("dashboard.xlsm").Worksheets("Cost") Set p = Workbooks("dashboard.xlsm").Worksheets("p") Dim c(1 To 3) As Variant p.Activate '[c(x)] denotes ranges for each chart object 'modified by counter [i], denoting ranges for each series Set c(1) = p.Range(Cells(3, 1 + i), Cells(3, 1 + i).End(xlDown)) Set c(2) […]

更高效的方法来复制VBA / Excel函数

所有的晚上， 我在处理一些代码时遇到了一些麻烦，并且想知道是否有人能够帮助我。 我有一个Excel工作表，我需要使用Vlookup自动添加框大小，然后locking单元格，除非select了“其他”，并在公式删除后replace。 一切正在完美地编写每行代码分开。 不过，我需要运行这700多行，我不写这700次，因为这是荒谬的。 我已经尝试过各种循环来解决这个问题，但是我被卡住了。 有人可以告诉我如何有效地运行这个x行的数量？ 所以这对第11行是完美的，当写入x次的时候它适用于多行。 当解决scheme出现时，我可能会踢自己，这太令人沮丧了。 Private Sub lock_repair(ByVal Target As Range) 'Box 1 ActiveSheet.Unprotect Password:="pass" If Target.Cells(1).Address = "$C$11" And Target.Cells(1).Value <> "OTHER" Then Range("D11").Formula = "=IFERROR(VLOOKUP(C11, Data!$D$5:$G$24, 2,FALSE),0)" Range("E11").Formula = "=IFERROR(VLOOKUP(C11, Data!$D$5:$G$24, 3,FALSE),0)" Range("F11").Formula = "=IFERROR(VLOOKUP(C11, Data!$D$5:$G$24, 4,FALSE),0)" ActiveSheet.Range("D11:F11").Locked = True ElseIf Target.Cells(1).Address = "$C$11" And Target.Cells(1).Value = "OTHER" Then […]

如何在Excel中的多个工作簿的相同单元格中selectvariables

我正在进行一个为期8周的实验，由大约100个科目组成。 每个星期都有我想要select的variables，但每个主题都有他自己的工作簿。 有没有一种方法可以将variables（每个工作簿中的单元格）都放入一个工作簿中？ 或者我可以用macros来做到这一点？

用stata循环填充输出向量

当你在Stata中取一个variables的百分数时，例如。 *set directory cd"C:\Etc\Etc Etc\" *open data file use "dataset.dta",clear *get centiles centile var1, centile(1,5(5)95,99) 有什么方法来logging产生的百分表performance出色？ 百分位值存储在r（c_＃）中，其中＃表示您希望数据的百分位数。 但是我需要一个在所有百分位数上的值的向量，或多或less出现在输出窗口中。 我试图使用foreach循环来获得百分比到一个向量，如下所示： *Create column of centiles foreach i in r(centiles) { xx[1,`i']=r(c_`i') } 没有成功。 谢谢 编辑： 我已经发现这个工作： matrix X = 0,0 forvalues i=1/21 { matrix X = `i',round(r(c_`i'),.001)\ X } 唯一的不便之处是1）输出中必须包含0,0的第一行，然后我将随后删除。 2）在这种情况下，我有21个百分点，但是如果我想改变这个百分数，自动化百分数会很好，例如： forvalues i=1/r(n_cent) { matrix X = […]

select案例循环

我基于我在这里find的另一个问题build模Select Case循环（链接： Excel VBA Select Case Loop Sub ）。 为了使它适用，我必须做的改变非常小，而且我也没有看到我出错的地方。 这是我的代码： Private Function getColor(ByVal MatVal As Range) As Integer Select Case MatVal Case 0 To 1 getColor = 9: Exit Function Case 1.01 To 3 getColor = 46: Exit Function Case 3.01 To 5 getColor = 27: Exit Function Case 5.01 To 10 getColor = […]

擅长VBA：从电子表格到date/时间的date操作

我正在尝试编写一个插入重复行的macros（与列中指定的行数一样多），同时为每个重复项提前更改date。 就像是 BEFORE AFTER 20/01/2013 2 20/01/2013 2 28/02/2013 0 21/01/2013 2 15/03/2013 1 22/01/2013 2 28/02/2013 0 15/03/2013 1 16/03/2013 1 重复的部分工作得很好，但是date的改变让我很头疼。 我试着用 Cells(x,y).Value = Cells(x,y).Value + 1 但是不能和date一起工作 Dateadd还没有带我到任何地方…这里的代码…谢谢任何人谁将帮助我 Sub Macro2() ' ' Macro2 Macro ' ola ' Dim i As Integer Dim x As Integer Dim y As Integer Dim k As […]

在公式vba中迭代循环

我试图从行3开始总结一个可变范围的数据。sortedRow是数据结尾的行号。 lColumn是用作数字的最后一列。 我试图总结第1行H列的数据。 我需要公式计算列G的总和，然后迭代当前迭代引用的列（这将是列h至x） 我已经采取了斯科特·克莱纳的build议，并编辑我的代码 Dim lColumn As Long lColumn = ActiveSheet.Cells(3, Columns.Count).End(xlToLeft).Column sortedRow = Cells(Rows.Count, "D").End(xlUp).Row Dim i As Integer 'iterated column sum cell For i = 8 To lColumn Cells(1, i).Value =Application.WorksheetFunction.SumIfs(Range(Cells(3,7), Cells(sortedRow, 7)), Range(Cells(3, i), Cells(sortedRow, i)), 1) Next i 虽然单元格没有被更新。 这感觉就像我错过了真正明显的实际应用号码的细胞。 我认为上面会做到这一点。 添加lColumn声明，因为与正在应用的公式添加sortedRow声明的问题。 基本上这个。 但具有可变的列长度和列数。 对于列H来说，卷列中存在“#VALUE”并不重要。 所以我认为这对其他专栏没有任何影响。 任何帮助，将不胜感激！

连续循环刷新公式

我有一个使用= Files作为命名范围的工作表（所以我可以看到文件夹中的文件，然后我有一个MOVEbutton，可以将文件从一个文件夹移动到另一个文件夹当我点击命令button，我告诉它执行移动和 ActiveSheet.EnableCalculation = False ActiveSheet.EnableCalculation = True 哪个工作太棒了。 唯一的是只有当我点击移动button时才更新我的文件列表 无论如何有这个function在任何时候工作？ 没有点击一个button…..所以只要文件是打开的，它总是执行刷新。 理想情况下，我可以告诉它每X秒做一次……但这不是必要的。

Python / Pandas：循环访问数字列表

我正在尝试创build一个包含Pandas / Python和Excel文件的循环。 有问题的列被命名为“ITERATION”，它的数字范围从1到6.我试图在以下迭代范围中查询Excel文件中的点击次数： 1到2 3 4至6 我已经创build了一个名为“df”的预设数据框。 iteration_list = ["1,2", "3", "4,5,6"] i = 1 for k in iteration_list: table = df.query('STATUS == ["Sold", "Refunded"]') table["ITERATION"] = table["ITERATION"].apply(str) table = table.query('ITERATION == ["%s"]' % k) table = pd.pivot_table(table, columns=["Month"], values=["ID"], aggfunc=len) table.to_excel(writer, startrow = i) i = i + 3 上面的代码片段仅适用于数字“3”。 另外两种情况似乎不起作用，因为它直接searchstring“1,2”。 我试过其他的方法，比如： iteration_list […]