- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# hugh0620 - Private Sub CommandButton1_Click()
- Dim st1 As String, ed1 As String '宣告為字串
- Dim B As Range, C As Range, a As Integer, i As Integer
- a = Sheet3.Range("D65536").End(xlUp).Row '***Sheet4 D欄沒資料 A永遠是1
- For i = 3 To A '*** A=1 不會執行迴圈
- '月份1
- If Sheet3.Range("AD" & i) = "" Then
- GoTo 1
- Else
- If Sheet3.Range("AE" & i) = "" Then
- st1 = Sheet3.Range("Z" & i) '傳回字串
- ed1 = Sheet3.Range("AA" & i) '傳回字串
- Else
- st1 = Sheet3.Range("Z" & i) '傳回字串
- ed1 = Sheet3.Range("AJ" & i) '傳回字串
- End If
-
- Set B = Sheet4.Columns("E").Find(st1, LookIn:=xlValues) 'LookIn:=xlValues 內容為字串
- Set C = Sheet4.Columns("E").Find(ed1, LookIn:=xlValues)
- If Not B Is Nothing And Not C Is Nothing Then 'B , C 皆須為Range(有找到)
- Sheet3.Range("AS" & i) = Application.Sum(Sheet4.Range(B.Offset(, 1), C.Offset(, 1)))
- End If
- End If
- 1
- Next
- End Sub
|
|
發表於 2011-12-29 15:24
| 