如图， 多个复选框
第一个复选框x1 的值等于   12  34  24  45  30  38  44  21
第二个复选框x2 的值等于   46  12  34  39  36  25  39  20

文本框手输入数字   
当选中 X1时， 文本框内的值与X1的值相同时就显示红色。
当选中 X2时， 文本框内的值与X2的值相同时就显示红色

如何实现，，，谢谢谢谢

[此贴子已经被作者于2018-5-3 18:14编辑过]

Private Sub Text1_Change()
 If Option1.Value = True Then
   Select Case Val(Text1.Text)
   Case 12, 34, 24, 45, 30, 38, 44, 21
     Text1.BackColor = vbRed
   Case Else
     Text1.BackColor = vbWhite
   End Select
 End If
 If Option2.Value = True Then
   Select Case Val(Text1.Text)
   Case 46, 12, 34, 39, 36, 25, 39, 20
     Text1.BackColor = vbRed
   Case Else
     Text1.BackColor = vbWhite
   End Select
 End If
End Sub

我 刚刚测试了，好像不行  不是我希望的那样，，，，1、我的是复选 2. 我要的是 相同的数字用红色字体表示

[此贴子已经被作者于2018-5-3 23:26编辑过]

增加2个check控件、1个RichTextBox控件，实现的是与1或者与2中有相同的就红色

Private Sub RichTextBox1_Change()
 If Check1.Value = 1 Then
   Select Case Right(RichTextBox1.Text, 2)
   Case 12, 34, 24, 45, 30, 38, 44, 21
     RichTextBox1.SelStart = Len(RichTextBox1.Text) - 2
     RichTextBox1.SelLength = 2
     RichTextBox1.SelColor = vbRed
     RichTextBox1.SelStart = Len(RichTextBox1.Text)
   Case Else
     RichTextBox1.SelColor = vbBlack
   End Select
 End If
 If Check2.Value = 1 Then
   Select Case Right(RichTextBox1.Text, 2)
   Case 46, 12, 34, 39, 36, 25, 39, 20
     RichTextBox1.SelStart = Len(RichTextBox1.Text) - 2
     RichTextBox1.SelLength = 2
     RichTextBox1.SelColor = vbRed
     RichTextBox1.SelStart = Len(RichTextBox1.Text)
   Case Else
     RichTextBox1.SelColor = vbBlack
   End Select
 End If
End Sub

[此贴子已经被作者于2018-5-4 09:29编辑过]