Tag: 循环

Coupon syntahx在vba: 我正在编写一个循环，我想知道为什么我的macros不起作用。 macros观的想法是确定一个月的周数。在知道一个月的工作日的名字后，我可以在一周的时间内确定这个事件的发生次数。她是这样的： Dim dbNbSemaines As Double Dim strAbrevJourMois As String strAbrevJourMois = Range("E4").Value If strAbrevJourMois = "lun" Then Range("A404").FormulaR1C1 = "=COUNTIF(E4:AB4,""lun"")" dbNbSemaines = Range("A404").Value ElseIf strAbrevJourMois = "mar" Then Range("A404").FormulaR1C1 = "=COUNTIF(E4:AB4,""mar"")" dbNbSemaines = Range("A404").Value ElseIf strAbrevJourMois = "mer" Then Range("A404").FormulaR1C1 = "=COUNTIF(E4:AB4,""mer"")" dbNbSemaines = Range("A404").Value ElseIf strAbrevJourMois = "jeu" Then Range("A404").FormulaR1C1 = […]

通过Excel工作簿中的所有工作表循环一个macros: 我正试图通过Excel工作簿中的所有工作表来运行macros。我有下面的代码，但它只循环通过第一个工作表。该macros一次又一次地在第一个工作表中运行，而不是像它应该进入下一个工作表。有人可以帮忙吗？以下是我的VBA代码。 Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. 'lRow = .Range("A" & .Rows.Count).End(xlUp).Row Range("P4").Select ActiveCell.FormulaR1C1 = […]

select范围并粘贴到每个第n列: 使用一些代码复制E列中的有效范围的单元格，然后将范围（从同一行开始）粘贴到第n列中。复制select部分工作正常，但我不能得到粘贴部分正确的语法。我试图设置单元格等于select，因为我不确定适当的语法来粘贴select的值。任何帮助/指导表示赞赏！这是我的代码： Sub Sco__copy() Dim cpval As Range Dim lastRow As Long With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, "E").End(xlUp).Row .Range("E163:E" & lastRow).Select Set cpval = Selection End With For colx = 12 To 1000 Step 7 Cells(lastRow, colx).Value = cpval Next End Sub

如何在Excel中使用variables来使用Vlookup中的For循环来标识单元格: 1）我的目标是以下一个：用“Monitorato”或“Non Monitorato”的条件语句replace单元格的内容。确定语句types的条件是Vlookup函数的输出。如果vlookup发现一个值我会有“Monitorato”，而如果这没有发生，我会有“非Monitorato”。 2）通过使用传统的Excel函数，解决了这个问题： =IF(ISNA(VLOOKUP(cell to look for, range, column, false)),"Non Monitorato","Monitorato") 然后，我将这个公式复制并粘贴到我编写初始公式之下的所有单元格中 3）但是我想用VBA来实现这个东西。而且还有一个额外的问题。数据实际上是过滤的，所以我只需要在过滤的数据上使用Vlookup函数。 Vlookup函数应该查找数据集中的第一个可见单元格。 4）我写的可怕的代码是下面的代码： Sub MyFunction() Dim i As Long Dim LastRow As Long Dim FirstRow As Long Dim Header As Range Set Header = Range("d1") FirstRow = Range(Header.Offset(1, 0), Header.End(xlDown)).SpecialCells(xlCellTypeVisible).Cells(1).Count LastRow = ActiveSheet.UsedRange.Rows.SpecialCells(xlCellTypeVisible).Count For i = FirstRow […]

在Excel表格中循环表格: 我试图以特定的方式遍历一组表格，但是我被卡住了。我的表是multiindex，看起来像这样： #read excel df = pd.read_excel(data_file, header=[0,1], index_col=[0,1]) T Gender Age Total Male Female 16-24 25-34 35-44 45-54 55-75 Q1. Are you? Yes 17.5 26.8 23.4 13.7 20.7 100 – 17.6 No 17.5 26.8 23.4 13.7 20.7 100 11.5 22.6 Don't know 17.5 26.8 23.4 13.7 20.7 100 – – Q2. Are you? Yes […]

复制粘贴工作表名称到另一个工作簿: 我很难做到这一点。当我启动macros时，它不会产生任何错误，但不会引起任何结果。 Sub EmpresasCubiertas() Dim x As Workbook Dim y As Workbook '## Open both workbooks first: Set x = Workbooks.Open("G:\Estudios\Biblioteca\Mercado Accionario Chileno\InsertarEmpresa.xlsm") Set y = Workbooks.Open("G:\Estudios\Biblioteca\Mercado Accionario Chileno\Procesamiento.xlsm") For i = 3 To x.Sheets.Count 'Now, paste to y worksheet: y.Sheets(1).Range(“A” & i) = x.Sheets(i).Name Next i End Sub 请注意，工作簿“y”是我首先打开运行macros的工作簿。即它已经开放，如果有任何帮助的话。

VBA使用SelectSingleNode循环XML节点: 我正在尝试使用循环更新.xml文件中的节点值。显示的oXMlFile.SelectSingleNode行正确地更新了单个节点，但我不知道如何修改代码，以便可以遍历所有节点并更新值。任何帮助，将不胜感激。 Set oXMLFile = CreateObject("Microsoft.XMLDOM") oXMLFile.Load (ConfigFile) 'Update Node Attributes Dim ii, TotChan As String ii = 0 TotCh = 500 Do While (ii < TotCh – 1) Set CalibrationDateTimeNode=oXMLFile.SelectSingleNode("/HConfig/Signal[0]/CalibrationDateTime") CalibrationDateTimeNode.Text = "2016-04-16" ii = ii + 1 Loop

userform.label上的VBA Excel循环: Iam通过代码创build我的标签和checkbox： i = 1 While Not Sheets("I_M_1_1PW").Cells(9 + i, 43) = "koniec" Set theLabel = UserForm1.Controls.Add("Forms.Label.1", labelCounter, True) With theLabel .Caption = Sheets("I_M_1_1PW").Cells(9 + i, 43) .Left = 10 .Width = 100 .Top = 13 * labelCounter Debug.Print labelCounter & " " & theLabel.Caption End With Set chkbox = UserForm1.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i) chkbox.Caption = […]

在Excelmacros中循环: 我正在尝试使用循环编写一个excelmacros，通过两列date，比较Excel中的date，如果date相同，则replace另一列中的某些值。这是我的excel代码，有人能告诉我什么是错的吗？我不断收到错误循环。 Sub automatic_replace_using_do_while_loop() Dim A As Integer, H As Integer A = 1 H = 1 Do While H < 1186 If Cells(A, 1).Value = Cells(H, 8).Value Then Cells(H, 6).Value = Cells(i, 11) H = H + 1 A = A + 1 Else H = H + 1 Loop End Sub 谢谢！

为什么在我select另一张纸后，在第三排停下来: 我正在通过删除和添加更多数据来testing我的编码，而当我意识到编码出现问题时。最初，我在“LEAVE”部分下开始了3人的编码。所以我试图删除这个部分的人，编码仍然有效。当时我在那个部分增加了一个人，然后我意识到我的编码不起作用。当我将数据从3人改为4人时，仍停在第三人。它没有继续循环检测第四人。我testing并意识到，当我开始的时候 Sheets("Cash").Select 从此它不起作用。没有这个，循环仍然有效，它可以检测到第四人。 Do While Cells(ShiftRowName, 1) <> "" Set ShiftName = Sheets("Shift Roster").Cells(ShiftRowName, ShiftColName) If ShiftName = "" Or IsEmpty(ShiftName) Then Exit Do Else 'When the following coding was added, 'It stopped detecting at the 3rd person. Sheets("Cash").Select Range("C1").Select Cells.Find("Name").Activate r2 = ActiveCell.Row CashRowName = r2 + […]