返回列表 上一主題 發帖

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

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 
1# 跳轉到 »
發表於 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

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-28 08:23 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-4-28 08:32 編輯

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

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 
3#
發表於 2011-4-28 10:50 | 顯示全部帖子
剛剛把 chin15 大大所發的程式碼加以延伸的話 應該能達到樓主的需求





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


對比改良版.rar (26.16 KB)

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 
4#
發表於 2011-4-28 15:24 | 顯示全部帖子
0.0 我最後發的帖 是由 chin15大大 的方式 加以延伸..
樓主的兩個需求
(若D欄儲存格有A欄的值  則在B欄 相對儲存格打勾)
只是會有點小誤判而已 哈哈><!
剛剛試驗+應用 應該誤判機率很低...除非是數字..

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-29 09:24 | 顯示全部帖子
有個疑問...
為什麼要 for i = 1 to 3 ?  

如果不要顏色的話
把 .Interior.ColorIndex = 3 刪除即可0.0

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 
6#
發表於 2011-5-2 11:32 | 顯示全部帖子
各位前輩大家好！
      在這裡學習良多，很精彩
     以上是比對文字，如果是數字比對該如何作？
      ...
wells330 發表於 2011-4-30 16:32



    數字 ... 基本上是一樣吧...(儲存格類型會不同)
不過  感覺表達的文意有點怪..
     D2：D297的資料其中只要有儲存格是 0 則在B2：B297的相對位置（如D6是 0，B6的儲存格塗綠色文字顯示白色）
      E2：E297的資料其中只要有儲存格是 0 則在B2：B297的相對位置（如E6是 0，B6的儲存格塗紅色文字顯示白色）
這樣不會重疊嗎...+.+
如 假使 d6 e6 同時為0... 那你的b6 要哪種顏色...

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題