Worksheet 对象成员属性的CodeName

ning84

属性

	CircularReference	返回一个 Range 对象，该对象表示工作表上包含第一个循环引用的区域，或返回 Nothing（如果工作表上没有循环引用）。在继续执行计算之前，必须删除循环引用。
	CodeName	返回对象的代码名。String 型，只读。
	Columns	返回一个 Range 对象，它代表活动工作表中的所有列。如果活动文档不是工作表，则 Columns 属性失效。

    Dim Sht As Worksheet,-----------  Set Sht = Sheet1 ------结果成立。

只能用For each Next方法。更改表名后，更改Menu对应项

*****************************
更改表名，用oSht.CodeName = Rng(ii, 1)方法，能解决目标需求。

1. Sub ll3()
   
2.     Dim Str
   
3.     Dim Rng As Range
   
4.      
   
5.     Dim Sht As Worksheet, oSht As Worksheet
   
6.         Set Sht = Sheet1
   
7.         Set Rng = Sht.Cells(6, 1).CurrentRegion
   
8.         
   
9.         
   
10.         
    
11.         For ii = 1 To Rng.Rows.Count
    
12.               Str = Rng(ii, 1)
    
13.               For Each oSht In Sheets
    
14.                    Debug.Print oSht.CodeName, ii, Rng(ii, 1)
    
15.                    If oSht.CodeName = Rng(ii, 1) Then
    
16.                        Rng(ii, 2) = oSht.Name
    
17.                        Exit For
    
18.                    End If
    
19.               Next oSht
    
20.         Next ii
    
21. End Sub
    
22. 
    
23. 
    

复制代码

ynzsvt

这是分享还是求助

ning84

ynzsvt 发表于 2024-8-5 09:01
这是分享还是求助

自己出题自己解题。