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

藍天麗池

中學生 Rank: 2

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

15^# 跳轉到 »

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

回復 12# c_c_lai

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

TOP

藍天麗池

中學生 Rank: 2

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

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

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

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

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

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

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

10^#

發表於 2015-12-29 18:56 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-29 19:00 編輯

回復 9# 藍天麗池
不好意思請問「同格式化條件」指的是甚麼？
能否說明一下，這樣我才知你要的是什麼。
最好有個例子畫葫一下，因為我還沒反應過來。

TOP

藍天麗池

中學生 Rank: 2

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

9^#

發表於 2015-12-29 10:28 | 只看該作者

回復 8# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

8^#

發表於 2015-12-29 07:56 | 只看該作者

回復 6# 藍天麗池

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

複製代碼

與

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

複製代碼

是個完全不同的敘述，『_』接續的語句後面是不能有空行的，否則會是個「不合法的語法」。
另外你要哪個部位要顯示『粗體』，是你個人自行設定的。範例只是要告訴你設定的方法，
.[A3].Resize(1, 8).Font.FontStyle = "粗體" 是設定該行全為『粗體』，若你只要 G 欄設定為
『粗體』，則便應改成 .[G3].Font.FontStyle = "粗體"。隨你個人之應用。假設 G2 > 9 才變
為粗體，則更改成「 .[G3].Font.FontStyle = IIf(.[G2] > 9, "粗體", "標準")」即可。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

7^#

發表於 2015-12-29 07:54 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-29 08:03 編輯

回復 6# 藍天麗池
.

TOP

藍天麗池

中學生 Rank: 2

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

6^#

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

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

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