谁有聚光灯的源码？

lh941619

各位高人，小菜欲求可以在任意工作簿使用的（加载宏）聚光灯原代码，愿能指点迷津一二！自己做的只能在当前工作簿使用！

终是一壶天子笑

论坛找一下，多的是

YZC51

请参考
http://club.excelhome.net/thread-1410016-14-1.html

xuemei0216

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Target.EntireRow.Interior.Color = rgbYellow
    Target.EntireColumn.Interior.Color = rgbYellow
End Sub

yylucke

xuemei0216 发表于 2019-9-17 18:10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone ...

此法有最大的缺点：原来单元格的颜色将被清除。

Kaohsing

真正好用的是不会开源的。

YZC51

请参考
Private Sub ToggleButton1_Click()
    Dim JGD As Shape
    If Me.ToggleButton1.Caption = "聚光灯-已关" Then
        ToggleButton1.Caption = "聚光灯-已开"
    Else
        ToggleButton1.Caption = "聚光灯-已关"
        For Each JGD In ActiveSheet.Shapes
            If JGD.Name = "聚光灯-已开" Then JGD.Delete         '删除特定名称的图形
        Next
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim JGD As Shape, lc!, hh!, Col
    If Sheet1.ToggleButton1.Caption = "聚光灯-已开" Then
        n = Target.Row: Col = Target.Column: lc = Target.Width: hg = Target.Height
        nn = Application.Max(n - 100, 1)
        hs = Application.Max(Col - 100, 1)
        On Error Resume Next
        ActiveSheet.Shapes("聚光灯-已开").Delete
        ActiveSheet.Shapes("聚光灯-已开").Delete
       ' For Each JGD In ActiveSheet.Shapes
        '    If JGD.Name = "聚光灯-已开" Then JGD.Delete         '删除特定名称的图形
        'Next
        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Cells(nn, Col).Left, Cells(nn, Col).Top, 10, hg * 200)
            .Line.Visible = msoFalse                '设置为无轮廓
            .Fill.Visible = msoTrue                 '设置填充（fill）颜色，如果=msofalse，则为无颜色填充
            .Fill.ForeColor.RGB = RGB(247, 17, 238) '设置颜色
            .Fill.Transparency = 0.6                '设置透明度，数字愈大透明度越高
            .Name = "聚光灯-已开"
        End With
        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Cells(n, hs).Left, Cells(n, 1).Top, lc * 200, 10) 'hh)
            .Line.Visible = msoFalse                '设置为无轮廓
            .Fill.Visible = msoTrue                 '设置填充（fill）颜色，如果=msofalse，则为无颜色填充
            .Fill.ForeColor.RGB = RGB(247, 17, 238) '设置颜色
            .Fill.Transparency = 0.6                '设置透明度，数字愈大透明度越高
            .Name = "聚光灯-已开"
        End With

    End If
End Sub

zpy2

YZC51 发表于 2019-9-17 17:58
请参考
http://club.excelhome.net/thread-1410016-14-1.html

这个形状的是不是高亮的行只读，不能编辑了？

YZC51

zpy2 发表于 2019-9-17 19:13
这个形状的是不是高亮的行只读，不能编辑了？

老师好！可以编辑的！