返回列表 上一主題 發帖

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

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

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

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 
3#
發表於 2017-10-8 13:05 | 只看該作者
回復 2# hcm19522

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

TOP

hcm19522

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

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

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題