返回列表 上一主題 發帖

以註解內容加總

myleoyes

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

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-12-4 22:46 | 只看該作者

以註解內容加總

各位前輩你們好!
Sub Ex()
        [CR1:CR30] = ""
        [CR3] = "名稱"
        [CR4] = "常態"
        [CR5] = "額外"
        [CR6] = "特別"
        [CR7] = "補助額"
Ag:
        ZZ = Application.InputBox("選取名稱", " 請選取CR欄名稱", "補助額", Type:=8)
        If ZZ = 0 Or ZZ = "" Then GoTo Ag
        [CR2] = ZZ
        [CR1] = 71
End Sub
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

LeoV72.rar (13.55 KB)

收藏 分享

myleoyes

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

論壇贊助勳章論壇榮譽勳章
5#
發表於 2012-12-6 21:15 | 只看該作者
回復 4# Hsieh
偶像前輩!偶像就是偶像果然利害謝謝再三!!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-12-5 23:20 | 只看該作者
回復 3# myleoyes
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. d("名稱") = ""
  4. With Range("M79").Comment
  5. mystr = .Text
  6. ar = Split(mystr, Chr(10))
  7. For Each a In ar
  8.    b = Split(a, " ")
  9.    x = b(0): y = b(1): z = b(2)
  10.    s = d.Count
  11.    If IsEmpty(d(y)) Then ActiveSheet.Cells(3 + s, "CR").Name = y
  12.    d(y) = d(y) + Val(z)
  13. Next
  14. End With
  15. [CR3].Resize(d.Count, 1) = Application.Transpose(d.keys)
  16. 10
  17. asw = Application.InputBox("選取名稱", " 請選取CR欄名稱", "補助額", Type:=8)
  18. If d.exists(asw) = False Then GoTo 10
  19. [CR2] = asw: [CR1] = d(asw)
  20. End Sub
複製代碼
學海無涯_不恥下問

TOP

myleoyes

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

論壇贊助勳章論壇榮譽勳章
3#
發表於 2012-12-5 21:13 | 只看該作者
回復 2# GBKEE
良師!謝謝!!因為小弟沒有解釋清楚
     所以程式只對一半?
     因為名稱的清單是要由程式
     依據註解內容自動建立的
     而非手動[CR4] = "常態",[CR5] = "額外"..等等
     請再麻煩教導辛苦囉謝謝再三!!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-12-5 08:37 | 只看該作者
回復 1# myleoyes
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ZZ, S, MySum As Integer, E
  4.     [CR1:CR30] = ""
  5.     [CR3] = "名稱"
  6.     [CR4] = "常態"
  7.     [CR5] = "額外"
  8.     [CR6] = "特別"
  9.     [CR7] = "補助額"
  10. Ag:
  11.     ZZ = Application.InputBox("選取名稱", " 請選取CR欄名稱", "補助額", Type:=8 + 2)
  12.     'VBA的說明: Type 可為以上允許值的和。例如，對可輸入文字和數位輸入方塊，可將 Type 設定為 1 + 2。
  13.     'Type:=8 + 2: 因直接按下InputBox時為文字 設定Type:=8 會有錯誤
  14.     If ZZ = 0 Or ZZ = "" Then GoTo Ag
  15.     [CR2] = ZZ
  16.     S = Split([M79].NoteText, Chr(10))  '註解文字轉入陣列
  17.     For Each E In S
  18.         If InStr(E, ZZ) Then MySum = MySum + Val(Mid(E, InStr(E, ZZ) + Len(ZZ)))
  19.     Next
  20.     [CR1] = MySum
  21. End Sub
複製代碼

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題