返回列表 上一主題 發帖

[發問] 不知道是否有辦法讓一樣的變成同一種顏色嗎??

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2013-11-19 23:24 | 顯示全部帖子
回復 1# a31075ha
  1. Private Sub cbSetColor_Click()
  2.   Dim iI%
  3.   Dim lRow&
  4.   Dim sStr$
  5.   Dim vColor, vD
  6.   
  7.   Set vD = CreateObject("Scripting.Dictionary")
  8.   vColor = Array(34, 39, 43, 44, 36, 15)
  9.   iI = 0
  10.   lRow = 5
  11.   Do While Cells(lRow, 1) <> ""
  12.     sStr = Cells(lRow, 4)
  13.     If vD(sStr) = "" Then
  14.       vD(sStr) = vColor(iI)
  15.       iI = iI + 1
  16.     End If
  17.     Union(Cells(lRow, 2), Cells(lRow, 4)).Interior.ColorIndex = vD(sStr)
  18.     lRow = lRow + 1
  19.   Loop
  20. End Sub
複製代碼
SameColor-a.zip (10.01 KB)

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題