- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 247
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-14
              
|
14#
發表於 2018-3-2 14:29
| 只看該作者
本帖最後由 Hsieh 於 2018-3-2 14:49 編輯
回復 13# afu9240
你工作表1的欄位改變
Private Sub CommandButton4_Click() '匯入計算按鈕
Set d = CreateObject("Scripting.Dictionary")
s = DateValue(ComboBox2 & "/" & ComboBox3 & "/1")
x = DateAdd("m", 1, DateValue(ComboBox5 & "/" & ComboBox4 & "/1")) - 1
With 工作表1
For Each a In .Range(.[A2], .[A2].End(xlDown))
If a >= s And a <= x Then
d(a.Offset(, 1).Value) = d(a.Offset(, 2).Value) + a.Offset(, 2)
End If
Next
End With
With Sheets("總表")
For Each a In .[C3:C13]
a.Offset(, 1) = d(a.Value)
Next
End With
End Sub |
|
發表於 2018-3-1 16:31
| 
