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

wuwulang

下載 (31.5 KB)

2011-4-27 02:10

mark15jill

用個新手的方法..
'如果 有出現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

oobird

加上右側打勾

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

複製代碼

wuwulang

回復 3# oobird


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

mark15jill

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

chin15

看起來應該是在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

複製代碼

mark15jill

剛剛把 chin15 大大所發的程式碼加以延伸的話 應該能達到樓主的需求





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


對比改良版.rar (26.16 KB)

比對改良版
下載次數: 10

2011-4-28 10:48

oobird

每一帖要比對的位置都不一樣
不知該回覆哪一帖
最後一帖的：
Sub module1()
Dim yy As Range, data As Range
For Each yy In Range([a1], [a65535].End(3))
Set c = [b:b].Find(yy, , , 1)
If Not c Is Nothing Then
           If data Is Nothing Then
           Set data = c
        Else
          Set data = Union(data, c)
        End If
     End If
Next
    If Not data Is Nothing Then
    With data
        .Interior.ColorIndex = 3
        .Offset(, 1) = "V"
    End With
    End If
End Sub

mark15jill

0.0 我最後發的帖 是由 chin15大大 的方式 加以延伸..
樓主的兩個需求
(若D欄儲存格有A欄的值  則在B欄 相對儲存格打勾)
只是會有點小誤判而已 哈哈><!
剛剛試驗+應用 應該誤判機率很低...除非是數字..

wuwulang

很感謝各位大大的幫忙...謝謝你們
後來我在向朋友尋問時
他才跟我講，這是兩個題目是分開的＞＿＜

第２題題目我朋友是講
請問：
1.　若D欄的內容出現在A,則在鄰列出現V字樣
2.　for  i =1 to 3，跑3個迴圈，有沒有相等，若有，請打V。

不用塗色。Ｑ＿Ｑ