請問當A1輸入數字4時找出下列資料同數字的公式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問當A1輸入數字4時找出下列資料同數字的公式

返回列表下一主題上一主題發帖

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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兄寫的程式碼加入後會無法執行

謝謝您們的回文

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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"欄去..可是會無法執行
可以請您指導嗎?謝謝您...

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 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

Private Sub Worksheet_Change(ByVal Target As Range)
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [IV1].End(xlToLeft))
d(a.Value) = a.Interior.ColorIndex
Next
[x].Interior.ColorIndex = 0
If Intersect(Target, Union([x], Range([A1], [IV1].End(xlToLeft)))) Is Nothing Then Exit Sub
For Each a In [x]
a.Interior.ColorIndex = d(a.Value)
Next
End Sub

複製代碼

學海無涯_不恥下問

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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後可以適用
謝謝您

超級版主 Rank: 8 Rank: 8

帖子: 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)"

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

返回列表下一主題上一主題