12
返回列表 上一主題 發帖

[發問] 如何才能找尋所要的資料並在儲存格塗色?

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
7# 跳轉到 »
發表於 2011-4-28 10:50 | 只看該作者
剛剛把 chin15 大大所發的程式碼加以延伸的話 應該能達到樓主的需求





附檔內 為 A 欄位 和 B欄位的對比， 如果B欄位內有A欄位的話，即會在C欄位相對儲存格打勾
但是有個缺點.. 如果資料是數字狀態 那就會出現錯亂..
如  10 20 30  和 100 110 120 130   會誤判...


對比改良版.rar (26.16 KB)

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
6#
發表於 2011-4-28 08:39 | 只看該作者
本帖最後由 chin15 於 2011-4-28 08:41 編輯

看起來應該是在a欄比對d1儲存格
  1. Sub module1()
  2.     Dim x$, c As Range, data As Range
  3.     x = [d1]
  4.     For Each c In Range([a1], [a65536].End(3))
  5.         If c = x Then
  6.             If data Is Nothing Then
  7.                 Set data = c
  8.             Else
  9.                 Set data = Union(data, c)
  10.             End If
  11.         End If
  12.     Next
  13.     If Not data Is Nothing Then
  14.     With data
  15.         .Interior.ColorIndex = 3
  16.         .Offset(, 1) = "V"
  17.     End With
  18.     End If
  19. End Sub
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2011-4-28 08:23 | 只看該作者
本帖最後由 mark15jill 於 2011-4-28 08:32 編輯

oobird大大 所發的程式碼就是樓主要的效果了...
而且程式精簡很多
如果要尋找其他關鍵字 把 john改掉即可..

TOP

wuwulang

帖子
3 
主題
1 
精華
0 
積分
12 
點名
0  
作業系統
windows 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-6 
最後登錄
2011-5-21 
4#
發表於 2011-4-28 00:26 | 只看該作者
回復 3# oobird


謝謝你
但是我只要A欄位有出現john時
在B欄那邊才會打勾
那我應該要怎麼做呢?

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-4-27 14:57 | 只看該作者
本帖最後由 oobird 於 2011-4-27 15:01 編輯

加上右側打勾
  1. Sub yy()
  2. With Application.ReplaceFormat.Interior
  3.         .ColorIndex = 3
  4.     End With
  5.    Cells.Replace What:="john", Replacement:="=1/0", ReplaceFormat:=True
  6.    With Cells.SpecialCells(xlCellTypeFormulas, 16)
  7.    .Value = "john"
  8.    .Offset(, 1) = "√"
  9.    End With
  10. End Sub
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2011-4-27 08:14 | 只看該作者
用個新手的方法..
'如果 有出現john 則 該儲存格背景色為 紅色  <--說明
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:="john", Replacement:="john", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
12
返回列表 上一主題