- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
回復 1# myleoyes - Sub aa()
- Dim A As Range
- Range("A1:A2") = ""
- Z = Application.InputBox("請輸入尋找名稱", "項目名稱", "科技", Type:=2)
- If Z = 0 Or Z = "" Then End
- Range("A1") = Z
- For Each A In Cells.SpecialCells(xlCellTypeComments)
- If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
- Next
- Range("A2").Value = cnt
- End Sub
|
|
發表於 2010-11-6 23:35
| 