Hsieh

回復 10# rph

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

複製代碼

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