如何增大字号显示

dzsrmyh

感谢草爷帮助，如何将选中行范围在现有基础上添加增加1号字体显示，离开这一行时恢复原有格式

yjh_27

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim r As Long
   
3.     r = Me.Cells(Rows.Count, 1).End(xlUp).Row
   
4.     zihao = 10
   
5.     If Target.Row = 1 Then
   
6.         zihao = Target.Offset(1, 0).Font.Size
   
7.         If Target.Offset(1, 0).Font.Color = RGB(255, 0, 0) Then zihao = zihao - 1
   
8.     Else
   
9.         zihao = Target.Font.Size
   
10.         If Target.Font.Color = RGB(255, 0, 0) Then zihao = zihao = zihao - 1
    
11.     End If
    
12.     If Target.Row = 1 Then
    
13.         With Me.Range("A2:H" & r)
    
14.             .Font.Bold = False
    
15.             .Font.Color = RGB(0, 0, 0)
    
16.             .Font.Size = zihao
    
17.         End With
    
18.         Exit Sub ' 当点击第一行时，直接退出子程序，不执行后续操作
    
19.     End If
    
20.     If Not Intersect(Target, Me.Range("A2:H" & r)) Is Nothing Then
    
21.         With Me.Range("A2:H" & r)
    
22.             .Font.Bold = False
    
23.             .Font.Color = RGB(0, 0, 0)
    
24.             .Font.Size = zihao
    
25.         End With
    
26.         With Target.EntireRow
    
27.             .Resize(1, 8).Font.Bold = True ' 粗体
    
28.             .Resize(1, 8).Font.Color = RGB(255, 0, 0) ' 红色字体
    
29.             .Resize(1, 8).Font.Size = zihao + 1
    
30.         End With
    
31.     End If
    
32. End Sub
    
33. 
    

复制代码

边缘码农

dzsrmyh

边缘码农 发表于 2024-6-28 14:25

老师你好，还是有点小问题，比如我点击除了第一行的时候，都可以达到字号加粗等显示，但当点击第一行时，字号没有恢复原始大小

dzsrmyh

yjh_27 发表于 2024-6-28 14:00

非常感谢，可以达到我想要的效果

边缘码农

我的代码只是提供个思路，很粗糙。

你试试2楼的代码。