1234
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5# 跳轉到 »
發表於 2015-12-28 19:22 | 只看該作者
回復 4# 藍天麗池
  1. Sub RecordPrice()
  2.     Dim WR As Long

  4.     '  ActiveWindow.ScrollRow = WR - 5 '  只顯示最新幾筆資料
  5.     Application.ScreenUpdating = False

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

  10.         WR = Range("A1").End(xlDown).Row + 1
  11.         If (WR = 3) Or _
  12.                 (.Range("G" & WR - 1) <> .Range("G2")) Then  ' 總量有異動時才記錄
  13.             .Rows(3).Insert
  14.             .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
  15.             .[A3].Resize(1, 8).Font.FontStyle = "粗體"
  16.         End If
  17.     End With

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

TOP

藍天麗池

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

請問C大這個程式碼要加在哪裡啊??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2015-12-28 08:08 | 只看該作者
回復 1# 藍天麗池
提供參考：
  1.         .[A3].Resize(1, 8).Font.FontStyle = "粗體"
複製代碼

TOP

藍天麗池

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

變動記錄.rar (20.51 KB) 回復 1# 藍天麗池


1.目前適用條件格式化的方式處理，但是原先的程式碼往下寫的時候只會寫入值，可以改成往下寫不要以條件格式化的方式出現 ，單純就將字體變粗就好(就像我們將一個儲存格內的字體變粗這樣)，這樣可以嗎??
2. 另外，我下面設定的自動捲動，可以改成開關的方式嗎(就是可以用熱鍵開關的方式)??  
謝謝G大，最近上來論壇的人好少，還以為連G大都沒再上來了呢

TOP

        靜思自在 : 原諒別人就是善待自己。
1234
返回列表 上一主題