[已解决]关于在VBA中改变文本字体，大小，加下划线，斜体等的方法

bfs1981

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B6" Then
        With Sheets("数据源")
            ROW1 = .Range("A" & .Rows.Count).End(xlUp).Row
            ARR1 = .Range("A2:R" & ROW1)
        End With
        If ROW1 > 1 Then
            ReDim ARR11(1 To UBound(ARR1), 1 To 8)
            For I = 1 To UBound(ARR1)
                If ARR1(I, 7) = Target.Value And ARR1(I, 13) <> 0 Then
                    N = N + 1
                    ARR11(N, 1) = N
                    ARR11(N, 2) = ARR1(I, 2)
                    ARR11(N, 3) = ARR1(I, 3)
                    ARR11(N, 4) = ARR1(I, 8)
                    ARR11(N, 5) = ARR1(I, 9)
                    ARR11(N, 6) = ARR1(I, 15)
                    ARR11(N, 7) = ARR1(I, 13)
                    ARR11(N, 8) = ARR1(I, 16)
                    QTFY = QTFY + ARR11(N, 6)
                    ZZL = ZZL + ARR11(N, 5)
                    YF = YF + ARR11(N, 7)
                    HJ = HJ + ARR11(N, 6) + ARR11(N, 7)
                End If
            Next I
            With Sheets("公司账单")
                If N > 0 Then
                    .Range("A8:H8").ClearContents
                    .Range("A9:H" & .Rows.Count).Clear
                    .Range("A8").Resize(N, 8) = ARR11
                    If N > 1 Then
                        .Range("A8:H8").Copy
                        .Range("A9:H" & 8 + N - 1).Select
                        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                                               SkipBlanks:=False, Transpose:=False
                        Application.CutCopyMode = False
                    End If
                    .Range("B" & 8 + N) = "    OTHER:"
                    .Range("D" & 8 + N) = "       TOTAL WEIGHT:"
                    .Range("B" & 8 + N + 1) = "   AMOUNT:"
                    .Range("B" & 8 + N + 2) = "    TOTAL:"
                    .Range("C" & 8 + N) = QTFY
                    .Range("E" & 8 + N) = ZZL
                    .Range("C" & 8 + N + 1) = YF
                    .Range("C" & 8 + N + 2) = HJ
                    .Range("C" & 8 + N + 2).Select
                Else
                    .Range("A8:H8").ClearContents
                    .Range("A9:H" & .Rows.Count).Clear
                End If
            End With
        End If
    End If
End Sub

怎么改变红色文本的字体，大小。。。

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-11-30 23:44

1.     .Range("B" & 8 + N) = "    OTHER:"
   
2.     With .Range("B" & 8 + N).Font
   
3.         .ColorIndex = 3    '颜色 红色
   
4.         .Name = "华文楷体"    '设置 字体
   
5.         .Size = 12  '设置 字号
   
6.     End With
   
7. 
   
8.     .Range("D" & 8 + N) = "       TOTAL WEIGHT:"
   
9.     With .Range("D" & 8 + N)
   
10.         .ColorIndex = 3    '颜色 红色
    
11.         .Name = "华文楷体"    '设置 字体
    
12.         .Size = 12  '设置 字号
    
13.     End With
    
14. 
    
15.     .Range("B" & 8 + N + 1) = "   AMOUNT:"
    
16.     With .Range("B" & 8 + N + 1)
    
17.         .ColorIndex = 3    '颜色 红色
    
18.         .Name = "华文楷体"    '设置 字体
    
19.         .Size = 12  '设置 字号
    
20.     End With
    
21. 
    
22.     .Range("B" & 8 + N + 2) = "    TOTAL:"
    
23.     With .Range("B" & 8 + N + 2)
    
24.         .ColorIndex = 3    '颜色 红色
    
25.         .Name = "华文楷体"    '设置 字体
    
26.         .Size = 12  '设置 字号
    
27.     End If

复制代码

跳转到最佳答案楼层

那么的帅

1.     .Range("B" & 8 + N) = "    OTHER:"
   
2.     With .Range("B" & 8 + N).Font
   
3.         .ColorIndex = 3    '颜色 红色
   
4.         .Name = "华文楷体"    '设置 字体
   
5.         .Size = 12  '设置 字号
   
6.     End With
   
7. 
   
8.     .Range("D" & 8 + N) = "       TOTAL WEIGHT:"
   
9.     With .Range("D" & 8 + N)
   
10.         .ColorIndex = 3    '颜色 红色
    
11.         .Name = "华文楷体"    '设置 字体
    
12.         .Size = 12  '设置 字号
    
13.     End With
    
14. 
    
15.     .Range("B" & 8 + N + 1) = "   AMOUNT:"
    
16.     With .Range("B" & 8 + N + 1)
    
17.         .ColorIndex = 3    '颜色 红色
    
18.         .Name = "华文楷体"    '设置 字体
    
19.         .Size = 12  '设置 字号
    
20.     End With
    
21. 
    
22.     .Range("B" & 8 + N + 2) = "    TOTAL:"
    
23.     With .Range("B" & 8 + N + 2)
    
24.         .ColorIndex = 3    '颜色 红色
    
25.         .Name = "华文楷体"    '设置 字体
    
26.         .Size = 12  '设置 字号
    
27.     End If

复制代码