如何才能点击其中一个文本框，另外两个文本框不显示对勾

dzsrmyh

现有代码对只有两个文本框的时候才有效，如何让有三个文本框时也有效呢

ynzsvt

看看满足不

dzsrmyh

ynzsvt 发表于 2024-7-5 07:45
看看满足不

就是这种效果，完美

饮冰e士

外观是复选框，但功能是单选框。个人感觉不太习惯（单选框一般是圆点的形式）。

1. Sub 单选框()
   
2. Dim shp As Shape, s As String
   
3.   s = Application.Caller
   
4.   For Each shp In Sheet1.Shapes
   
5.   If shp.Name = s Then
   
6.     shp.TextFrame.Characters.Text = "P"
   
7.   Else
   
8.     shp.TextFrame.Characters.Text = ""
   
9.   End If
   
10.   Next
    
11. End Sub

复制代码

dzsrmyh

ynzsvt 发表于 2024-7-5 07:45
看看满足不

老师你好，还是有一点小问题，比如我在第一个文本框单击，第一个文本框就有对勾显示，其他文本框就没有对勾显示，但如果我又单击第一个文本框，对勾就没有显示，我的意思是如何保证至少有一个对勾显示（比如上面的操作，应该是在次单击第一个文本框时，对勾不能消失，这样才能保证4个文本框中至少有一个文本框中有对勾）

饮冰e士

直接用矩形就可以了，再套一个文本框有点多余：

1. Sub 单选框2()
   
2. Dim shp As Shape, s As String
   
3.   s = Application.Caller
   
4.   For Each shp In Sheet1.Shapes
   
5.     If shp.Name = s And shp.type = 1 Then
   
6.       shp.TextFrame.Characters.text = "√"
   
7.     ElseIf shp.type = 1 Then
   
8.       shp.TextFrame.Characters.text = ""
   
9.     End If
   
10.   Next
    
11. End Sub

复制代码

ynzsvt

dzsrmyh 发表于 2024-7-5 09:00
老师你好，还是有一点小问题，比如我在第一个文本框单击，第一个文本框就有对勾显示，其他文本框就没有对 ...

1. Sub 超大多选框()
   
2. Dim Arr, i&
   
3. ' 多框选且只选一
   
4. Arr = Array("文本框1", "文本框2", "文本框3")
   
5. For i = 0 To UBound(Arr)
   
6.   If Arr(i) = Application.Caller Then
   
7.    ActiveSheet.Shapes(Arr(i)).TextFrame.Characters.Text = "P"
   
8.   Else
   
9.    ActiveSheet.Shapes(Arr(i)).TextFrame.Characters.Text = ""
   
10.   End If
    
11. Next i
    
12. End Sub

复制代码

yjh_27

单选、多选，调用不同代码