Tag: 循环

在dataframe名称变化的循环中操作dataframe

我有六个dataframe,z1,z2,… z6。 (从一个excel文件的六张不同的表中读取)。 我需要对这些数据框进行子集化并build立一些模型。 每个过程都是相同的。 我希望能在循环中做到这一点,但无法find正确的语法。 (我试图使用粘贴和分配function,但它没有帮助)。 比如我想要 for (i in 1:6){ Z=subset(Zi,Zi$var1==1) } Zi应该是已经定义好的Z1,Z2,Z3。 我可以在每次迭代中通过粘贴function生成一个variablesZ1,Z2 temp = paste('Z',i,sep ='')但是我不能在上面的代码中使用'temp'代替Zi。 有关于类似问题的其他线程的讨论,但我无法find任何直接相关的问题。 如果我失去了一些东西,请将我指向正确的线索。

IF,Else,ElseIF在一定的date内循环

我想设置下面的条件,但我只能得到2条件完成 三个条件是不足七天的一个数值乘以一个数值,两个数据之间的范围乘以一个数值,超过30天乘以另一个数值。 无法让所有人都能工作 不知道出了什么问题 ' To create the following condition 'If less than 7 days interest = 0% ' if 8 to 30 days interest = 7% 'if more than 31 days interest = 9% Sub Workbook_Open() For i = 1 To 3 'Rows.Count xdate = Cells(i, 1) nulldate = DateAdd("d", -7, Date) irate7late = […]

循环一个文本文件和一个Excel文件

我想查看一个文件中是否包含(不等于)Excel文件中的列。 data = pd.read_excel('C:/Users…/excel.xlsx', sep='\t') f=open("list.txt", "r+") for line in f: line = line.rstrip() for vh in data["Column_of_interest"]: vh = vh.rstrip() match = line in vh print (match) break 结果应该是全部“真实的”,但它只给了我第一个“真”的。

PHP到Excel:用循环填充输出的Excel文件

我想创build一个Excel文件(使用PhpExcel),并填写一个MySQL查询的内容。 我只有一列,所以结果如下所示: $sheet->setCellValueByColumnAndRow(0, $i, $content) 所以我必须在我的查询中循环,并创build一个计数器来填充对应于我的内容的列ptlum的每个项目的每一行。 所以目标是得到以下结果: 1 AX001 2 AX003 3 AX012 代码是这样的: $column = 1; while($data = mysql_fetch_assoc($result)) { $workbook = new PHPExcel; $sheet = $workbook->getActiveSheet(); $sheet->setCellValueByColumnAndRow(0, $column, $data['ptlum']); //echo($column. " " . $data['ptlum']. " "); $column = $column + 1; //or $column++; 问题是,我的Excel文件是空的。如果我把一个数字而不是$列在setCellValueByColumnAndRow线它的工作原理。 但variables不起作用。另一方面,如果我把“$列= 1;” 在循环内,我的Excel文件将总是只包含一行。 你有想法吗? 非常感谢你 !

创build如果下一个循环与多个variables(工作代码)

我有一张表,我用它来dynamic调整图表。 为此,我使用下面的代码,按照预期工作,但是由于我是VBA新手,所以在创build循环时遇到困难,因此我不必列出每个系列/类别。 总共有8个系列和17个类别。 – 系列filter(真/假)列在“ B27:B34 ”中, – 类别filter在“ C25:S25 ”中列出, 所有的工作表(3)。 有人可以帮我弄这个吗 ? 我的代码(缩写): Sub UpdateChart() Dim varSeries1 As String Dim varSeries2 As String Dim varSeries3 As String ' … Dim varCategory1 As String Dim varCategory2 As String Dim varCategory3 As String ' … varSeries1 = Worksheets(3).Cells(27, 1).Value varSeries2 = Worksheets(3).Cells(28, 1).Value varSeries3 = […]

在Excel中使用Powershell查找某个名称(使用循环或不使用循环)

我无法在Excel中使用Powershell在Excel(行)列表中运行循环。 我正在尝试扫描某个名称,使用$ var在Excel中进行search。 你能帮我解决这个问题吗? 谢谢。 $var="410043" $objExcel = New-Object -ComObject Excel.Application $objExcel.Visible= $False $WorkBook = $objExcel.Workbooks.Open("C:\Users\step.k\Desktop\Copy of TEST24.xlsx") #$WorkBook.sheets | Select-Object -Property Name $Workbook.Worksheets.Item("sheet1").Activate() $Range = $Workbook.Range("B1: B14492").EntireRow $Search = $Range.find($var) $var

VBA:退出时如果

好吧,可能是一个简单的,但我只是开始使用这种语言,在这段代码: While DATA.Cells(1, i).value & "" <> "" If InStr(DATA.Cells(1, i).value, columnName) > 0 Then column = i Exit While End If i = i + 1 Wend 它看起来不是使用Exit While的方式? 我应该怎么做呢?

VBA – Excel + Word集成 – 没有理由的代码循环

我正在创build一个Excel文档,其中包括将几个数据数组复制到一个Word文件中。 一切工作绝对正常,除了粘贴我感兴趣的select,它将无限粘贴,直到我介入通过任务pipe理器取下Word。 就我所知,没有理由让它循环。 所以我对接下来要做的事情一无所知,而且我希望你们能够清楚我做错了什么。 这个概念如下: Sub TestA() 'Word objects. Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdbmRange As Word.Range 'Excel objects. Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnReport As Range 'Opening app and document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open("C:\Users\RCO1\Desktop\Teste VBA\2. Conceptual Testing\Export\XLWDTST.docx") Set wdbmRange = wdDoc.Bookmarks("TableInsertion").Range […]

在VBA中的多个Excel工作表上构build2轴图表

在Excel中使用VBA我试图遍历所有的工作表,并绘制每张工作表的相同位置的数据。 这将使用10列中的4列build立一个双轴图。 下面的代码成功地循环和绘制,但是只有第一张和最后一张被正确构build。 其他表格绘制所有10列,而不是只是所需的设置。 Sub plotLoop() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets Current.Select Current.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatter ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = Sheets(Current.Name).Range("$A$17:$A$350") ActiveChart.SeriesCollection(1).Values = Sheets(Current.Name).Range("$B$17:$B$350") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(2).XValues = Sheets(Current.Name).Range("$I$17:$I$350") ActiveChart.SeriesCollection(2).Values = Sheets(Current.Name).Range("$J$17:$J$350") ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).AxisGroup […]

Excelmacros:双循环添加两个单元toegther

背景:我正在尝试改进我用于清单的Excel电子表格。 我需要添加两个单元格,并将结果放回到第一个(原始单元格)。 这里是Excel工作表的截图 我创build了一个双循环遍历所有单元格并将它们添加在一起。 我遇到的地方是如何实际将两个单元格加在一起。 这是我的代码… Private Sub CommandButton1_Click() Dim i As Integer, p As Integer, r As Integer, v As Integer ' i is for the column in Inventory ' p is for the column in Pending ' r is for the current row ' v is the holding variable for the Sum of […]