返回列表 上一主題 發帖

[發問] 請問如何確認公式不相同

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-6-12 09:41 | 只看該作者

[發問] 請問如何確認公式不相同

本帖最後由 freeffly 於 2012-6-12 10:32 編輯

附檔我想找出上下儲存格公式不一樣時標顏色
目前我想到的是用 activecell.offset(1,0).formular1c1<>activecell.formular1c1的方式處理
因為一個檔案有好幾個工作表要檢查使用迴圈好像有點慢

不知道有沒有更好的方式
如何可以只看到公式不一致的儲存格?(如果兩各儲存格之間有空格好像就沒辦法顯示不一致)
希望高手解答



Book1.rar (8.07 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2012-6-13 09:16 | 只看該作者
將檔案轉成繁體
附上現在做的方式
現在的方式如果值不一樣也會檢查
如果不想檢查該欄都是值得該怎麼寫?
  1. Sub dd()
  2. Application.ScreenUpdating = False
  3. For i = 4 To Range("IV1").End(xlToLeft).Column
  4. For r = 3 To Range("A65536").End(xlUp).Row
  5. If Cells(r, i).Offset(1, 0).FormulaR1C1 <> Cells(r, i).FormulaR1C1 Then
  6. Cells(r, i).Offset(1, 0).Interior.ColorIndex = 4
  7. End If
  8. Next
  9. Next
  10. End Sub
複製代碼
Book1.rar (10.91 KB)
字典兩各字 還真難理解

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題