返回列表 上一主題 發帖

[發問] 請問當A1輸入數字4時找出下列資料同數字的公式

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
1# 跳轉到 »
發表於 2010-7-15 00:07 | 顯示全部帖子
回復 5# PD961A


    小弟我用比較笨的作法，不過呢是可以達到您要的效果就是了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each a In Range(Me.[a2], Me.[h17])
        Select Case a
            Case Me.[a1]
                a.Interior.ColorIndex = 3
            Case Me.[b1]
                a.Interior.ColorIndex = 4
            Case Me.[c1]
                a.Interior.ColorIndex = 5
            Case Me.[d1]
                a.Interior.ColorIndex = 6
            Case Me.[e1]
                a.Interior.ColorIndex = 7
            Case Me.[f1]
                a.Interior.ColorIndex = 8
            Case Me.[g1]
                a.Interior.ColorIndex = 9
            Case Me.[h1]
                a.Interior.ColorIndex = 10
            Case Else
                a.Interior.Pattern = xlNone
        End Select
    Next
End Sub

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
2#
發表於 2010-7-15 01:11 | 顯示全部帖子
回復 9# kimbal


       建議加上一行(紅字)先把既有之顏色消去，若否....第一列(A1~H1)改變數字試試看
              .....
       If c.Row <> 1 Then
             c.Interior.Color = xlNone
             For i = 1 To lngNumCols
              .....

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題