藍天麗池

回復 10# c_c_lai

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

下載 (163.38 KB)

2015-12-29 20:24

下載 (85.11 KB)

2015-12-29 20:24

c_c_lai

回復 11# 藍天麗池

下載 (32.39 KB)

2015-12-29 20:37

藍天麗池

變動記錄.rar (23.95 KB)

下載次數: 3

2015-12-29 21:14

回復 12# c_c_lai


   

下載 (48.32 KB)

2015-12-29 21:18

下載 (44.94 KB)

2015-12-29 21:18

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

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

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

藍天麗池

回復 12# c_c_lai


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

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

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

藍天麗池

回復 12# c_c_lai

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

藍天麗池

回復 12# c_c_lai


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

c_c_lai

回復 16# 藍天麗池
設定程序：

下載 (52.1 KB)

2015-12-30 07:27

測試結果：

下載 (67.33 KB)

2015-12-30 07:28

藍天麗池

回復 17# c_c_lai


    可是我們的公式不是設定G2有變動就往下寫嗎??但是我一直更改G2的值，他只有第一次會往下寫，之後不管我怎麼更改就都不會往下寫了，這是為什麼呢??

c_c_lai

回復 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) 方式來看，
       依我個人的處理習慣，我是不會拿資料錄最底下(最後)一筆的記錄之值做比對，因為目前之
       第三列的匯入值才是你最後之匯入值 (最新的匯入值)。所以經你一說我才明了你最後表達的意思。
       應該是：

1.         If (WR = 3) Or (.[G3] <> .[G2]) Then      ' 總量有異動時才記錄

複製代碼

藍天麗池

回復 19# c_c_lai

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