12
返回列表 上一主題 發帖

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

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2010-7-15 09:28 | 只看該作者
回復 10# victorl
回復 9# kimbal

謝謝 victorl及 kimbal先進的回文
kimbal您的檔案可以用但是會出現victorl所說的顏色無法消除
不過我把victorl兄寫的程式碼加入後會無法執行

謝謝您們的回文

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2010-7-15 09:32 | 只看該作者
回復 6# GBKEE


    謝謝GBKEE版主
照您說的步驟檔案可以適用
但是可以再請問您
我將欄位放大
所以程式碼直接修正到"L"欄去..可是會無法執行
可以請您指導嗎?謝謝您...

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
13#
發表於 2010-7-15 10:58 | 只看該作者
本帖最後由 Hsieh 於 2010-7-15 11:13 編輯

回復 12# PD961A
1.rar (10.87 KB)
以第一列顏色做判斷
先定義名稱x
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A1], [IV1].End(xlToLeft))
  4. d(a.Value) = a.Interior.ColorIndex
  5. Next
  6. [x].Interior.ColorIndex = 0
  7. If Intersect(Target, Union([x], Range([A1], [IV1].End(xlToLeft)))) Is Nothing Then Exit Sub
  8.    For Each a In [x]
  9.      a.Interior.ColorIndex = d(a.Value)
  10.    Next
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2010-7-15 12:52 | 只看該作者
回復 13# Hsieh


    版主謝謝您
程式RUN後可以適用
謝謝您

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2010-7-15 15:15 | 只看該作者
回復 12# PD961A


我將欄位放大 所以程式碼直接修正到"L"欄去..可是會無法執行
  
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1,A2=$D$1,A2=$E$1,A2=$F$1,A2=$G$1,A2=$H$1,A2=$I$1,A2=$J$1,A2=$K$1,A2=$L$1)"

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
12
返回列表 上一主題