ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 97|回复: 14

[求助] 新人求助各位VBA大神 数据筛选的问题 功能比较简单 但第一次尝试还是没成功

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-12-7 19:53 | 显示全部楼层 |阅读模式
要实现的功能比较简单,但是尝试还是失败了...
搜索H列,从单元格H31开始,如果单元格包含元素a  和 b ,将a  和b 标红。
2,   同样循环在单元格H32执行此操作,如果包含一个元素,就标红一个,两个就标红两个,如果没有,继续下一个
3,循环到此列结束。(单元格为空为止)

我能搜索到这个元素(If InStr)但是不会一个单元格只标红某几个字符,一红就单元格都红了....我想法是假如单元格里包含OPTa这个变量直接让这个变量变红,然后搜索第2个变量,有几个红几个
但是不知道怎么弄,
应该用len吗?
循环也没弄明白....  求助
Sub 搜索单元格?)   '搜索        Dim OPTa As String        Dim OPTb As String        Dim OPTc As String        Dim X As String        Dim pos As Integer          OPTa = "B-SS"        OPTb = "B-LES"        OPTc = "TRAY"        X = Range("H37")      Range("H37").Select       If InStr(X, OPTa) > 0 Then        MsgBox "包含"        Else        MsgBox "不包含"          End If   Range("H37").Select    With ActiveCell.Characters(Start:=6, Length:=5).Font        .ColorIndex = 3    End With     Dim i As Integer     ' For i = 1 To 855     ' Cells(i, 1) = i     ' Next       ' With Selection.Font    '    .Color = -16776961     '   .TintAndShade = 0    'End With       End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 19:56 | 显示全部楼层
格式为啥乱了  再发一次.....
Sub 搜索单元格
'搜索        
Dim OPTa As String        
Dim OPTb As String        
Dim OPTc As String        
Dim X As String        
Dim pos As Integer         
OPTa = "B-SS"        
OPTb = "B-LES"        
OPTc = "TRAY"        
X = Range("H37")      
Range("H37").Select      
If InStr(X, OPTa) > 0 Then        
MsgBox "包含"        
Else        
MsgBox "不包含"         
End If   Range("H37").Select   
With ActiveCell.Characters(Start:=6, Length:=5).Font        .ColorIndex = 3   
End With     
Dim i As Integer     
' For i = 1 To 855     
' Cells(i, 1) = i   
' Next      
' With Selection.Font   
'    .Color = -16776961     
'   .TintAndShade = 0   
'End With      
End Sub

TA的精华主题

TA的得分主题

发表于 2017-12-7 20:01 | 显示全部楼层
上传个附件吧,你已经差不多抓住要点了啊,Characters(Start:=6, Length:=5).Font

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 20:02 | 显示全部楼层
龙城飞将III 发表于 2017-12-7 20:01
上传个附件吧,你已经差不多抓住要点了啊,Characters(Start:=6, Length:=5).Font

我直接上传Excel 显示不支持的格式....

TA的精华主题

TA的得分主题

发表于 2017-12-7 20:04 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 20:06 | 显示全部楼层
龙城飞将III 发表于 2017-12-7 20:01
上传个附件吧,你已经差不多抓住要点了啊,Characters(Start:=6, Length:=5).Font

Characters(Start:=6, Length:=5).Font
这个的确能让局部变红,但是我的变量OPTa不一定开头是6啊,这是我做实验的时候写的
我怎么才能知道这个变量在第几位呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 20:10 | 显示全部楼层
的确  .zip 识别了

VBA test.zip

29.12 KB, 下载次数: 3

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 20:15 | 显示全部楼层

首先 感谢您抽时间答复我的帖子,我已经把附件上传上去了
期待您给我解惑

TA的精华主题

TA的得分主题

发表于 2017-12-7 20:23 | 显示全部楼层
  1. Sub LCFJIII()
  2.         
  3.         Dim rng As Range
  4.         Dim strMatch1 As String
  5.         Dim strMatch2 As String
  6.         
  7.         strMatch1 = "B-SS"
  8.         strMatch2 = "CYC/D"
  9.         
  10.         With Sheet1
  11.                 For Each rng In .Range(.Cells(30, "H"), .Cells(.Rows.Count, "H").End(xlUp))
  12.                         With rng
  13.                                 If InStr(rng, strMatch1) Then
  14.                                         .Characters(InStr(rng, strMatch1), Len(strMatch1)).Font.Color = RGB(255, 0, 0)
  15.                                 End If
  16.                                 If InStr(rng, strMatch2) Then
  17.                                         .Characters(InStr(rng, strMatch2), Len(strMatch2)).Font.Color = RGB(255, 0, 0)
  18.                                 End If
  19.                         End With
  20.                 Next
  21.         End With

  22. End Sub
复制代码

默认每个单元格中,每个匹配元素最多出现一次了哈
要匹配的字符串比较多的话,就放进数组,循环数组,

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 21:00 | 显示全部楼层
龙城飞将III 发表于 2017-12-7 20:23
默认每个单元格中,每个匹配元素最多出现一次了哈
要匹配的字符串比较多的话,就放进数组,循环数组,

的确只会出现一次  不过要搜的元素可能会有很多  7-8个  都需要标红
还有 这个单元格完成后 我需要相同循环到此列结尾  一直到单元格没有东西为止
这块我也不会....还望不吝赐教
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2017-12-17 10:16 , Processed in 2.119980 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表