如何单击文本框自动选择工作表，谢谢

leepang1984

想实现的功能
1. 单击文本框，自动创建工作表，名称与文本框内容相同
2. 以后单击文本框，则自动选择对应的工作表

非常感谢！！！！！！！

chaohuahch

你自己修改一下代码。只要修改每个代买修改下面两处。计划的位置。然后指定一下宏，就可以了。

1. Sub 计划()
   
2. Dim m As String, arr(), i%, dic As Object, n%
   
3. Set dic = CreateObject("Scripting.Dictionary")
   
4. m = "计划": n = 20
   
5. 
   
6. ReDim arr(1 To n)
   
7. For i = 1 To Sheets.Count
   
8.   arr(i) = Sheets(i).Name
   
9. Next i
   
10. 
    
11. For i = 1 To UBound(arr)
    
12. dic(arr(i)) = ""
    
13. Next i
    
14. 
    
15. If dic.exists(m) Then
    
16.    Sheets(m).Select
    
17. Else
    
18. Set sh = Worksheets.Add(before:=Worksheets("Sheet1"))
    
19. sh.Name = m
    
20. End If
    
21. 
    
22. End Sub
    

复制代码

CC例例

所有文本框指定这个宏。

1. Sub Test()
   
2.     Dim Sht As Worksheet
   
3.     Dim ShName As String
   
4.     ShName = Sheet1.Shapes(Application.Caller).TextFrame2.TextRange.Characters.Text
   
5.     On Error Resume Next
   
6.     Set Sht = Sheets(ShName)
   
7.     If Err.Number <> 0 Then
   
8.         Sheets.Add.Name = ShName
   
9.         Err.Clear
   
10.     Else
    
11.         Sht.Activate
    
12.     End If
    
13. End Sub

复制代码

leepang1984

chaohuahch 发表于 2018-7-20 11:11
你自己修改一下代码。只要修改每个代买修改下面两处。计划的位置。然后指定一下宏，就可以了。

非常感谢，我试一下

leepang1984

CC例例 发表于 2018-7-20 11:33
所有文本框指定这个宏。

学习了，这段代码非常好用，非常感谢

leepang1984

chaohuahch 发表于 2018-7-20 11:11
你自己修改一下代码。只要修改每个代买修改下面两处。计划的位置。然后指定一下宏，就可以了。

是不是每个文本框都要单独写一段代码，而不是都指定一个代码

leepang1984

CC例例 发表于 2018-7-20 11:33
所有文本框指定这个宏。

Application.Caller，，我就是这段代码不会用
我录制的代码是 Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "批次"
学习了，非常感谢