麻辣家族討論版版 » 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: 4

帖子: 1388
主題: 4
精華: 0
積分: 1398
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-29

熱烈參與勳章

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
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

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!
解決了!謝謝您的熱心幫忙^^

靜思自在 : 口說好話、心想好意、身行好事。

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