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

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

11^# 跳轉到 »

發表於 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

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2015-12-29 20:38 | 只看該作者

回復 11# 藍天麗池

TOP

藍天麗池

中學生 Rank: 2

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

13^#

發表於 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

藍天麗池

中學生 Rank: 2

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

14^#

發表於 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

藍天麗池

中學生 Rank: 2

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

15^#

發表於 2015-12-29 22:23 | 只看該作者

回復 12# c_c_lai

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

TOP

藍天麗池

中學生 Rank: 2

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

16^#

發表於 2015-12-29 22:41 | 只看該作者

回復 12# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

17^#

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

本帖最後由 c_c_lai 於 2015-12-30 07:32 編輯

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

測試結果：

TOP

藍天麗池

中學生 Rank: 2

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

18^#

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

回復 17# c_c_lai

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

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

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

複製代碼

TOP

藍天麗池

中學生 Rank: 2

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

20^#

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

回復 19# c_c_lai

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]