標題: [發問] 指定欄位標示底色 [打印本頁]

---

作者: ziv976688    時間: 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語法。謝謝!
[attach]27790[/attach]

---

作者: hcm19522    時間: 2017-10-8 09:58

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

---

作者: ziv976688    時間: 2017-10-8 13:05

回復 2# hcm19522

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

---

作者: naruto018    時間: 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

複製代碼

---

作者: ziv976688    時間: 2017-10-8 14:06

回復 4# naruto018

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)