1234
返回列表 上一主題 發帖

徵求高手幫我解決一下這個問題

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
21# 跳轉到 »
發表於 2015-12-30 23:07 | 只看該作者
回復 19# c_c_lai


  C大如果G2>9我要改成紅色而且粗體這邊.[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")要怎麼改??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
22#
發表於 2015-12-31 07:58 | 只看該作者
回復 21# 藍天麗池
  1. Sub RecordPrice()      '  從第三行插入模式
  2.     Dim WR As Long

  4.     Application.ScreenUpdating = False

  6.     With Sheets("RTD")
  7.         If .Range("H2") < 1 Then Exit Sub

  9.         WR = Range("A1").End(xlDown).Row + 1

  11.         If (WR = 3) Or (.[G3] <> .[G2]) Then   ' 總量有異動時才記錄
  12.             .Rows(3).Insert
  13.             .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
  14.             .[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
  15.             .[G3].Font.Color = IIf(.[G2] > 9, 255, 2)
  16.         End If
  17.     End With

  19.     Application.ScreenUpdating = True
  20. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
23#
發表於 2015-12-31 07:59 | 只看該作者
回復 20# 藍天麗池
  1. Sub RecordPrice()      '  往下遞增模式
  2.     Dim WR As Long

  4.     Application.ScreenUpdating = False

  6.     With Sheets("RTD")
  7.         If .Range("H2") < 1 Then Exit Sub

  9.         WR = Range("A1").End(xlDown).Row + 1

  11.         If (WR = 3) Or (.Range("G" & WR - 1) <> .[G2]) Then  ' 總量有異動時才記錄
  12.             .Range("A" & WR).Resize(1, 8) = .[A2].Resize(1, 8).Value
  13.             .Range("G" & WR).Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
  14.             .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
  15.         End If
  16.     End With

  18.     Application.ScreenUpdating = True
  19. End Sub
複製代碼

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
24#
發表於 2015-12-31 08:43 | 只看該作者
回復 23# c_c_lai

C大謝謝你，這陣子真是麻煩妳了，感謝

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
25#
發表於 2015-12-31 13:59 | 只看該作者
回復 23# c_c_lai


紅色255，那其他顏色呢??例如藍色??
有顏色的對照表嗎??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
26#
發表於 2015-12-31 15:26 | 只看該作者
本帖最後由 c_c_lai 於 2015-12-31 15:29 編輯

回復 25# 藍天麗池
參考看看
或者是
Colors

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
27#
發表於 2016-1-1 12:19 | 只看該作者
本帖最後由 藍天麗池 於 2016-1-1 12:32 編輯

回復 26# c_c_lai


    .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)可是這裡面沒有RGB(0,0,255)選項阿??
那要怎麼改呢??
是改成這樣嗎??.Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(0,0,255), 2)

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
28#
發表於 2016-1-1 13:51 | 只看該作者
回復 26# c_c_lai


     .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)另外255後面的2又是甚麼意思呢??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
29#
發表於 2016-1-1 13:54 | 只看該作者
本帖最後由 c_c_lai 於 2016-1-1 13:57 編輯

回復 27# 藍天麗池
以下四列，都是同義：
  1.         '  方式一
  2.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
  3.         '  方式二
  4.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, RGB(0, 0, 0))
  5.         '  方式三
  6.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(255, 0, 0), 2)
  7.         '  方式四
  8.         .Range("G" & WR).Font.Color = IIf(.[G2] > 9, RGB(255, 0, 0), RGB(0, 0, 0))
複製代碼

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
30#
發表於 2016-1-1 14:40 | 只看該作者
回復 29# c_c_lai


    那如果用方式一改成藍色呢??

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
1234
返回列表 上一主題