Tag: 计数器

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文件将总是只包含一行。你有想法吗？非常感谢你！

Excel计数器用于何时带有stream数据的单元格增加？: 我有一个单元，可以传输实时数据。我正在尝试向另一个单元添加一个计数器，以便每次单个stream数据单元更改时，计数器都会增加。（进来的数据只是增加，所以每次增加，计数器应该增加）。任何方式来做这个W / O的VBAmacros？否则VBA代码将有所帮助。谢谢

Excel VBA For循环和嵌套的IF语句的计数器: 我有一个单元格中的值应该匹配目录中文档的文件名。 Sheet3列A1 = C：\ Users \ Admin \ Desktop \ Folder1 Sheet3栏A2 = test.xls 'Location of directory sCurrentXLDirectory = Worksheets("Sheet3").Cells(1, 1).Value Set CurrentXLFSO = CreateObject("Scripting.FileSystemObject") ProceedNow = True Set CurrentXLFolder = CurrentXLFSO.GetFolder(sCurrentXLDirectory) Set CurrentXLFiles = CurrentXLFolder.Files 'Always 10 files in this folder If CurrentXLFiles.Count <> 10 Then MsgBox "Wrong Directory or Folder Mismatch" ProceedNow = […]

MS Excel：将公式中的计数器更改为Excel以外的其他计数器: 一个Excel公式看起来像这样 =", " &($C$1)+1 以下是我粘贴special – > forumulas时数据的外观 1 , 2 , 3 , 3 我希望它增加计数器中的最后一个数字+1。就像是 1 , 2 , 3 , 4 我当然可以修复许多“解决方法”，比如再增加1个列，然后在公式中使用它。在这里，Excel BY DEFAULT将在列C1上加强计数器 =", " &(C1)+1 并增加C1到C2 C3 ..Cn在一个“粘贴特殊”..无论你用$ C $ 1冻结它，但它是不够明智的，认为最后的+1作为计数器，并使用它。所以柜台保持不变，价值是一样的。如何告诉excel使用最后的+1作为计数器

如何在excel中为组创build一个计数器？: 每当发现Type = A（只有两种types：A和B）时，我真的很迷惑我如何创build一个每增加1的计数器。我想稍后用它作为一个分组variables，所以我可以总结每个事件的持续时间。我的电子表格只有列A，B和C，我需要一个公式D列（事件） ABCD DateTime Type Duration Event 23Nov1973 0700 A 1 24Nov1973 0700 A 1 1 25Nov1973 0700 A 1 1 25Nov1973 1800 B 26Nov1973 0700 B 26Nov1973 1300 A 0.25 2 26Nov1973 1800 B 27Nov1973 0700 B 27Nov1973 1300 B 27Nov1973 1800 A 0.208 3 28Nov1973 0700 A 0.541 3 28Nov1973 […]

开发一个计数器输出数据信息到一个特定的行和列的范围？: 我是一个初学Python的人，只有基本的基础知识。循环和模块。我有一些数据，我想通过导出为文本到特定的Microsoft Excel单元格自动化。具体来说，我有3个文件夹，每个文件夹中都有图像文件，共有10个图像文件。我的目标是创build一个打开excel的代码，并在列A的每个降序行中输出文件夹path的名称，并在列B的降序行中输出相应的图像文件名称。到目前为止，我已经定义了文件夹和path，并允许我的代码打开Excel并命名表单并放入标题。当我试图单独迭代每个文件夹/文件到一个新的单元格时遇到了我的问题。我尝试使用范围函数，但它不适用于string，我觉得像一个简单的计数器variables将工作，但同样，Excel列和行名称是string。这是我的代码到目前为止： import win32com.client import sys, os, string, arcpy data_folder = "F:\\School\\GEOG_390\\Week11\\data" xlApp = win32com.client.Dispatch("Excel.Application") xlApp.Visible = 1 xlApp.Workbooks.Add() print(xlApp.Worksheets("Sheet1").Name) xlApp.Worksheets("Sheet1").Range("A1").Value= "Data Files:" for root, folders, files, in os.walk(data_folder): for folder in folders: workspace = os.path.join(root, folder) print( "Processing" + " " + workspace) arcpy.env.workspace = workspace rasters […]

在循环内循环中使用计数器= excel vba中的问题: 嗨，感谢您的帮助。我在Excel中总是noob，但我一直在教我自己，因为我的研究需要我通过从youtube频道ExcelVbaIsFun中调整了这个基本代码 Sub ZipCodeSum2() Dim dbsheet As Worksheet Set dbsheet = ThisWorkbook.Sheets("Sheet1") lr = dbsheet.Cells(Rows.Count, 1).End(xlUp).Row SelRow = Selection.Row 'zip code zip = dbsheet.Cells(SelRow, 2) For i = 2 To lr 'change lr to 3 for testing purposes Cells(i, 3).Select For x = 2 To lr 'change lr to 10 for testing purposes If […]

在VBA中使用负循环编号: 我有一个for循环，在Excel VBA中使用i作为计数器。我有一个固执地给我错误的陈述： ActiveCell.FormulaR1C1 = "=VLookup(RC[-3],R3C7:R22C15,3)" & " & " & "R[-i]C" & " _ & " & "Vlookup(RC[-3],R3C7:R22C15,4)" 使用-i显然会导致错误。我尝试添加negi=-i ，然后将R[-i]C更改为R[negi]C ，但这并没有解决问题。我在前面的代码中添加了一个Dim negi作为Integer语句。编辑：这是更多的代码。我正在使用两个循环。 rownumber是外部循环的计数器，而我是内部循环的计数器。 i的取值范围是1到20，并且rownumber的范围为3列中的空白。 Range("A25").Select Dim Rownumber As Integer Dim i As Integer Dim negi As Integer Rownumber = 1 '开始外部循环Do While ActiveCell.Offset（0，3）<>“”'添加20行ActiveCell.Offset（1,0）.Select Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(19, 5)).Select Selection.Insert Shift:=xlDown ActiveCell.Offset(-1, […]

如何使用Excel Macro VBA在Excel工作表中查找一行？: 我现在的代码是： Set RecT = gConnect.Execute("SELECT [Volume] FROM [Output$] WHERE ((([Facilities])=""IDK"") AND (([Detail_1])=""BPL"" Or ([Detail_1])=""SI"")) ORDER BY [Detail_1];") Worksheets("Results").Cells(52, 4).CopyFromRecordset RecT 首先，使用Set Rect我在另一个工作表中查找我想要的值，然后将其复制到工作表“结果”（图片中的第52行）的第52行的第4列中。但是，不要给它确切的指标，我希望它find那个细胞。正如你在照片中看到的，我必须find列A = traitement，列B = IDK和列C = BPL的行。我Cells.Find了一下，发现我必须使用Cells.Find ，但我不明白该怎么做！