- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
回復 3# myleoyes - Sub nn()
- Set d = CreateObject("Scripting.Dictionary")
- d("名稱") = ""
- With Range("M79").Comment
- mystr = .Text
- ar = Split(mystr, Chr(10))
- For Each a In ar
- b = Split(a, " ")
- x = b(0): y = b(1): z = b(2)
- s = d.Count
- If IsEmpty(d(y)) Then ActiveSheet.Cells(3 + s, "CR").Name = y
- d(y) = d(y) + Val(z)
- Next
- End With
- [CR3].Resize(d.Count, 1) = Application.Transpose(d.keys)
- 10
- asw = Application.InputBox("選取名稱", " 請選取CR欄名稱", "補助額", Type:=8)
- If d.exists(asw) = False Then GoTo 10
- [CR2] = asw: [CR1] = d(asw)
- End Sub
|
|
發表於 2012-12-5 23:20
| 