代码修改

天地一相

感谢帮助。我有一段对显示单元格写序号的代码，单独使用正常。若在循环中直接调用该代码的宏名，结果也正常。但我若把代码直接放进循环里，做相应调整改动，序号数量就不对了。百思不得其解，特此求助。
问题我解决了：我发现写序号时N并不等于C2单元格的值时就提前退出了。我新设置了中间变量M，让M=RANGE("C2").VALUE.然后后面修改为N=M时结束序号写入。结果就正确了。虽然是对了，但我还是不知道为什么会这样。知道的给解惑下呗。

1. 新写循环部分
   
2. For i = 3 To 7
   
3.   With ThisWorkbook.Worksheets(i)
   
4. 
   
5. end with
   
6. next i
   
7. 
   
8. 序号代码：
   
9. ActiveSheet.Range("A4:W" & r).AutoFilter Field:=21, Criteria1:=RGB(0, 176, 240), Operator:=xlFilterFontColor
   
10.     ActiveSheet.Range("A4:W" & r).AutoFilter Field:=15, Criteria1:=">=" & y, Operator:=xlAnd
    
11.     Range("C2").Value = Application.WorksheetFunction.CountA(ActiveSheet.Range("O5:O" & r).SpecialCells(xlCellTypeVisible))
    
12.     If Range("C2").Value = 0 Then Exit Sub
    
13.    
    
14.     With ActiveSheet
    
15.      
    
16.      If .FilterMode = False Then Exit Sub
    
17.       
    
18.       With Range("D5:D" & r)
    
19.           For Each a In .SpecialCells(xlCellTypeVisible)
    
20.               n = n + 1
    
21.               a = n
    
22.               If n = Range("C2").Value Then
    
23.                  Exit For
    
24.               End If
    
25.           Next
    
26.       End With
    
27. 
    
28.     End With
    

复制代码

longwin

把这些去掉试试：

天地一相

longwin 发表于 2024-5-23 08:17
把这些去掉试试：

不对，这样的修改我都会的。而且也不是关键，就是不去掉，最多属于重复语句，也不影响操作。

ykcbf1100

表循环时，表要先激活一下，在call 序号代码模块 前面加一句代码：
Worksheets(i).Activate

天地一相

ykcbf1100 发表于 2024-5-23 09:01
表循环时，表要先激活一下，在call 序号代码模块 前面加一句代码：
Worksheets(i).Activate

若我直接调用宏名，无需激活，结果也是对的。我只是想直接把代码嵌入循环中，怎么修改结果都不对。序号数量大幅减少了。

ssfx1982

a.value=n 另外With Range("D5:D" & r)最好Range前面加个"."

天地一相

ssfx1982 发表于 2024-5-23 09:50
a.value=n 另外With Range("D5:D" & r)最好Range前面加个"."

不是这个问题。我实际改成的样子就是这样的。我逐步看了，当 n 实际并不等于C2的值时，就退出序号循环了。

ttiemike

' 定义变量
Dim ws As Worksheet
Dim r As Long
Dim n As Long

' 假设r是行数，需要在代码其他部分定义
' 假设n用于计数，初始值为0

' 循环遍历工作表，从第3个工作表到第7个工作表
For i = 3 To 7
    Set ws = ThisWorkbook.Worksheets(i) ' 设置当前工作表
   
    ' 应用自动筛选
    With ws
        .Range("A4:W" & r).AutoFilter Field:=21, Criteria1:=RGB(0, 176, 240), Operator:=xlFilterFontColor
        .Range("A4:W" & r).AutoFilter Field:=15, Criteria1:=">=" & y, Operator:=xlAnd
        
        ' 计算可见单元格的数量
        n = Application.WorksheetFunction.CountA(.Range("O5:O" & r).SpecialCells(xlCellTypeVisible))
        
        ' 如果没有可见单元格，则退出子程序
        If n = 0 Then Exit Sub
    End With
   
    ' 如果筛选模式未开启，则退出子程序
    If ws.FilterMode = False Then Exit Sub
   
    ' 遍历第D列的可见单元格
    With ws.Range("D5:D" & r)
        For Each a In .SpecialCells(xlCellTypeVisible)
            n = n + 1
            a.Value = n ' 将计数n赋值给单元格a
            If n = ws.Range("C2").Value Then
                Exit For ' 如果计数n等于C2单元格的值，则退出循环
            End If
        Next a
    End With
   
Next i

天地一相

ttiemike 发表于 2024-5-23 10:06
' 定义变量
Dim ws As Worksheet
Dim r As Long

谢谢，请看我主贴。

longwin

这样试试：多次循环N是不是需要在进入循环之前重置一下数值？