返回列表 上一主題 發帖

區域內顯示輸入值填滿顏色之問題

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
1# 跳轉到 »
發表於 2015-11-13 14:48 | 顯示全部帖子
Ｇ２１：
=COUNTIF(INDIRECT("B"&SUBSTITUTE($C$20,"-",":X")),G20)

Ｂ２．格式化條件：
條件１：=(B2=$G$20)*MODE(ROW(),ROW(INDIRECT(SUBSTITUTE($C$20,"-",":"))))　黃底色
條件２∼６，自行去設∼∼
（我的版本只能設３個）

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
2#
發表於 2015-11-13 21:17 | 顯示全部帖子
Sub 執行()
Dim xR As Range, MH, Brr
[B2:X18].Interior.ColorIndex = 0
[G21:L21].ClearContents
Brr = [G21:L21]
For Each xR In Range("B" & Replace([C20], "-", ":X"))
　　MH = Application.Match(xR, [G20:L20], 0)
　　If IsNumeric(MH) Then
　　　　xR.Interior.ColorIndex = [G19].Cells(1, MH).Interior.ColorIndex
　　　　Brr(1, MH) = Brr(1, MH) + 1
　　End If
Next
[G21:L21] = Brr
End Sub

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題