返回列表 上一主題 發帖

參照儲存格註解名稱做加總

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-6 23:05 | 只看該作者

參照儲存格註解名稱做加總

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

Leov29.rar (16.33 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
85  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-9 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2010-11-7 10:49 | 只看該作者
回復 2# Hsieh
hsieh前輩你好!
       偶像前輩!可以謝謝!!請再麻煩一下
       當程式找不到A1的名稱時
       程式自動提示"找不到名稱"請重新輸入
       謝謝再三!!

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 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

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
5#
發表於 2010-11-8 21:18 | 只看該作者
回復 4# oobird
oobird前輩你好!
      前輩!!可以囉!
      If cnt = 0 Then MsgBox "找不到名稱請重新輸入": GoTo Again
      謝謝再三!!

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題