- 帖子
- 233
- 主題
- 53
- 精華
- 0
- 積分
- 292
- 點名
- 0
- 作業系統
- WinXp
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-1-6
- 最後登錄
- 2024-3-8
|
本帖最後由 jackson7015 於 2014-5-8 09:09 編輯
回復 10# GBKEE
感謝GBKEE版大的幫忙
可以正常運作了
自己所需要的部分是下面的那些程式碼，刪除了些不需要的部分
vb的程式碼都不會編寫，都只會一些簡單的一般區編寫
感謝版大的無心付出
想再請問版大MsgBox的問題
如果我想在下列的程式碼中插入一則"查詢中"的MsgBox，但是會在搜尋結束後，MsgBox視窗會自動消除
那種MsgBox語法該怎麼編寫 ?
查詢了站上資料，找不太到MsgBox自動結束的相關資料- Sub 查詢資料()
- Dim F As Range, AD As String, Rng As Range, xRng As Range
- Set xRng = Sheets("查詢用表單").[A5]
- With Sheets("綜合資料庫").UsedRange
- Set F = .Find(xRng, LOOKAT:=xlPart)
- If Not F Is Nothing Then AD = F.Address
- Do While Not F Is Nothing
- If Rng Is Nothing Then
- Set Rng = .Rows(F.Row)
- Else
- Set Rng = Union(Rng, .Rows(F.Row))
- End If
- Set F = .FindNext(F)
- If F.Address = AD Then Exit Do
- Loop
- End With
- If Not Rng Is Nothing Then
- Rng.Copy xRng.Offset(, 1)
- MsgBox "查詢結束"
- Else
- xRng.Offset(, 1).Resize(, 50) = ""
- End If
- End Sub
|
|
發表於 2014-4-29 09:07
| 
