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

超級版主 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兔年全勤獎章

2^#

發表於 2010-7-14 17:46 | 只看該作者

回復 1# PD961A

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

TOP

PD961A

版主 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兔年全勤獎章

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

超級版主 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兔年全勤獎章

4^#

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

複製代碼

TOP

PD961A

版主 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兔年全勤獎章

5^#

發表於 2010-7-14 19:58 | 只看該作者

回復 4# GBKEE

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

1.rar (7.46 KB)

TOP

GBKEE

超級版主 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兔年全勤獎章

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

超級版主 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兔年全勤獎章

7^#

發表於 2010-7-14 22:02 | 只看該作者

回復 5# PD961A

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

學海無涯_不恥下問

TOP

victorl

中學生 Rank: 2

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

版主 Rank: 7 Rank: 7 Rank: 7

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

中學生 Rank: 2

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