請問當A1輸入數字4時找出下列資料同數字的公式 - Excel程式區

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-7-14 17:46 | 顯示全部帖子

回復 1# PD961A

你可以試著用錄製新巨集看看

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-7-14 19:35 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-7-14 19:37 編輯

回復 3# PD961A
是不是這個方向

Sub Macro1()
' Macro1 Macro
' hsu 在 2010/7/14 錄製的巨集
Range("A2:H17").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
' 依附檔錄製後修正的"=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
With Selection.FormatConditions(1).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

複製代碼

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-7-14 20:15 | 顯示全部帖子

回復 5# PD961A
附檔只有一個工作表程式碼放哪裡都一樣
當程式碼在SHEET物件中 Range("A2:H17").Select  是指SHEET物件工作表的Range
當程式碼在一般Module中 Range("A2:H17").Select  是指做用中SHEET的Range
你要到 VBA 的視窗中將滑鼠移到程式碼的範圍裡按下F5 執行一次  Sub Macro1()程式才會有作用

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 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)"