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

VBA中获取特定颜色字符
最新推荐文章于 2023-08-19 22:48:52 发布
转载 最新推荐文章于 2023-08-19 22:48:52 发布 · 385 阅读 · 1 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/laoyebin/archive/2010/03/02/1676813.html

本文介绍了一段VBA代码，该代码用于从指定范围内提取颜色为红色（RGB值255）的字符，并将这些字符组合成一个新的字符串。通过逐字符检查字体颜色来实现这一功能。

 

ContractedBlock.gifExpandedBlockStart.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

                

        




    

    
  



    



                



	

		

			

				
					
VBA提高篇_16 传递Range提升自定义函数,巧用属分辨公式型内容

				
			

			

				

					pigerr的博客
				

				

					02-03
					
					1227
					
				

			

		

		

			
				
Sub demo() Dim w As Worksheet 's和, w 表格, r 单元格, r1 子单元格 For Each w In Worksheets。

			
		

	



                

            
              



	

		

			

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

				
			

			

				

					11-21
				

			

		

		

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

			
		

	



              


  
              

                


	

		

			

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

				
			

			

				

					02-24
				

			

		

		

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

			
		

	





	

		

			

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

				
			

			

				

					weixin_35756690的博客
				

				

					02-13
					
					731
					
				

			

		

		

			
				
以下是一段使用 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...

			
		

	



		

			
		



	

		

			

				
					
【VBA_选择区域的关键词更改颜色】

				
			

			

				

					gf1321111的博客
				

				

					08-19
					
					437
					
				

			

		

		

			
				
excel选中区域的关键词更改颜色

			
		

	





	

		

			

				
					
if函数 字体自动标红_power pivot函数

				
			

			

				

					weixin_39808893的博客
				

				

					12-15
					
					1531
					
				

			

		

		

			
				
哔哩哔哩 power pivot课程https://www.bilibili.com/video/av43308704?p=24文本函数，跟excel里都一样lower是把大写字母转换成小写字母rept重复单元格内容rept的特殊用法做一个数据透视图，rept2这一列就像一个条形图一样还可以调整字体颜色，做成条形图一样。也可以把T替换成m把m调整成这个字体这样都变成了一个一个小人转换函数date函...

			
		

	





	

		

			

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

				
			

			

				

					03-28
				

			

		

		

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

			
		

	





	

		

			

				
					
【Excel VBA自定义函数】：控件工具箱带你扩展Excel功能到极致

				
			

			

				

					
				

			

		

		

			
				
本文旨在为初学者和经验丰富的程序员提供全面的Excel VBA自定义函数指南。通过逐步介绍VBA基础知识、自定义函数的创建与管理，以及高级应用，本文帮助读者理解VBA编程语言的基础语法、代码结构和开发环境配置。特别...

			
		

	





	

		

			

				
					
VBA实用自定义函数138例详细解析

				
			

			

				

					
				

			

		

		

			
				
### VBA自定义函数大全知识点解析  1. **返回Column英文字**：该自定义函数可能用于将列的序号转换成对应的英文字母表示，如1对应A、2对应B等，有助于在VBA中进行列的引用。  2. **查询某一值第num次出现的值**：这...

			
		

	





	

		

			

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

				
			

			

				

					此心安处是吾乡
				

				

					04-29
					
					4726
					
				

			

		

		

			
				
申明：主要参考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
					
					1532
					
				

			

		

		

			
				
自定义函数提取字符串中的数字
 
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

			
		

	





	

		

			

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

				
			

			

				

					dragoo1的专栏
				

				

					09-23
					
					6544
					
				

			

		

		

			
				
环境：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
					
					2781
					
				

			

		

		

			
				
一、取值字体颜色值（用于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
					
					339
					
				

			

		

		

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

			
		

	





	

		

			

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

				
			

			

				

					Delay_coder的博客
				

				

					09-05
					
					4133
					
				

			

		

		

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

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


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

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

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

  
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

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

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值