[發問] Office VBA，在範圍內搜尋有無刪除線並變色

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

2^#

發表於 2017-8-23 15:59 | 只看該作者

尋找功能，可搜尋具刪除線的儲存格

帖子: 44
主題: 9
精華: 0
積分: 80
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2026-7-11

3^#

發表於 2017-8-29 10:12 | 只看該作者

回復 2# joblyc017

使用方面還滿不錯～
因為想達到，自動判別並變色。
所以後續找到下列方式︰

Sub test()
Dim c As Range, x As Long
For Each c In Range("o4:w181")
For x = Len(c.Value) To 1 Step -1
If c.Characters(x, 1).Font.Strikethrough Then
c.Interior.Color = rgbRed
Else
c.Interior.Color = rgbWhite
End If
Next
Next
End Sub

複製代碼

不過因為判別範圍較大的話，會造成lag...所以後續放棄... ...

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2017-8-30 00:00 | 只看該作者

回復 3# 蒼雪

貴式以最後一個字是否有刪除線決定反紅?

若是其中一字有刪除線就反紅，可參考如下
Sub test0()
Dim c As Range, x As Long, S%
For Each c In Range("a1:k30") 'Range("o4:w181")
      S = 0
      For x = Len(c.Value) To 1 Step -1
         If c.Characters(x, 1).Font.Strikethrough Then S = S + 1
      Next
      If S > 0 Then
         c.Interior.Color = rgbRed
      Else
         c.Interior.Color = rgbWhite
      End If
Next
End Sub

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 44
主題: 9
精華: 0
積分: 80
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2026-7-11

5^#

發表於 2017-8-31 21:48 | 只看該作者

回復 4# ML089

這個差別在哪邊呢？
試用後，判斷非常的迅速
S%的部份，以及後面的 S=S+1

抱歉，我處於初學部份，還需要大家的指導～

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2017-8-31 22:33 | 只看該作者

回復 5# 蒼雪

貴式判斷是由尾至頭每個判斷，所以最後第一個字變成控制是否要反紅的控制，
你可以測試刪除線是第二個字以後

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 44
主題: 9
精華: 0
積分: 80
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2026-7-11

7^#

發表於 2017-9-4 19:35 | 只看該作者

回復 6# ML089

抱歉，我想問的是

S%的部份是在處理文字需要第幾個？
若是判斷文字第2個，則改成 S=S+2，這樣嗎？
則 If S>0 改成 >1？

還麻煩你指導了，謝謝。

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2017-9-5 00:01 | 只看該作者

回復 7# 蒼雪

抱歉，我想問的是

S%的部份是在處理文字需要第幾個？
若是判斷文字第2個，則改成 S=S+2，這樣嗎？
則 If S>0 改成 >1？

S = S +1 , 累加計算一條文字中有幾個字有刪除線，
當S=0時表示沒有字沒有刪除線，若S>0表示一條文字中有幾個字有刪除線。

貴程式是檢查每個字就做一次文字反白反紅處理，所以處理比較久一點。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 44
主題: 9
精華: 0
積分: 80
點名: 1
作業系統: windows 7
軟體版本: office 2016
閱讀權限: 20
註冊時間: 2017-7-23
最後登錄: 2026-7-11

9^#

發表於 2017-9-5 18:08 | 只看該作者

回復 8# ML089

原來是這樣，謝謝指導～