鼠标一移动到字体上字体发生变化（变大、变色），移开恢复原样

湖城东哥

如何让鼠标一移动到字体上字体就发生变化（变大、变色），移开恢复原样。论坛里看到过类似单元格的，但字体的没有找到，望大神们解惑

考试加油站

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Font.Size <> 12 Then
        Target.Font.Size = 12
        Target.Font.Color = vbBlack
    End If
End Sub

Private Sub Worksheet_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim cell As Range
    Set cell = Cells(Selection.Row, Selection.Column)
    If cell.Font.Size <> 16 And cell.Font.Color <> vbRed Then
        cell.Font.Size = 16
        cell.Font.Color = vbRed
    End If
End Sub

湖城东哥

考试加油站 发表于 2024-5-5 12:18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Font.Size  12 Then
     ...

大神，鼠标移动到字体上无反应。。。。。

ww87725244

如果没有反应，请先选择其他工作表后，再选择目录工作表

湖城东哥

ww87725244 发表于 2024-5-5 17:08
如果没有反应，请先选择其他工作表后，再选择目录工作表

虽然看不懂，但感觉老牛掰了

GG函数

第三方软件可以实现局部放大，多的很

tanglf188

实现这个功能需要MouseMove事件，窗体控价大都有这事件，WorkSheet下没这个事件

rocklive

ww87725244 发表于 2024-5-5 17:08
如果没有反应，请先选择其他工作表后，再选择目录工作表

太厉害了，正是我想要的效果，在网上找了好久终于找到了，
比我之前找到的好，之前的是要用一个按钮控制获取开始和结束的，如果没看错你这是定时运行获取程序的，而且鼠标移出单元格范围，比如移到工具栏，再移回来也可以获取。

dzsrmyh

ww87725244 发表于 2024-5-5 17:08
如果没有反应，请先选择其他工作表后，再选择目录工作表

可以整行有效吗？