麻辣家族討論版版 » Excel程式區 » 請問如何一次變更多個儲存格的條件格式

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

請問如何一次變更多個儲存格的條件格式

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-2-5 17:38 | 只看該作者

請問如何一次變更多個儲存格的條件格式

如題
那麼判斷式是成交價>昨收價為紅色
成交價<昨收價為綠色
如果很多格要一起做同樣的事情，該如何解決呢？

樓主熱帖

收藏

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 20
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 女
註冊時間: 2011-9-7
最後登錄: 2012-2-10

2^#

發表於 2012-2-5 18:27 | 只看該作者

格式→設定格式化條件

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

3^#

發表於 2012-2-5 20:31 | 只看該作者

那如果用VBA的方式來執行呢？

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

4^#

發表於 2012-2-5 21:48 | 只看該作者

也可以使用"複製格式"的刷子，可以快很多!!

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2012-2-6 08:53 | 只看該作者

簡單來說 ..
IF  A(成交價)>B(昨收價) then
range("xx").select '(儲存格選取)
   With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 255
      .TintAndShade = 0
      .PatternTintAndShade = 0
   End With
  endif
IF  A(成交價)>B(昨收價) then
range("xx").select '(儲存格選取)

      With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 5287936
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With

超級版主 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^#

發表於 2012-2-6 09:47 | 只看該作者

回復 3# leefing
上傳檔案看看

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

7^#

發表於 2012-2-6 21:53 | 只看該作者

回復 6# GBKEE

看盤1.rar (8.24 KB)
檔案上傳了，那個條件格式目前我是用手動的，但是覺得有點麻煩
畢竟目前東西少少的

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-2-6 23:54 | 只看該作者

回復 7# leefing

Sub QQ()
For R = 2 To [A65536].End(xlUp).Row
If Cells(R, "F") < Cells(R, "Q") Then
Cells(R, "F").Interior.ColorIndex = 35
ElseIf Cells(R, "F") > Cells(R, "Q") Then
Cells(R, "F").Interior.ColorIndex = 38
Else: Cells(R, "F").Interior.ColorIndex = xlNone
End If
Next R
End Sub

複製代碼

看盤1.rar (10.46 KB)

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

9^#

發表於 2012-2-7 02:00 | 只看該作者

回復 8# register313

哇，謝謝R大，整個就是很簡潔

我以為還要宣告一堆。這樣就可以應用很多地方了!

中學生 Rank: 2

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

10^#

發表於 2012-2-7 02:33 | 只看該作者

回復 8# register313

我把VBA貼回excel檔，結果沒反應，是因為我的是連DDE的嗎？
我下載你的檔案按有用，但是到別張sheet就沒反應了

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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