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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2019-4-5 03:47 | 只看該作者

[發問] 指定2列或3列的同欄同時都有數字時，則標示底色的語法

(最後有數字的列 - 2)和(最後有數字的列 - 3)的二列之同欄都<>""時，則標示淡紫底色。

(最後有數字的列 - 2)和(最後有數字的列 - 3)和(最後有數字的列 - 4)的三列之同欄都<>""時，則標示玫瑰紅底色。

請問︰VBA語法要如何編寫?
謝謝幫忙!
測試檔︰

依條件標示底色的語法.rar (6.61 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2019-4-5 13:41 | 只看該作者

本帖最後由准提部林於 2019-4-6 10:31 編輯

Sub 標示底色()
Dim r&, c&, k%, Km, xE As Range
r = [a1].End(xlDown).Row
c = [a1].End(xlToRight).Column
Km = Array("", 40, 39, 38)
Range([B2], Cells(r, c)).Interior.ColorIndex = 0
For i = 2 To c
k = 0: Set xE = Cells(r, i)
For j = r To r - 2 Step -1
If Cells(j, i) = "" Then Exit For Else k = k + 1
Next
If k > 0 Then xE(-k + 2).Resize(k).Interior.ColorIndex = Km(k)
Next
End Sub

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

3^#

發表於 2019-4-5 16:23 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/587262551

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

4^#

發表於 2019-4-5 20:30 | 只看該作者

回復 2# 准提部林

感謝版主的幫忙。
問題解決了!感恩!

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

5^#

發表於 2019-4-5 20:31 | 只看該作者

回復 3# hcm19522

h大大:
謝謝您的函數解~感恩!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

6^#

發表於 2019-4-6 10:33 | 只看該作者

回復 4# ziv976688

昨天匆匆做, 未再審察, 修正一下:
For j = r To r - 3 Step -1 >>> 3 改成 2 才對

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

7^#

發表於 2019-4-7 00:18 | 只看該作者

回復 6# 准提部林
版主:您好!
For j = r To r - 3 Step -1
測試過近100個範例，答案都正確，所以沒有發現錯誤^^"

For j = r To r - 2 Step -1
感謝您的修正^^

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

8^#

發表於 2019-4-7 16:12 | 只看該作者

本帖最後由 ziv976688 於 2019-4-7 16:14 編輯

回復 6# 准提部林

版主大大:您好!
結論出來了~
For j = r To r - 3 Step -1
當最後4期都有數字時，就會有Bug了~產生偵錯。

For j = r To r - 2 Step -1
當最後4期都有數字時，會如需求將最後3期的數字標示指定的底色。

謝謝您的耐心指導和幫忙!感恩

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

9^#

發表於 2019-4-16 09:12 | 只看該作者

本帖最後由 ziv976688 於 2019-4-16 09:16 編輯

回復 6# 准提部林

主檔&測試用檔.rar (12.08 KB)
不好意思，因為工作表的列數不盡相同，所以程式執行後，有產生一些Bug(詳如圖片)。
敬請您賜正!謝謝您!
T_1

T_2

T_3

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

10^#

發表於 2019-4-19 12:45 | 只看該作者

回復 9# ziv976688

Sub 標示底色()
Dim r&, c&, k%, Km, U&, xE As Range
If IsDate([A2]) = False Then Exit Sub
r = [A1].End(xlDown).Row
c = [A1].End(xlToRight).Column
Km = Array("", 40, 39, 38)
Range([B2], Cells(r, c)).Interior.ColorIndex = 0
U = r - 2: If U > 2 Then U = 2
For i = 2 To c
k = 0: Set xE = Cells(r, i)
For j = r To r - U Step -1
If Cells(j, i) = "" Then Exit For Else k = k + 1
Next
If k > 0 Then xE(-k + 2).Resize(k).Interior.ColorIndex = Km(k)
Next
End Sub

TOP