帖子: 3
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: windows
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2011-4-6
最後登錄: 2011-5-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-27 02:16 | 只看該作者

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

mark15jill

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

高中生 Rank: 3 Rank: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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 編輯

加上右側打勾

Sub yy()
With Application.ReplaceFormat.Interior
.ColorIndex = 3
End With
Cells.Replace What:="john", Replacement:="=1/0", ReplaceFormat:=True
With Cells.SpecialCells(xlCellTypeFormulas, 16)
.Value = "john"
.Offset(, 1) = "√"
End With
End Sub

複製代碼

TOP

wuwulang

小學生 Rank: 1

帖子: 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

mark15jill

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

高中生 Rank: 3 Rank: 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

chin15

中學生 Rank: 2

帖子: 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儲存格

Sub module1()
Dim x$, c As Range, data As Range
x = [d1]
For Each c In Range([a1], [a65536].End(3))
If c = x 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

複製代碼

TOP

mark15jill

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

高中生 Rank: 3 Rank: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2011-4-28 15:00 | 只看該作者

每一帖要比對的位置都不一樣
不知該回覆哪一帖
最後一帖的：
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

TOP

mark15jill