一个复选框问题

jhhkh · 发表于 2024-10-3 18:02

请帮忙：拖一个复选框到A1单元格，链接到A2单元格，也就是这个复选框可以控制在A2单元格出现“TRUE”还是“FALSE”，我现在想这样：A2单元格“TRUE”时，把B1中的内容复制到B2，否则就清除B2单元格。搞了好长时间，搞不定
Private Sub Worksheet_Change(ByVal Target As Range)
' 检查是否是A2单元格发生了变化
If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
      ' 如果A2为TRUE，将B1内容复制到B2
      If Me.Range("A2").Value = True Then
         Me.Range("B2").Value = Me.Range("B1").Value
      Else
         ' 否则，清除B2单元格
         Me.Range("B2").ClearContents
      End If
End If
End Sub

^星^ · 发表于 2024-10-3 20:21

Book1.zip (13.79 KB, 下载次数: 8)

jhhkh · 发表于 2024-10-3 21:03

本帖最后由 jhhkh 于 2024-10-3 21:18 编辑

^星^ 发表于 2024-10-3 20:21

效果是这样，但是复制的出现和复选框出现的“TRUE”无关，而是执行了一个另外宏，不符合我要求，我要求复制直接来自于复选框产生“TRUE”有关。

饮冰e士 · 发表于 2024-10-3 21:21

^星^ 发表于 2024-10-3 20:21

请教，你这个没有启用事件，代码是怎么起作用的？

quqiyuan · 发表于 2024-10-3 22:03

换用ativex控件，供参考。。。

quqiyuan · 发表于 2024-10-3 22:04

代码如下。。。

Private Sub 复选框_Click()
Application.EnableEvents = False
      ' 如果A2为TRUE，将B1内容复制到B2
      If Me.Range("A2").Value = True Then
         Me.Range("B2").Value = Me.Range("B1").Value
      Else
         ' 否则，清除B2单元格
         Me.Range("B2").ClearContents
      End If
Application.EnableEvents = True
End Sub

^星^ · 发表于 2024-10-3 23:32

饮冰e士发表于 2024-10-3 21:21
请教，你这个没有启用事件，代码是怎么起作用的？

直接关联的，复选框造成的数据变动触发不了chang事件。

ynzsvt · 发表于 2024-10-4 07:08

饮冰e士发表于 2024-10-3 21:21
请教，你这个没有启用事件，代码是怎么起作用的？

复选框右击指定宏

3190496160 · 发表于 2024-10-4 09:33

Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then
      [a2] = "True"
      [b2] = [b1]
Else
      [a2] = "FALSE"
      [b2] = ""
End If
End With
End Sub

3190496160 · 发表于 2024-10-4 09:34

Book1.rar (12.82 KB, 下载次数: 4)

		自动登录	找回密码
密码			免费注册