如何让同一个单元格的内容，显示不同的格式

乄蜗牛

请教各位老师，同一个单元格内有两行,如何使用VBA实现以下功能：
第一行内容添加删除线
第二行内容标红
并且单元格内容全部加粗

半百

选中区域然后运行代码

^星^

修改单元格显示格式.zip (14.8 KB, 下载次数: 3)

2024-3-9 19:55 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, j&
   
    With [A4].CurrentRegion
        ar = .Value
        .Font.Bold = True
        .Font.Color = False
        .Font.Strikethrough = False
        For j = 2 To UBound(ar, 2)
            br = Split(ar(1, j), vbLf)
            With .Cells(1, j).Characters(Start:=1, Length:=Len(br(0))).Font
                .Strikethrough = True
            End With
            With .Cells(1, j).Characters(Start:=Len(br(0)) + 2, Length:=Len(br(1))).Font
                .Color = vbRed
            End With
        Next j
    End With
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。。

ykcbf1100

对第4行单元格设置

ykcbf1100

代码供参考。。。

1. Sub ykcbf()   '//2024.3.9
   
2.     ActiveSheet.Cells.Interior.ColorIndex = 0
   
3.     ActiveSheet.Cells.Font.Strikethrough = False
   
4.     For j = 2 To 4
   
5.         Set cell = Cells(4, j)
   
6.         b = Split(Cells(4, j), Chr(10))
   
7.         text = Cells(4, j)
   
8.         ' 设置第一行添加删除线
   
9.         cell.Characters(Start:=1, Length:=Len(b(0))).Font.Strikethrough = True
   
10.         ' 设置第二行文本标红
    
11.         For i = 1 To Len(text)
    
12.             If Mid(text, i, 1) = Chr(10) Then
    
13.                 cell.Characters(Start:=i + 1, Length:=Len(b(1))).Font.Color = RGB(255, 0, 0) '红色
    
14.                 Exit For
    
15.             End If
    
16.         Next i
    
17.         ' 设置单元格内容加粗
    
18.         cell.Font.Bold = True
    
19.     Next
    
20. End Sub
    

复制代码