如何保证至少有一个有显示？

dzsrmyh

1. Sub 超大多选框()
   
2. Dim shp As Shape, s As String, ss As String
   
3. ss = Application.Caller
   
4. Set shp = ActiveSheet.Shapes.Range(ss).Item(1)
   
5. s = shp.TextFrame2.TextRange.Characters.Text
   
6. If s = "P" Then
   
7.   s = ""
   
8. Else
   
9.   s = "P"
   
10.   Sheet1.Shapes("文本框1").TextFrame.Characters.Text = ""
    
11.   Sheet1.Shapes("文本框2").TextFrame.Characters.Text = ""
    
12.   Sheet1.Shapes("文本框3").TextFrame.Characters.Text = ""
    
13.   Sheet1.Shapes("文本框4").TextFrame.Characters.Text = ""
    
14. End If
    
15. shp.TextFrame2.TextRange.Characters.Text = s
    
16. shp.Title = IIf(s = "P", 1, 0)
    
17. Application.ScreenUpdating = True
    
18. End Sub

复制代码

如何保证至少有一个有显示？

蓝桥玄霜

把s=""这一句删除即可。