主页 / computer / 问题 / 1486921
Accepted
PeterH
Asked: 2019-09-28 03:06:26 +0800 CST

选项按钮更改未触发宏

  • 772

我有 3 个选项按钮链接到单元格 A1，

我还有一个宏，当单元格 A1 更改时触发。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
       Select Case Range("A1").Value
           Case 1
               Range("C7:K32").NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
           Case Else
               Range("C7:K32").NumberFormat = "_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"
        End Select
    End If

End Sub

如果我在 A1 中手动输入一个值，则宏可以正常工作，但是如果我A1使用选项按钮更改值，则宏不会运行。

使用选项按钮更改 A1s 值时，有没有办法让宏运行？

microsoft-excel vba

1 个回答

  1. Best Answer

    如果您使用 ActiveX 选项按钮，那么您可以为每个按钮分配代码。

    Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
       Select Case Range("A1").Value
           Case 1
               Range("C7:K32").NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
           Case Else
               Range("C7:K32").NumberFormat = "_-$* #,##0_-;-$* #,##0_-;_-$* ""-""??_-;_-@_-"
        End Select
    End If

End Sub

Private Sub OptionButton1_Click()
    Range("A1") = 1
End Sub

Private Sub OptionButton2_Click()
    Range("A1") = 2
End Sub

    在此处输入图像描述

    • 3

相关问题