关于触发事件代码 修改成手动开/关

十二三

请路过的大神帮忙看看！

以下代码怎么样可以修改成在excel的功能栏，我点击一次是开启预览，再次点击是关闭预览。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim selectedProductCode As String
    Dim picturePath As String
    Dim previewPicture As Picture

    ' 检查选中的是第一列（商品代码列）
    If Target.Column = 1 Then
        ' 获取选中单元格的商品代码
        selectedProductCode = CStr(Target.Value)

        ' 假设图片路径与商品代码相对应，你可以根据实际情况修改这里的逻辑
        picturePath = GetPicturePath(selectedProductCode)

        ' 删除之前的预览图片（如果存在）
        DeletePreviewPicture

        ' 插入新的预览图片
        Set previewPicture = Me.Pictures.Insert(picturePath)
        With previewPicture
            .Top = Target.Top
            .Left = Target.Offset(0, 1).Left ' 在相邻列显示图片
            .Width = 100
            .Height = 100
            .Name = "PreviewPicture" ' 设置图片名称，以便后续删除
        End With
    End If
End Sub

Function GetPicturePath(productCode As String) As String
    ' 假设图片都存储在名为 "ProductImages" 的文件夹中
    Dim pictureFolder As String
    pictureFolder = "E:\图片\新建文件夹\"

    ' 构建完整的图片路径
    GetPicturePath = pictureFolder & productCode & ".jpg"
End Function

Sub DeletePreviewPicture()
    ' 删除名为 "PreviewPicture" 的图片
    On Error Resume Next
    Me.Shapes("PreviewPicture").Delete
    On Error GoTo 0
End Sub

x-xx-xx

Application.EnableEvents = False '禁用所有事件
Application.EnableEvents = True '启用所有事件

十二三

x-xx-xx 发表于 2024-1-18 15:50
Application.EnableEvents = False '禁用所有事件
Application.EnableEvents = True '启用所有事件

你好，我对VBA不是很熟悉，请问是添加在什么位置

过客fppt

这样即可



Dim GBSJ As Boolean
Private Sub CommandButton2_Click()
    '所有事件总开关
    If GBSJ Then
        Application.EnableEvents = False '禁用所有事件
        GBSJ = False
    Else
        Application.EnableEvents = True '启用所有事件
        GBSJ = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Value = Target.Address
End Sub

十二三

过客fppt 发表于 2024-1-19 17:36
这样即可

谢谢大神，成功解决了

过客fppt

十二三 发表于 2024-1-22 10:59
谢谢大神，成功解决了

不客气，有用可以送两朵花花

十二三

过客fppt 发表于 2024-1-22 11:20
不客气，有用可以送两朵花花

好的，已经送了花花了