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

藍天麗池

中學生 Rank: 2

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

25^# 跳轉到 »

發表於 2015-12-31 13:59 | 只看該作者

回復 23# c_c_lai

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

TOP

藍天麗池

中學生 Rank: 2

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

24^#

發表於 2015-12-31 08:43 | 只看該作者

回復 23# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

23^#

發表於 2015-12-31 07:59 | 只看該作者

回復 20# 藍天麗池

Sub RecordPrice() ' 往下遞增模式
Dim WR As Long
Application.ScreenUpdating = False
With Sheets("RTD")
If .Range("H2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or (.Range("G" & WR - 1) <> .[G2]) Then ' 總量有異動時才記錄
.Range("A" & WR).Resize(1, 8) = .[A2].Resize(1, 8).Value
.Range("G" & WR).Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
.Range("G" & WR).Font.Color = IIf(.[G2] > 9, 255, 2)
End If
End With
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

22^#

發表於 2015-12-31 07:58 | 只看該作者

回復 21# 藍天麗池

Sub RecordPrice() ' 從第三行插入模式
Dim WR As Long
Application.ScreenUpdating = False
With Sheets("RTD")
If .Range("H2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or (.[G3] <> .[G2]) Then ' 總量有異動時才記錄
.Rows(3).Insert
.[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
.[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")
.[G3].Font.Color = IIf(.[G2] > 9, 255, 2)
End If
End With
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

藍天麗池

中學生 Rank: 2

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

21^#

發表於 2015-12-30 23:07 | 只看該作者

回復 19# c_c_lai

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

TOP

藍天麗池

中學生 Rank: 2

帖子: 364
主題: 39
精華: 0
積分: 404
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-4-18

20^#

發表於 2015-12-30 20:21 | 只看該作者

回復 19# c_c_lai

C大謝謝你，大致上是沒問題了，如果我要改回以往的方式將最新的資料往下寫是不是只要把.Rows(3).Insert刪掉就好??
還是其他地方也要修改呢??

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

19^#

發表於 2015-12-30 08:55 | 只看該作者

回復 18# 藍天麗池
我終於了解你的意思了。
因為當初你的原始程式裡，有如下之條件：
(1)
      If .Range("H2") < 1 Then Exit Sub '  當 H2 值小於 1 時則不處理，直接逕行跳離。
(2)
      WR = Range("A1").End(xlDown).Row + 1

      If (WR = 3) Or (.Range("G" & WR - 1) <> .Range("G2")) Then  ' 總量有異動時才記錄

      當所有紀錄為空，亦或是 G2 欄值與最後一筆的值不等時才去寫入第三列 (Rows(3)) 之
      資料。你檢查一下你資料錄最後一筆之 G 欄值為何，是否與 G2 欄值一致？
      因為我不知你原先意圖為何，只能照舊寫入。從第三列的匯入 (.Rows(3).Insert) 方式來看，
   依我個人的處理習慣，我是不會拿資料錄最底下(最後)一筆的記錄之值做比對，因為目前之
   第三列的匯入值才是你最後之匯入值 (最新的匯入值)。所以經你一說我才明了你最後表達的意思。
   應該是：