取单元格红色字体的VBA自定义函数

最新推荐文章于 2023-02-13 07:46:33 发布
最新推荐文章于 2023-02-13 07:46:33 发布
阅读量336 收藏 1
点赞数
原文链接：http://www.cnblogs.com/laoyebin/archive/2010/03/02/1676813.html
版权

 

ContractedBlock.gif ExpandedBlockStart.gif 代码 
 
   
 
     1 
    Function 
     GetColorChar(Rng  
    As 
     Range)
 
     2 
     Application.Volatile  
    True 
    
 
     3 
      
    Dim 
     i%,  
    str 
    $
 
     4 
      
    For 
     i  
    = 
      
    1 
      
    To 
      
    Len 
    (Rng)
 
     5 
      
    If 
     Rng.Characters(i,  
    1 
    ).Font.Color  
    = 
      
    255 
      
    Then 
    
 
     6 
      
    str 
      
    = 
      
    str 
      
    & 
      
    Mid 
    (Rng.Value, i,  
    1 
    )
 
     7 
      
    End 
      
    If 
    
 
     8 
      
    Next 
    
 
     9 
     GetColorChar  
    = 
      
    str 
    
 
    10 
      
    End Function 
   
 
  
 
 
 
 
 
 
 
效果如下图：
 
 
2010030222290834.jpg
 

 

转载于:https://www.cnblogs.com/laoyebin/archive/2010/03/02/1676813.html

                

        

        




    

  


    

      

        

            

              
                
                  weixin_30587927
                
              
            

            

                关注
              
            

        

        

          
      

      









                



	

		

			

				
					
Excel 2010 VBA 入门 038 按颜色查找单元格

				
			

			

				

					复行数十步
				

				

					04-13
					
					2167
					
				

			

		

		

			
				
目录

示例：

实现代码：

单元格对象的Clear方法

动态表示数据区域

单元格对象的Copy方法

示例代码2.0

单元格对象的选择性粘贴(PasteSpecial)方法

参数Paste表示选择性粘贴的内容，可以为下表中的任何一个。

参数Operation为粘贴的附加操作，可以为下表中的任何一个。

参数SkipBlanks表示是否跳过空白单元格，若为True，则表示不将剪贴板中的空白单元格复制到目标区域。

参数Transpose表示是否转置，若为True，则表示转置。

示例：

 ..

			
		

	



                

              
                



	

		

			

				
					
Excel-VBA 快速上手（八、单元格对象-常见的单元格操作）

				
			

			

				

					Ares5k
				

				

					07-16
					
					4445
					
				

			

		

		

			
				
vba、单元格的常见操作

			
		

	



                


  
              

                


	

		

			

				
					
按一列查找并红色显示 Excel VBA

				
			

			

				

					02-24
				

			

		

		

			
				
按一列查找并红色显示 Excel VBA

			
		

	





	

		

			

				
					
写一个用excel的vba提取有颜色的单元格内容到第十三列的代码

					
最新发布

				
			

			

				

					weixin_35756690的博客
				

				

					02-13
					
					564
					
				

			

		

		

			
				
以下是一段使用 VBA 代码，它可以提取带有颜色的单元格的内容，并将其输出到第十三列：
Sub ExtractColoredCells()
    Dim i As Long
    Dim j As Long
    Dim lastRow As Long
    Dim lastCol As Long
    Dim cellColor As Long
    Dim targetCol As...

			
		

	



		

			
		



	

		

			

				
					
Excel---提取单元格中红色字符串

				
			

			

				

					此心安处是吾乡
				

				

					04-29
					
					4491
					
				

			

		

		

			
				
申明：主要参考https://www.extendoffice.com/zh-CN/documents/excel/2234-excel-extract-cell-color.html
1 需求
EXCEL单元格中有标红的字符串，需要将其从整个字符串中提取出来
2 方法
使用VBA，看起来是通过循环的方式提取的
贴个函数，更具体的可以参考https://www.extendoffice.com/z...

			
		

	





	

		

			

				
					
EXCEL 自定义函数提取字符串中的数…

				
			

			

				

					璀璨 - 帝禹
				

				

					11-15
					
					1425
					
				

			

		

		

			
				
自定义函数提取字符串中的数字
 
Function
GetNB(rng As Range)
If rng 
    For i = 1 To
Len(rng)
       
tmp = Mid(rng, i, 1)
       
If IsNumeric(tmp) Or tmp Like "[+-\*\/^%)()]" And Not tmp Like
"[A-Z?!~@=_,;|\[]" T

			
		

	





	

		

			

				
					
excel中161个VBA_自定义函数超级实用

				
			

			

				

					03-28
				

			

		

		

			
				
函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展名.....................89 '78.函数作用:取得一个文件的路径.....

			
		

	





	

		

			

				
					
我整理的VBA 自定义函数大全 共138页

				
			

			

				

					11-21
				

			

		

		

			
				
126.获取一个单元格中有指定字体颜色部份数据 127.对指定文件加XLS加密 128.选择指定范围内使用了填充颜色的单元格 129.在特定的区域内查找文本,返回值是包含查找文本的单元格 130.返回特定区域中最大值的地址 131....

			
		

	





	

		

			

				
					
Excel 2010 VBA 入门 043 按自定义序列进行排序

				
			

			

				

					复行数十步
				

				

					04-14
					
					2579
					
				

			

		

		

			
				
示例：

  如图所示，该表为某医院医务人员一览表。现在希望能够将该表数据以C列（科室）按照“外妇科l手术室l内儿科l西医科l中医科l耳鼻喉科I放射科l检验科l超室|口腔科l针灸科I西药房l中药房l收费室J疾控科l合管办|后勤科”的依次顺序进行排序，如何利用VBA实
现？

序号
			姓名
			科室
			级别
			身份
			职称
			受聘专业
			参工时间
			工作年限
			入院时间
			入院年限
			职务
		1
			张1张
			后勤科
			中级
			干部
			主治医师..

			
		

	





	

		

			

				
					
在word中使用vba遍历Range对象的Characters

				
			

			

				

					dragoo1的专栏
				

				

					09-23
					
					6304
					
				

			

		

		

			
				
环境：win7 64位,vs2010,word2010
c#源码：

try 
{
    MSWord.Range rFind = rangeFind.Parent as MSWord.Range;
    for (int i = 1; i <= rFind.Characters.Count; i++)
    {
        string str = rFind.Char

			
		

	





	

		

			

				
					
5、自写＜VBA函数＞关于字体与单元格颜色、大小的函数

				
			

			

				

					weixin_42671677的博客
				

				

					11-06
					
					2404
					
				

			

		

		

			
				
一、取值字体颜色值（用于excel工作中，根据字体颜色做出下一步操作）


Public Function FontColor(rng As Range)

 FontColor = rng.Font.ColorIndex

End Function

二、取值字体大小（用于excel工作中，根据字体颜色大小做出下一步操作）


Public Function FontSize(rng As Range)

 FontSize = rng.Font.Size

End Function

三、取值单元格颜色

			
		

	





	

		

			

				
					
神奇的条件格式，也许是个BUG

				
			

			

				

					神奇的BI
				

				

					08-01
					
					278
					
				

			

		

		

			
				
工作中有如图所示数据，设置了简单的条件格式，如果单元格中包含Excel，那么该单元格字体为红色，如下图所示。
现在希望突出显示关键字Excel，将其字体颜色设置为绿色。手工操作并复杂，按F2键，单元格进入编辑状态，选中关键字，然后设置字体颜色，易如反掌，如下图所示。

			
		

	





	

		

			

				
					
VBA Excel 单元格内多行内容的文字处理方法

				
			

			

				

					Delay_coder的博客
				

				

					09-05
					
					3683
					
				

			

		

		

			
				
系列文章目录
提示：这里可以添加系列文章的所有文章的目录，目录需要自己手动添加
例如：第一章 Python 机器学习入门之pandas的使用

提示：写完文章后，目录可以自动生成，如何生成可参考右边的帮助文档
文章目录系列文章目录前言一、pandas是什么？二、使用步骤1.引入库2.读入数据总结


前言
提示：这里可以添加本文要记录的大概内容：
例如：随着人工智能的不断发展，机器学习这门技术也越来越重要，很多人都开启了学习机器学习，本文就介绍了机器学习的基础内容。

提示：以下是本篇文章正文内容，下面案例

			
		

	





	

		

			

				
					
他山之石——使用VBA获取单元格信息（Get range info with VBA）

				
			

			

				

					预见未来to50的专栏
				

				

					06-21
					
					1093
					
				

			

		

		

			
				
突然有点明白为什么单元格叫做“cell”了，正如细胞是构成生物体的基本单位，单元格就是Excel中存储信息的基本单位。这注定了单元格对象是一个内涵丰富的对象。正如以下代码所示，有很多知识点我也是第一次碰到。看来，主动学习还是很重要的。Option Explicit

'1 单元格的值

   Sub x1()
    Range("b10") = Range("c2").Value
    Ran...

			
		

	





	

		

			

				
					
vba 字体颜色_2种方法，教你一次性删除表格中红色字体单元格？

				
			

			

				

					weixin_39809540的博客
				

				

					12-11
					
					3885
					
				

			

		

		

			
				
置顶公众号或设为星标，每周收到实用文章关注公众号「Excel表格学院」个人微信号 | (ID：BGXujuntai)在Excel中，为了对特殊数据做标记，很多人习惯对单元格使用不同的颜色。说明：对特殊数据设置为红色字体例如上图中的红色字体单元格，是标记的一类数据。但是，问题来了——当我们需要将这一类数据一次性删除，也就是要一次性删除红色字体单元格的时候，应该怎么操作呢？有人会说，Ex...

			
		

	





	

		

			

				
					
VBA实战技巧：Excel单元格操作大全

				
			

			

				

					
				

			

		

		

			
				
10. **合并与取消合并单元格**：VBA提供了合并单元格的函数，可以连接单元格内容，合并相同内容的单元格，或者在取消合并时保留每个单元格的内容。  11. **高亮显示**：VBA可以用于高亮显示特定单元格或区域，以视觉...

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值