返回列表 上一主題 發帖

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

ziv976688

帖子
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語法。謝謝!
收藏 分享

hcm19522

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

熱烈參與勳章
2#
發表於 2017-10-8 09:58 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/538163216
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2017-10-8 13:05 | 只看該作者
回復 2# hcm19522

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

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
4#
發表於 2017-10-8 13:36 | 只看該作者
回復 1# ziv976688
  1. If Sheets("Sheet1").Range("A4") = "A" Then
  2. Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Resize(1, 3).Interior.ColorIndex = 6
  3. End If
複製代碼

TOP

ziv976688

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題