- 帖子
- 116
- 主題
- 29
- 精華
- 0
- 積分
- 232
- 點名
- 0
- 作業系統
- winXp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 台灣台中市
- 註冊時間
- 2010-9-6
- 最後登錄
- 2023-7-11
|
A1輸入AAA，B1輸入111AAA333
- Private Sub CommandButton1_Click()
- On Error Resume Next
- xx = Len([a1])
- yy = Application.Search([a1], [b1])
- Range("B1").Select
- With ActiveCell.Characters(Start:=yy, Length:=xx).Font
- .ColorIndex = 3
- End With
- End Sub
|
|
發表於 2011-4-13 09:20
| 