12
返回列表 上一主題 發帖

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

PD961A

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

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-14 08:19 | 只看該作者

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

excel 2003或以前的 格式化條件 只可以 有3種條件, 再加條件的話要用上vba 寫一個 格式化條件 出來了
kimbal 發表於 2010-7-13 20:39

http://forum.twbts.com/viewthread.php?tid=822
謝謝先進KIMBAL的回文
可以麻煩知道的先進用VBA寫格式化條件嗎?
謝謝..
收藏 分享

GBKEE

帖子
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 17:46 | 只看該作者
回復 1# PD961A

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

TOP

PD961A

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

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-7-14 18:18 | 只看該作者
本帖最後由 PD961A 於 2010-7-14 18:22 編輯
回復  PD961A

你可以試著用錄製新巨集 看看
GBKEE 發表於 2010-7-14 17:46



    GBKEE版主..謝謝您
但是可以請問您
當第一列A1.B.C~假設到H1
輸入數字(預設為1~100)
但是底下的資料會變動位子(資料會因為人為輸入而產生重複的地方)
因此當第一列輸入今天作好的數字共8欄(~H欄).....(希望可以不限制到H欄)
EX:31.32.33.34.35.36.37輸入完就可以知道底下哪個資料跟上面這些數字重複了

這樣的情況下要如何錄製新巨集?
謝謝您..

TOP

GBKEE

帖子
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-14 19:35 | 只看該作者
本帖最後由 GBKEE 於 2010-7-14 19:37 編輯

回復 3# PD961A
是不是這個方向
  1. Sub Macro1()
  2. ' Macro1 Macro
  3. ' hsu 在 2010/7/14 錄製的巨集
  4.     Range("A2:H17").Select
  5.     Selection.FormatConditions.Delete
  6.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  7. ' 依附檔錄製後修正的"=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  8.     Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
  9.     With Selection.FormatConditions(1).Interior
  10.         .ColorIndex = 6
  11.         .Pattern = xlSolid
  12.     End With
  13. End Sub
複製代碼

TOP

PD961A

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

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


    謝謝版主
可以請問是放在一般的Macro1()嗎?
換過數字後沒有改過
謝謝您
1.rar (7.46 KB)

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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()程式 才會有作用

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2010-7-14 22:02 | 只看該作者
回復 5# PD961A


    如果你是2003版以前版本要用條件格式是不能做到3種條件以上
回一般區看原發文有沒有得到解答
如果沒有那就把需求說清楚
學海無涯_不恥下問

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
8#
發表於 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

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
9#
發表於 2010-7-15 00:31 | 只看該作者
謝謝先進KIMBAL的回文
可以麻煩知道的先進用VBA寫格式化條件嗎?
謝謝..
PD961A 發表於 2010-7-14 08:19



    我也來解解鈴吧 , 顏色跟第一行的一樣
twbts20100715format.zip (12.22 KB)
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

victorl

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


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

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題