自定义函数--提取单元格内多个被分开的数字

iris00

麻烦请教楼主，可以来个行高亮显示的程序吗？

YZC51

iris00 发表于 2019-11-1 10:31
麻烦请教楼主，可以来个行高亮显示的程序吗？

请参考132和137楼附件

iris00

YZC51 发表于 2019-11-1 10:35
请参考132和137楼附件

打开居然看不到宏。

YZC51

iris00 发表于 2019-11-1 11:06
打开居然看不到宏。

代码在表格模块里！

iris00

iris00 发表于 2019-11-1 11:06
打开居然看不到宏。

楼主的高亮是固定行高，如何设置随行高变化呢？（满行高亮）对于宏小白来说，一点变化也很有难度呀。

iris00

YZC51 发表于 2019-11-1 11:17
代码在表格模块里！

刚测试好像撤消功能不能用呢。

YZC51

iris00 发表于 2019-11-1 11:21
楼主的高亮是固定行高，如何设置随行高变化呢？（满行高亮）对于宏小白来说，一点变化也很有难度呀。

随行列宽高变化的代码

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, lc, 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, hg) '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

YZC51

iris00 发表于 2019-11-1 11:53
刚测试好像撤消功能不能用呢。

一个按钮实现的已开、已关两个功能的

lhjyj

YZC51 发表于 2019-11-1 10:18
老师您好，附件已经修改成周一开始的啦！

谢谢老师。

iris00

YZC51 发表于 2019-11-1 13:25
一个按钮实现的已开、已关两个功能的

非常感谢！