[已解决]按钮问题求助

走进EXCEL

请各位老师帮助一下,谢谢....

 当按下按钮时,按钮名称变黑色,其它的恢复为红色(初始为红色)

x4QPOeup.rar (6.9 KB, 下载次数: 10)

2009-12-16 15:15 上传

点击文件名下载附件
按钮问题求助

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-18 13:46

QUOTE:

以下是引用走进EXCEL在2009-12-18 13:38:00的发言：

 MyBut.DrawingObject.Font.ColorIndex = 3出现错误"438",对象不支持该属性或方法.

再麻烦您指教一下.谢谢.

按照你的附件不应该出现这个问题，是不是有其他对象。

Sub 点击()
    Dim MyBut
    On Error Resume Next
    For Each MyBut In ActiveSheet.Shapes
        If MyBut.Name = ActiveSheet.Shapes(Application.Caller).Name Then
            MsgBox MyBut.AlternativeText
            MyBut.DrawingObject.Font.ColorIndex = 1
        Else
            MyBut.DrawingObject.Font.ColorIndex = 3
        End If
    Next MyBut
End Sub

跳转到最佳答案楼层

爱疯

GpHvaIIG.rar (10.79 KB, 下载次数: 9)

2009-12-16 20:36 上传

点击文件名下载附件
按钮问题求助

从第5个开始，都是复制的。我只加了个red()，不是说菜单按钮，默认是没有事件的么？

klkl

如何取得按钮的编号?及个数?(假如每次打开工作表时都重新加入按钮.)

amulee

Sub 点击()
    Dim R As Long     '参数
    
    Call red
    MsgBox ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
    ActiveSheet.Shapes(Application.Caller).DrawingObject.Font.ColorIndex = 1
End Sub

Sub red()
    Dim i, str

    For i = 100 To 115
        str = "Button " & i
        ActiveSheet.Shapes(str).Select
        Selection.Font.ColorIndex = 3
    Next i
End Sub

走进EXCEL

QUOTE:

以下是引用amulee在2009-12-18 8:30:00的发言：
Sub 点击()
    Dim R As
  Long     '参数
    
    Call red
    MsgBox ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
    ActiveSheet.Shapes(Application.Caller).DrawingObject.Font.ColorIndex = 1
End
  Sub

Sub red()
    Dim i, str

    For i = 100 To 115
        str = "Button " & i
        ActiveSheet.Shapes(str).Select
        Selection.Font.ColorIndex = 3
    Next i
End
  Sub

for i=100 to 115 如何确定每个按钮的编号?因为本工作表每次打开时,都是用另外的VBA加入了不固定个数的按钮并指定了共用的宏"单击",每次加入后,按钮的编号都发生了变化,关闭工作表时,删除了全部按钮,

比如,现在把其中的一个按钮删除,就会发生错误.....

amulee

Sub 点击()
    Dim MyBut
    For Each MyBut In ActiveSheet.Shapes
        If MyBut.Name = ActiveSheet.Shapes(Application.Caller).Name Then
            MsgBox MyBut.AlternativeText
            MyBut.DrawingObject.Font.ColorIndex = 1
        Else
            MyBut.DrawingObject.Font.ColorIndex = 3
        End If
    Next MyBut
End Sub

走进EXCEL

QUOTE:

以下是引用amulee在2009-12-18 12:16:00的发言：

Sub 点击()
    Dim MyBut
    For
  Each MyBut In ActiveSheet.Shapes
        If MyBut.Name = ActiveSheet.Shapes(Application.Caller).Name Then
            MsgBox MyBut.AlternativeText
            MyBut.DrawingObject.Font.ColorIndex = 1
        Else
            MyBut.DrawingObject.Font.ColorIndex = 3
        End
  If
    Next MyBut
End
  Sub

 MyBut.DrawingObject.Font.ColorIndex = 3出现错误"438",对象不支持该属性或方法.

再麻烦您指教一下.谢谢.

amulee

QUOTE:

以下是引用走进EXCEL在2009-12-18 13:38:00的发言：

 MyBut.DrawingObject.Font.ColorIndex = 3出现错误"438",对象不支持该属性或方法.

再麻烦您指教一下.谢谢.

按照你的附件不应该出现这个问题，是不是有其他对象。

Sub 点击()
    Dim MyBut
    On Error Resume Next
    For Each MyBut In ActiveSheet.Shapes
        If MyBut.Name = ActiveSheet.Shapes(Application.Caller).Name Then
            MsgBox MyBut.AlternativeText
            MyBut.DrawingObject.Font.ColorIndex = 1
        Else
            MyBut.DrawingObject.Font.ColorIndex = 3
        End If
    Next MyBut
End Sub

走进EXCEL

QUOTE:

以下是引用amulee在2009-12-18 13:46:00的发言：

按照你的附件不应该出现这个问题，是不是有其他对象。

Sub 点击()
    Dim MyBut
    On Error Resume Next
    For Each MyBut In ActiveSheet.Shapes
        If MyBut.Name = ActiveSheet.Shapes(Application.Caller).Name Then
            MsgBox MyBut.AlternativeText
            MyBut.DrawingObject.Font.ColorIndex = 1
        Else
            MyBut.DrawingObject.Font.ColorIndex = 3
        End If
    Next MyBut
End Sub

谢谢您了,顺利通过,万分感谢!!!!

zsd5237

学习[em02][em02]