字串中某幾個字元變色

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

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就會去把作用中的工作表所有被使用儲存格做檢查

學海無涯_不恥下問

rph

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 33
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2024-11-8

10^#

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

本帖最後由 rph 於 2011-4-14 11:48 編輯

TO Hsieh
今天我已將版主的程式碼貼到EXCEL測試,測試OK(我有把第5行的USEDRANGE改成RANGE("A1:A6"),要不然會有錯誤)
DIM A AS RANGE 就是宣告A為RANGE物件 P.S我剛有測試,沒宣告程式一樣可以跑,可否說明差異??
For Each A In Range("A1:B6") 這行程式碼是否代表將"A1儲存格的值"放入"A",再去作判斷,再來就變成"A2儲存格的值"放入"A",以此類推

感謝!!

Hsieh

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

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

9^#

發表於 2011-4-13 18:17 | 只看該作者

回復 6# 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
Next
End Sub

複製代碼

學海無涯_不恥下問

rph

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 33
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2024-11-8

8^#

發表於 2011-4-13 17:32 | 只看該作者

我剛才已去了解,也了解了[ ] =Application.Evaluate方法,感謝您的說明!

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-4-13 17:22 | 只看該作者

回復 6# rph
Address 的用法可看 VBA的說明
VBA 可用工作表函數說明尋找如圖

rph

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 33
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2024-11-8

6^#

發表於 2011-4-13 16:56 | 只看該作者

1.先回應Hsieh版大
我的小程式就只認我輸入的字串,譬如輸入"A",那字串中"123AAA444",就第1個"A"變色
因為我的程式主要功能就是輸入KEY之後,就找出符合KEY之資料,並且列出

2.再請教一下GBKEE,我剛才RUN了你的程式碼,MSGBOX出現$A$1的絕對位址訊息,這樣是代表???

3.工作表函數在哪可查的到???我看EXCEL的函數裡有SEARCH這個函數

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-4-13 15:18 | 只看該作者

本帖最後由 GBKEE 於 2011-4-13 15:19 編輯

回復 3# rph
加上 Application.Search 的函數是使用工作表的函數
正式的語法為 Application.WorksheetFunction.Search

可否說明一下這句的語法及為何要用"[]"

[ ] =Application.Evaluate方法

Sub Ex()
MsgBox Application.Evaluate("Sheet1!a1").Address
MsgBox [Sheet1!a1].Address
End Sub

複製代碼

Hsieh

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

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

4^#

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

這問題要牽涉到搜尋字串的搜尋模式問題
以此例來說如果搜尋直指輸入A
那要3個A都變色還是第一個A變色?

學海無涯_不恥下問

rph

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 33
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2024-11-8

3^#

發表於 2011-4-13 10:37 | 只看該作者

這是我之前寫的程式碼,語法如有使用錯誤,請多包涵(因為我是自學)
順便在此感謝yanto913 的協助!!我在DEBUG中,已了解你寫的方式
再請教一下!!
Application.Search([a1], [b1])在EXCEL VBA功能索引式參考手冊,我找不到用法!!
可否說明一下這句的語法及為何要用"[]"
Sub 按鈕4_Click()

Dim A As String

A = InputBox("字串", "請輸入字串")

MsgBox A

Cells(1, 5) = A

B = 2

ActiveSheet.Range("I4

1000").Clear

Do Until InStr(1, Cells(B, 2).Value, A, 1)

      B = B + 1

   If B >= 100 Then

   MsgBox "您輸入的姓名是： " & A, vbOKOnly + vbCritical, Title:="查無此字串"

   A = InputBox("請重新輸入字串")

   B = 2

   End If

   Loop

X = 4

For B = 2 To 100

   If InStr(1, Cells(B, 2).Value, A, 1) Then


      Cells(X, 9) = Cells(B, 1)

      Cells(X, 10) = Cells(B, 2)

      Cells(X, 11) = Cells(B, 3)

      Cells(X, 12) = Cells(B, 4)

      XX = Len(Cells(1, 5).Value)

      yy = Application.Search(Cells(1, 5).Value, Cells(X, 10).Value)

      Cells(X, 10).Select

      With ActiveCell.Characters(Start:=yy, Length:=XX).Font

         .Bold = True

         .ColorIndex = 3

      End With

      X = X + 1

   End If

Next

End Sub