一個欄位變色問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 一個欄位變色問題

返回列表下一主題上一主題發帖

一個欄位變色問題

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-7-3 16:19 | 顯示全部帖子

Private Sub CommandButton1_Click()
For Each r In Range([an5], [an5].End(4))
Set c = Sheets(r).[2:2].Find(r(1, 2), , , 1)
If Not c Is Nothing Then c(2, 1).Resize(20, 1).Interior.ColorIndex = 15
Next
End Sub

複製代碼

bb.rar (11.83 KB)

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2011-7-3 19:03 | 顯示全部帖子

本帖最後由 oobird 於 2011-7-3 19:05 編輯

Set c = Sheets(r & "月").[2:2].Find(r(1, 2), , , 1)
以表的排列序號容易發生錯誤，因為1月不一定是第一張表，要改以表名作為依據。

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

發表於 2011-7-5 21:54 | 顯示全部帖子

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題