excel求一个宏，急用，在线等

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:17:56
excel正常表格里面保存的网址是黑色字体的，做个什么宏才能让网址字体全变蓝色的呢

Public Sub fd()
For x = 1 To 20
For y = 1 To 100

If Len(Cells(y, x)) > 7 And Left(Cells(y, x), 7) = "http://" Then
Cells(y, x).Font.ColorIndex = 41
End If

Next y
Next x
End Sub

运行这个宏,x是列,y是行,范围可自行调整

录一个宏可以不？？

关了再打开就是蓝色的

Sub changeColor()
Cells.Select
Selection.Font.ColorIndex = 41
End Sub

运行上面的函数就可以了．呵．