麻辣家族討論版版 » Excel程式區 » 指定欄位標示底色

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

[發問] 指定欄位標示底色

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-10-8 01:00 | 只看該作者

[發問] 指定欄位標示底色

A欄有顯示數字的總列數不定。

當A4=A，則A欄有顯示數字的最後一列儲存格及其右邊2個儲存格標示黃色
If Sheets("Sheet1").Range("A4") = "A" Then
Sheets("Sheet1").Range(A欄有顯示數字的最後一列).Resize(1, 3).Interior.ColorIndex = 6
End If

求"A欄有顯示數字的最後一列"的VBA語法。謝謝!

樓主熱帖

收藏

碩士班 Rank: 5 Rank: 5

帖子: 1796
主題: 184
精華: 0
積分: 1985
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-9-24

熱烈參與勳章

2^#

發表於 2017-10-8 09:58 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/538163216

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2017-10-8 13:05 | 只看該作者

回復 2# hcm19522

謝謝您!但我需要的是程式語法。

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

4^#

發表於 2017-10-8 13:36 | 只看該作者

回復 1# ziv976688

If Sheets("Sheet1").Range("A4") = "A" Then
Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Resize(1, 3).Interior.ColorIndex = 6
End If

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2017-10-8 14:06 | 只看該作者

回復 4# naruto018

測試結果OK!
解決了!謝謝您的熱心幫忙^^

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

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