返回列表 上一主題 發帖

[發問] 再對比不相同的資料

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-29 01:28 | 只看該作者

[發問] 再對比不相同的資料

對比不相同的資料,不相同用紅色表示,同時在remark test2009.zip (4.6 KB) 注明,請問老師怎麼寫??
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-7-29 02:00 | 只看該作者
本帖最後由 kimbal 於 2010-7-29 02:02 編輯

回復 1# john2006168
  1.         Dim ci, msg
  2.     If [e2] = "" Then
  3.         Exit Sub
  4.     End If
  5.    
  6.     For i = 1 To Range("E1").End(xlDown).Row
  7.         If Range("E1").Offset(i) <> Range("E1").Offset(i, 2) Then
  8.             msg = "不相符 (miss)"
  9.             ci = 3
  10.         Else
  11.             msg = ""
  12.             ci = 0
  13.         End If
  14.         With Range("E1")
  15.             .Offset(i, 1) = msg
  16.             .Offset(i, 3) = msg
  17.             Range(.Offset(i), .Offset(i, 3)).Interior.ColorIndex = ci
  18.         End With
  19.     Next
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-7-29 15:13 | 只看該作者
回復 1# john2006168
  1. Sub Ex()
  2.     Dim i
  3.     For i = 2 To Range("E1").End(xlDown).Row
  4.         With Range("E1")
  5.             If .Cells(i, 1) = .Cells(i, 3) Then
  6.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 0
  7.             Else
  8.                 .Cells(i, 2) = "不相符(miss)"
  9.                 .Cells(i, 4) = "不相符(miss)"
  10.                 .Cells(i, 1).Resize(, 4).Interior.ColorIndex = 3
  11.         End If
  12.         End With
  13.     Next
  14. End Sub
複製代碼

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題