判断指定区域内的值是否都有对应的工作表

draftroman

附件中C列是指定的名称，已经创建了对应名称的工作表，先删除了11/15/19三张工作表，要求新增一个命令按钮，每次点击后判断C列每一个值是否有对应名称的工作表存在，将判断结果写入H列对应的橘黄色区域中显示“存在”或者“不存在”字样。（模拟结果已经填入）

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.29  工作表存在判断
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Dim sht As Worksheet
   
4.     For Each sht In Worksheets
   
5.         If Val(sht.Name) Then d(sht.Name) = ""
   
6.     Next
   
7.     With Sheets("核销台账")
   
8.         r = .Cells(Rows.Count, 3).End(3).Row
   
9.         For i = 3 To r
   
10.             s = CStr(.Cells(i, 3).Value)
    
11.             If d.Exists(s) Then
    
12.                 .Cells(i, 8).Value = "存在"
    
13.             Else
    
14.                 .Cells(i, 8).Value = "不存在"
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub
    
19. 
    

复制代码

draftroman

ykcbf1100 发表于 2024-8-29 20:24
附件供参考。。。

非常感谢！