1.VBA区域单击文字变换颜色
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set rg = Intersect([a1:b13], Target)
If rg Is Nothing Then Exit Sub
With rg.Font
If .Color = 0 Then
.Color = vbRed
Else
.Color = 0
End If
End With
End Sub
2.vba如何判断word文字颜色是否为蓝色
①第一种代码
On Error GoTo ErrHandle
Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
For Each iChar In myRange.Characters
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Selection.Font.ColorIndex = 2 Then MsgBox iChar
Next
Exit Sub
ErrHandle:
MsgBox "Error number: " + Str$(Err) + Chr(13) + Error$(Err), 48, m_Title
②第二种代码
Dim n As Integer, Info As String
With Selection.Find
.Parent.HomeKey wdStory
.ClearFormatting
.Font.Color = wdColorBlue
Do While .Execute
n = n + 1
Info = Info & n & vbTab & .Parent & vbCrLf '提取找到的文本
.Parent.Delete '删除找到的文本(蓝色字体)
Loop
End With
If Info = "" Then MsgBox "未找到指定颜色字体" Else Documents.Add.Content = Info
3.excel 字体颜色如何设置快捷键
excel字体颜色设置快捷键的方法步骤如下:
1、首先打开WORD,然后在工具栏的空白处单击右键。
2、在弹出的对话框中左键单击选择“自定义快捷访问工具栏(C)”。
3、然后会弹出word选项面板,左键单击选择面板右下方的“自定义”选项。
4、然后会弹出“自定义键盘”的面版,在面版内选择“开始 选项卡“-“FontColorPicker”,在“请按新快捷键(N)”下方的文本框中按你想设置的快捷键,记得需要同时按下进行指定,比如“Ctrl+F”最后点击“指定”完成命令即可成功设置excel 字体颜色的快捷键。
4.EXCEL VBA填充字体颜色和单元颜色
Sub s()
Dim a(3)
t = [a1]
For i = 0 To 3
a(i) = Mid(t, i + 1, 1)
Next
For i = 2 To 85
ff = True
For j = 0 To 3
f = False
For k = j * 7 + 11 To j * 7 + 17
If Cells(k, i).Text = a(j) Then
Cells(k, i).Font.ColorIndex = 3
f = True
End If
Next
ff = ff And f
Next
If ff Then Cells(39, i).Resize(7).Interior.ColorIndex = 6
Next
End Sub
转载请注明出处51数据库 » wordvba改变字体颜色