標題: 參照儲存格註解名稱做加總 [打印本頁]

---

作者: myleoyes    時間: 2010-11-6 23:05     標題: 參照儲存格註解名稱做加總

各位前輩你們好!
         前輩!問題如附檔案說明
         請知道的前輩,不吝賜教謝謝再三!!

---

作者: Hsieh    時間: 2010-11-6 23:35

回復 1# myleoyes

1. Sub aa()
   
2. Dim A As Range
   
3.     Range("A1:A2") = ""
   
4.     Z = Application.InputBox("請輸入尋找名稱", "項目名稱", "科技", Type:=2)
   
5.     If Z = 0 Or Z = "" Then End
   
6.     Range("A1") = Z
   
7.     For Each A In Cells.SpecialCells(xlCellTypeComments)
   
8.        If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
   
9.     Next
   
10.     Range("A2").Value = cnt
    
11. End Sub

複製代碼

---

作者: myleoyes    時間: 2010-11-7 10:49

回復 2# Hsieh
hsieh前輩你好!
       偶像前輩!可以謝謝!!請再麻煩一下
       當程式找不到A1的名稱時
       程式自動提示"找不到名稱"請重新輸入
       謝謝再三!!

---

作者: oobird    時間: 2010-11-7 14:48

If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
Next
if cnt=0 then magbox "找不到名稱請重新輸入":end
Range("A2").Value = cnt

---

作者: myleoyes    時間: 2010-11-8 21:18

回復 4# oobird
oobird前輩你好!
      前輩!!可以囉!
      If cnt = 0 Then MsgBox "找不到名稱請重新輸入": GoTo Again
      謝謝再三!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)