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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-7-23 18:30 | 只看該作者

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

小弟，這樣寫之後，並沒有反應....
不知道是哪個環節出錯了，還請各位大大可以幫忙看一下。

搜尋特定範圍內是否有 "刪除線"，找到了就將儲存格變色

Sub test2()
With Worksheets(1).Range("a1:w100")
Set c = .Find(.Font.Strikethrough, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Font.Color = rgbRed
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub

樓主熱帖

蒼雪

中學生 Rank: 2

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

9^#

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

回復 8# ML089

原來是這樣，謝謝指導～

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

蒼雪

中學生 Rank: 2

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

7^#

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

回復 6# ML089

抱歉，我想問的是

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

還麻煩你指導了，謝謝。

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

蒼雪

中學生 Rank: 2

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

5^#

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

回復 4# ML089

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

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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 三鍵輸入公式

TOP

蒼雪