宏对指定字体执行

便秘的感觉

Sub test1()
Dim rng As Range, x As Range
Set rng = Cells.SpecialCells(xlCellTypeFormulas, 23)
If Not rng Is Nothing Then
For Each x In rng
x.ShowPrecedents
Next
End If

End Sub

这个宏 比如只对微软雅黑字体的单元格执行

望帝春心

便秘的感觉 发表于 2019-5-29 13:36
老哥  来帮帮忙啊

1. Sub test1()
   
2.     Dim rng As Range, x As Range
   
3.     Set rng = Cells.SpecialCells(xlCellTypeFormulas, 23)
   
4.     If Not rng Is Nothing Then
   
5.         For Each x In rng
   
6.             If x.Font.Name = "微软雅黑" Then
   
7.                 x.ShowPrecedents
   
8.             End If
   
9.         Next
   
10.     End If
    
11. End Sub

复制代码

加层判断就好了啊

望帝春心

。。

便秘的感觉

望帝春心 发表于 2019-5-29 13:34
。。

老哥  来帮帮忙啊

便秘的感觉

望帝春心 发表于 2019-5-29 13:43
加层判断就好了啊

谢谢谢谢谢  太感谢了  帮了我好大忙

望帝春心

便秘的感觉 发表于 2019-5-29 14:42
谢谢谢谢谢  太感谢了  帮了我好大忙

所以我又挣了一个学分么，哈哈~

望帝春心

便秘的感觉 发表于 2019-5-29 14:42
谢谢谢谢谢  太感谢了  帮了我好大忙

解决问题了也不给学分，那你悬赏学分就是个幌子是么...

便秘的感觉

望帝春心 发表于 2019-5-29 16:27
解决问题了也不给学分，那你悬赏学分就是个幌子是么...

对不起啊   我是新人   现在知道了  以后一定注意

望帝春心

便秘的感觉 发表于 2019-5-29 17:21
对不起啊   我是新人   现在知道了  以后一定注意

论坛这种玩法我也没试过，原来不是这样的，积分太难挣了，才3分，哈哈~

便秘的感觉

望帝春心 发表于 2019-5-29 17:31
论坛这种玩法我也没试过，原来不是这样的，积分太难挣了，才3分，哈哈~

切  我虽然是新人    但还是会看到你的版主和等级