Tag: 循环
Java – Apache POI – 在这种模式下填充循环和单元格是不可能的？ （EXCEL）
最近我打开了这个话题： Java – Apache POI – 用循环填充行和单元格错误（Excel） 我制定了另外一个结构，希望能够解决问题，问题变得更加清晰。 考虑到这种模式： hashkey1 | hashkey2 | hashkey3 | hashkey4 value1-1 | value2-1 | value3-1 | value4-1 value1-2 | value2-2 | value3-2 | value4-2 value1-3 | value2-3 | value3-3 | value4-3 value1-4 | value2-4 | value3-4 | value4-4 value1-5 | value2-5 | value3-5 | value4-5 这是新的代码： Row keyRow = […]
EXCEL VBA：创build一个简单的循环来重复每一行的处理
我知道这似乎是一个非常简单的问题，但我尝试了不同的方法来创build一个循环，将做我在找什么：基本上我有一个Excel列表（4列）（未知的行数），我想input数据。 然后将这些数据镜像到第二张纸上，其中包含用于创build多个PDF文件的“打印devise”。 问题是：我尝试了4天，现在创build一个循环，并没有取得任何成就！ 如果你能帮助我，这是数据input： SCREENSHOT Public Sub InputData() Dim strCap As String strCap = Sheets("INPUT").Cells(4, 3).Value Label1.Caption = strCap Dim strCap2 As String strCap2 = Sheets("INPUT").Cells(4, 5).Value Label2.Caption = strCap2 If Sheets("INPUT").Cells(4, 4) = "OE" Then Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\OE_Logo.jpg") Else Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\SF_Logo.jpg") End If If Sheets("INPUT").Cells(4, 6) = "OE" Then […]
excel vba为每个循环嵌套
我正在研究excelmacros，并陷入了一个困境。 需要帮助，请解决它。 我必须在表单中查找2行，并且对于1行中的每个值，查找2行中的单元格值。 如果第2行中的值范围等于某个条件值，则从第2行中检出并将该标志设置为true。 为了实现这个，我使用了两个For Each循环： Sub Sendmail () For Each cell in Rows("5").Cells.SpecialCells(xlCellTypeConstant) If cells.Value Like "*@*" Then Subj = "Fill the Sheet" Recipient = cell.Offset(0,-3).Value EmailAddr = cell.Offset.Value For Each row In Sheet14.Range("O244:AK244").Cells If Not row = '8.00" Then found = False Else found = True End If Next row If found = […]
VBA：循环不工作，因为它应该
在这里新来的，我不知道我是否可以清楚地陈述我的问题，但我会尽力的。 我有这个VBA代码，从访问数据库中提取某些信息到与另一个Excel表格相关的Excel表格中。 而作为vba编码的新手，我不知道我使用的方法有多好或正确。 我的问题是，只有当'fam'等于'z'列中的值时，该循环才能工作。 因此，更详细地说，工作表“gbe …”中的D列包含B列中数字的前2个值，当我从键盘input一个存储在“fam”中的值时，代码是应该在整个列中search该值，然后继续从数据库中提取我所要求的数据，但是当fam <> z时循环不会停止。 我希望你能帮助我，我所了解到的关于vba的一切都是从这里开始的，但现在我用完了想法。 Sub Dateinitiale() Dim data As Date 'Dim codprodus, codrola As Variant Dim i, j, k, m, n, s, x, y, z2, z3 As Integer Dim z As Variant Dim olddb As Database, OldWs As Workspace Set OldWs = DBEngine.Workspaces(0) Set olddb = OldWs.OpenDatabase("C:\BusData\rfyt\xxg\_lgi\data\FyTMaes.Mdb") 'cale BD pentru […]
做..循环直到与多个IFs
我需要你的帮助。 我想为我的代码添加一个“Do … Loop Until”。 我所要做的就是自动更改范围，并从单元格O2开始执行所有逻辑testing，作为我的代码的起点，直到得到"END"值的单元O1700 所以，如果O2 =“NA”的值，那么做所有的IF，如果不是只是跳到下一个单元格，一次又一次地执行AvtiveCell =“NA”直到“END”。 我已经添加了这样的东西，但它不能正常工作，只是find第一个“NA”单元，然后停下来。 Range ("O2").Select IF (ActiveCell = "NA") THEN 'MY CODE ELSE DO ActiveCell.Offset(1, 0).Select Loop Until (ActiveCell = "END") 你的帮助将不胜感激。 谢谢
Excel VBA查找循环以validation最新的数据选项卡
在设置！$ AE：$ AE（度量的总数可以变化）中，我有一个十个度量的列表，如果所有这些度量都存在Data！$ 8：$ 8（作为列标题），需要使用VBA该措施作为唯一标识符。 目标是让这个macros检查数据选项卡中是否存在度量值，如果没有，则在第八行添加一个新的列，并在第八行中添加相应的度量值名称。 如果在“设置！$ AE：$ AE”中不存在度量，并且存在于“数据！$ 8：$ 8”中，则应删除相应的列。 这将用于维护一个最新的措施数据表（每行是由团队成员按date的lineitem）。 我可以找出插入/删除列，但我需要帮助的是写一个macros来检查数据选项卡对设置选项卡。 我search了四周，它似乎是一个.Find和.FindNext循环是解决scheme，但我不知道如何写这个作为What：=值，度量的名称，在循环的每一个迭代（Settings！$ AE ：$ 1，Settings！$ AE：$ 2等）。 会有人能够提供一个VBA代码，这应该是什么样子？ 谢谢！ =）
Excel for循环自动复制
我试图做一个循环，以特定的时间间隔复制一个特定的select到一个新的范围或一个新的范围。 这是我的代码： Sub test() Dim i As Long Dim c As Integer c = 0 For i = 1 To 119 Step 3 c = c + i + 120 Range(Cells(i, 1), Cells(i, 4)).Copy Range("A(c)") Next i End Sub 但它不起作用。 有人能帮助我吗？ 谢谢！！！！！！
C＃与Char和数字循环
我在我的C＃Winforms应用程序中有以下代码行： excell_app.createHeaders(1, 1, "Product_1", "A1", "A1", "n"); 它说"Product_1"我需要它循环我的数组中的所有项目，它说"A1", "A1"我需要它获得下一个值，即"B2","B2" 我不确定我应该使用哪个循环，因为我需要一个for next来通过我的数组，但是然后我需要增加"B2","B2"的位置的值， 这是我的尝试： foreach (string value in ProductName) { excell_app.createHeaders(1, 1, "+ value +", "A1", "A1", "n"); } 我不知道如何通过字母和数字迭代我的位置值： 像这样的东西:(我认为这可能是错误的，请指教） char X='A'+1; X++
将循环更改为自动过滤以简化MACRO
我想通过改变循环结构到一个自动filter结构来简化下面的代码。 1 ActiveCell.Columns("A:A").EntireColumn.Select If Selection.Find(What:="~* C", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True) Is Nothing Then GoTo 2 End If Selection.Find(What:="~* C", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True).Activate ActiveCell.Select Range(Selection, Selection.Offset(0, 1)).Insert shift:=xlToRight GoTo 1 2 有没有一个简单的方法来做到这一点？
循环代码失败
我想在我的所有工作表中运行以下代码。 我有大约20张。 我错过了什么？ Sub Filter1() Dim wSheet As Worksheet Dim i As Long For i = 0 To ActiveWorkbook.Worksheets.Count ActiveSheet.Range("$Q$1:$Q$90").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 ActiveSheet.Select Next i End Sub
