求一个繁体系统能用的聚光灯加载宏

Stone_00x

之前下载了几个都是代码中有中文字的,转换成简体的不知道为什么用不了,所以求一个繁体系统能用的聚光灯加载宏,谢谢!

zpy2

试试这个vb封装的exe,行不行

Stone_00x

zpy2 发表于 2019-7-22 08:20
试试这个vb封装的exe,行不行

EXE文件没办法传送到公司电脑....改后缀名都不行...

zpy2

Stone_00x 发表于 2019-7-22 21:13
EXE文件没办法传送到公司电脑....改后缀名都不行...

那是公司网管做了策略限制，没有运行的权限，一种是和网管沟通下，还有就是用自己的电脑了。

YZC51

Stone_00x 发表于 2019-7-22 21:13
EXE文件没办法传送到公司电脑....改后缀名都不行...

请参考
  Dim JGD As Shape
  If Me.ToggleButton2.Caption = "jgd-yg" Then
   ToggleButton2.Caption = "jgd-yk"
  Else
   ToggleButton2.Caption = "jgd-yg"
   For Each JGD In ActiveSheet.Shapes
    If JGD.Name = "jgd-yk" 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.ToggleButton2.Caption = "jgd-yk" 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("jgd-yk").Delete
   ActiveSheet.Shapes("jgd-yk").Delete
   With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Cells(nn, Col).Left, Cells(nn, Col).Top, 10, hg * 200)
    .Line.Visible = msoFalse
    .Fill.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(247, 17, 238)
    .Fill.Transparency = 0.6
    .Name = "jgd-yk"
   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.ForeColor.RGB = RGB(247, 17, 238)
    .Fill.Transparency = 0.6
    .Name = "jgd-yk"
   End With
  End If
End Sub

YZC51

代码审核中！
图形聚光灯.rar (15.65 KB, 下载次数: 209)

2019-8-25 19:51 上传

点击文件名下载附件

wbjjzhu

聚光灯功能，确实是excel的刚需功能。留个记号学习。

opel-wong

Stone_00x 发表于 2019-7-22 21:13
EXE文件没办法传送到公司电脑....改后缀名都不行...

DLL文件行不行，

Lovertdos

WPS，自带聚光灯

spike1943

YZC51 发表于 2019-8-25 19:49
请参考
  Dim JGD As Shape
  If Me.ToggleButton2.Caption = "jgd-yg" Then

您好，请问只有行高亮应该怎么修改？谢谢！