如何让D3等于L15、L16、L17中有数据的那个？

wo418200627

L15、L16、L17只有一个有数据，但不确定是哪个，会变化的。怎么才能让一个文件Sheet7中D3等于他们中有数据的那个？
Sheet7.[d3] = wkb.Worksheets(1).[l17].Value 这个只是让D3等于L17，但有时候又在L15或者L16。咋办？

taller

wo418200627

taller 发表于 2023-1-9 02:23

我在这后面直接加上去，不行。按照你的那种格式，不会，大神看下怎么在我这个基础上修改？

1. Sub 签到()
   
2.     Application.ScreenUpdating = False
   
3.     Dim wkb As Workbook
   
4.     [ac1].Value = "生物"
   
5.     If Len(Dir("D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[aa1].Value & ".xls")) = 0 Then
   
6.         MsgBox "无数据，请下载数据或当天无晚自习！", , "温馨提示！"
   
7.         Exit Sub
   
8.         End If
   
9.     Set wkb = Workbooks.Open(Filename:="D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[aa1].Value & ".xls")
   
10.     Windows("统计报表.xlsm").Activate
    
11.     Sheet7.[x1] = wkb.Worksheets(1).[c8].Value
    
12.     Sheet7.[w3] = wkb.Worksheets(1).[a8].Value
    
13.     Sheet7.[x3] = wkb.Worksheets(1).[l15].Value&.[l16].Value&.[l17].Value
    
14.     Sheet7.[v5:v204] = wkb.Worksheets(1).[e16:e215].Value
    
15.     Sheet7.[w5:w204] = wkb.Worksheets(1).[l16:l215].Value
    
16.     Sheet7.[x5:x204] = wkb.Worksheets(1).[j16:j215].Value
    
17.     wkb.Close
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

wo418200627

taller 发表于 2023-1-9 02:23

我也是自己慢慢摸索的，所以可能很多基础都不知道。我这样直接在黄色的地方加上去，显示这个对话框，然后按照你给的那种也是乱来的，可否在我这个基础上直接帮我修改一下呢？谢谢

wo418200627

1. Sub 签到()
   
2.     Application.ScreenUpdating = False
   
3.     Dim wkb As Workbook
   
4.     [ac1].Value = "生物"
   
5.     If Len(Dir("D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[aa1].Value & ".xls")) = 0 Then
   
6.         MsgBox "无数据，请下载数据或当天无晚自习！", , "温馨提示！"
   
7.         Exit Sub
   
8.         End If
   
9.     Set wkb = Workbooks.Open(Filename:="D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[aa1].Value & ".xls")
   
10.     Windows("统计报表.xlsm").Activate
    
11.     Sheet7.[x1] = wkb.Worksheets(1).[c8].Value
    
12.     Sheet7.[w3] = wkb.Worksheets(1).[a8].Value
    
13.     Sheet7.[x3] = wkb.Worksheets(1).[l16].Value
    
14.     Sheet7.[v5:v204] = wkb.Worksheets(1).[e16:e215].Value
    
15.     Sheet7.[w5:w204] = wkb.Worksheets(1).[l16:l215].Value
    
16.     Sheet7.[x5:x204] = wkb.Worksheets(1).[j16:j215].Value
    
17.     wkb.Close
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

代码在这里

taller

wo418200627

taller 发表于 2023-1-9 12:43

1. Sub 签到()
   
2.     Application.ScreenUpdating = False
   
3.     Dim wkb As Workbook
   
4.     [aj1].Value = "生物"
   
5.     If Len(Dir("D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[ah1].Value & ".xls")) = 0 Then
   
6.         MsgBox "无数据，请下载数据或当天无晚自习！", , "温馨提示！"
   
7.         Exit Sub
   
8.         End If
   
9.     Set wkb = Workbooks.Open(Filename:="D:\Documents\为伊消得人憔悴\BaiduSyncdisk\2023上半年（22-23高一4班下学期）\高一（4）班网课\网课统计" & Sheet6.[ah1].Value & ".xls")
   
10.     Windows("统计报表（草稿）.xlsm").Activate
    
11.     With wkb.Worksheets(1)
    
12.     Sheet7.[X3] = .[l15].Value & .[l16].Value & .[l17].Value
    
13.     Sheet7.[x1] = .[c8].Value
    
14.     Sheet7.[w3] = .[a8].Value
    
15.     Sheet7.[v5:v204] = .[e16:e215].Value
    
16.     Sheet7.[w5:w204] = .[l16:l215].Value
    
17.     Sheet7.[x5:x204] = .[j16:j215].Value
    
18.     End With
    
19.     wkb.Close
    
20.     Application.ScreenUpdating = True
    
21. End Sub

复制代码

我这样是不是也行，运行了一下，暂时没发现什么问题

wo418200627

taller 发表于 2023-1-9 14:15
注意FilerMode和AutoFilterMode属性含义是不同的

https://learn.microsoft.com/zh-cn/office/vba/api/ ...

谢谢，不过目前没看懂，我的这个是领导发给我，然后我自己摸索的修改的，所以一点基础都没有，慢慢学习！