- 帖子
- 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 |
|
發表於 2011-4-13 14:14
| 
