字串中某幾個字元變色 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 字串中某幾個字元變色

返回列表下一主題上一主題發帖

字串中某幾個字元變色

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2011-4-14 11:10 | 只看該作者

回復 10# rph

Private Sub CommandButton1_Click()
Dim A As Range
fc = InputBox("輸入字串", , "A") '輸入欲搜尋字元
s = Len(fc) '輸入字串的字元數
For Each A In UsedRange '在按鈕所在工作表的已使用儲存格中作迴圈
k = InStr(A, fc) '欲搜尋字元在儲存格中第幾個字元出現
If k > 0 Then A.Characters(k, s).Font.ColorIndex = 3 'K>0表示有這個字串存在，就將儲存格第k字元開始取s個字元長度改為紅色字體
Next
End Sub

複製代碼

你必須改掉usedrange才能使用，應該是你的程式是寫在一般模組，不是工作表模組的原因
改成ActiveSheet.UsedRange就會去把作用中的工作表所有被使用儲存格做檢查

學海無涯_不恥下問

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題