当鼠标移到按钮上时,按钮背景色变黄色.当鼠标移开按钮上时按钮背景色恢复原状

wjmm

在Excel里，写段 VBA代码,
1、当鼠标移到按钮上时,按钮背景色变黄色.
2、当鼠标移开按钮上时按钮背景色恢复原状
3、有多个按钮



我自己写了段代码，有时可以，有时不可以，应该是哪里出错了
   

Private Sub cmdClear_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   With cmdClear
        .BackColor = RGB(255, 0, 0)
        If X > 0 And Y > 0 And X < .Width And Y < .Height Then  '按钮上方
             .BackColor = RGB(255, 255, 0)
        End If
    End With
End Sub

ykcbf1100

GPT写的代码，你可以参考一下。

1. Private Sub Worksheet_Button_Hover(ByVal Control As IRibbonControl)
   
2.     ' 假设你的按钮有一个特定的ID，比如ID为1
   
3.     ' 设置鼠标悬停时的背景色
   
4.     Control.BackColor = RGB(255, 255, 0) ' 黄色
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Button_HoverExit(ByVal Control As IRibbonControl)
   
8.     ' 假设你的按钮有一个特定的ID，比如ID为1
   
9.     ' 设置鼠移开后的背景色恢复原状
   
10.     Control.BackColor = RGB(255, 255, 255) ' 白色或你原本的颜色
    
11. End Sub
    

复制代码

3190496160

这个就得api的吧

2324104030

3190496160 发表于 2024-4-11 09:42
这个就得api的吧

可能只是背景颜色，.backcolor

tanglf188

以3个为例

要是嫌VBA自带的按钮不美观可以自己用标签控件写

wjmm

tanglf188 发表于 2024-4-11 10:08
以3个为例

要是嫌VBA自带的按钮不美观可以自己用标签控件写

窗体有MouseMove，工作表没有MouseMove

wjmm

ykcbf1100 发表于 2024-4-11 09:39
GPT写的代码，你可以参考一下。

貌似没用，或者我不知道怎么用

wjmm

tanglf188 发表于 2024-4-11 10:08
以3个为例

要是嫌VBA自带的按钮不美观可以自己用标签控件写

仔细想了下，知道怎么用了

tanglf188

wjmm 发表于 2024-4-11 11:31
仔细想了下，知道怎么用了

工作表上原理差不多，就是要捕获鼠标的位置，在控件上则标黄底色，不在的还原按钮表面颜色
最简单的是：因为你有多个按钮，可以用一个按钮的move事件，把本按钮标成黄底色，其他的恢复，这样最后一个触发的会保持黄底色，你可以考虑用合适的工作表事件把他恢复。

dzsrmyh

wjmm 发表于 2024-4-11 11:31
仔细想了下，知道怎么用了

分享一下完整的作品噻