12
返回列表 上一主題 發帖

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

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-23 14:41 | 顯示全部帖子

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

Sub RecordPrice()
Dim WR As Long
Dim I As Long

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
   Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
        If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
    End With
End Sub

以上程式碼如果我要將A1粗體的數字往下寫，Cells(WR, I) = Cells(2, I)這個地方要怎麼改??
目前往下寫粗體就會消失了
收藏 分享

藍天麗池

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

藍天麗池

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

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

TOP

藍天麗池

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

出現語法錯誤在以下程式碼
If (WR = 3) Or _

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

另外請教一下C大，我目前在G2有設定格式條件G2>9才變粗體(之後可能還會設定別的條件在第2欄的儲存格)，請教一下C大妳的程式碼事都讓所有的數字變粗體，還是只有第二欄變粗體往下寫才變粗體呢??

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
5#
發表於 2015-12-29 10:28 | 顯示全部帖子
回復 8# c_c_lai


    C大感謝你，另外再跟你請教一下，你目前寫的程式碼在G列變成全部的儲存格都有格式化條件了，可以改成只有G2去做判定，如果大於9往下寫入粗體就好，而不要連同格式化條件一起寫入，這樣可以嗎??

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
6#
發表於 2015-12-29 20:19 | 顯示全部帖子
本帖最後由 藍天麗池 於 2015-12-29 20:25 編輯

回復 10# c_c_lai

C大，我在2樓附的的檔案裡面你下載後打開G2那邊有設定格式化條件(像以下連結的東西)，我希望往下寫的東西不要出現格式化條件，而單純的就字體變粗就好，這樣C大有比較好理解嗎??抱歉問得有點模糊
http://www.techbang.com/posts/9686-excel-formatting-set-conditions-focus-at-a-glance

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
7#
發表於 2015-12-29 21:22 | 顯示全部帖子
本帖最後由 藍天麗池 於 2015-12-29 21:36 編輯

變動記錄.rar (23.95 KB) 回復 12# c_c_lai


   
不是#12的那個東西，C大妳比較一下兩張圖，再看一下我#11所回的內容
C大左圖裡面的G3是有格式化條件的，但右圖H3是沒有的，我的意思是在往下寫的過程中由G2判斷，寫到G3.G4...一直往下寫都不要格式化條件裡面出現公式，像H3裡面一樣是沒有公式但變粗體，這樣可以嗎??

我指的公式不是儲存格內的，而是格式化條件裡面的

PS.我要的最終結果就是G3.G4...所有的G欄裡面都沒有格式化條件，但是裡面的數值大於9就變粗體

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
8#
發表於 2015-12-29 21:44 | 顯示全部帖子
本帖最後由 藍天麗池 於 2015-12-29 21:53 編輯

回復 12# c_c_lai


    我的想法是程式碼裡面不能出現以下程式碼，因為我已經有在其他地方輸入公式判斷G2>9變粗體，是否只要改變寫入方式就可以了呢??但我不知道是否正確

.[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")

寫入方式改變指的是，如果這一秒A2~H2都是一般字體，那A3~H3就寫入一般字體，如果下一秒A2~F2為一般字體、G2.H2為粗體，那A4~F4就寫入一般字體、G2.H2則寫入粗體，以此類推，上面怎麼變下面就怎麼寫，而不是另外寫公式去判斷，這樣可以嗎??

TOP

藍天麗池

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

C大感謝我已經解決問題了，謝謝

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
10#
發表於 2015-12-29 22:41 | 顯示全部帖子
回復 12# c_c_lai


    C大上面的問題我都解決了，但是還有一個小問題請教一下，如果我手動更改G2的值為什麼不會往下寫呢??

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
12
返回列表 上一主題