(已解決)浮動區域的作業 - Excel程式區

[發問] (已解決)浮動區域的作業

21^# 跳轉到 »

發表於 2011-3-11 13:48 | 只看該作者

Sub revisedprogram()
Dim myrange As Range, downlimit As Range, uplimit As Range, rightlimit As Range, myregion As Range
Dim a, H, i
Set myrange = Range("a65536").End(xlUp)
Set downlimit = myrange
Set uplimit = downlimit.End(xlUp)
Set rightlimit = downlimit.End(xlToRight)
Set myregion = Range(uplimit, rightlimit)
H = 0
i = 0
For Each a In Range(uplimit, downlimit)
'if a.offset(,5) = "??材料倉" and a.offset(,6) = "?" ? => 自己填入所需的篩選項
H = H + a.Offset(, 7).Value
i = i + a.Offset(, 8).Value
'end if
Next
downlimit.Offset(1, 6) = "小計"
downlimit.Offset(1, 7) = H
downlimit.Offset(1, 8) = i
downlimit.Offset(1, 9) = H / i
downlimit.Offset(1, 7).Interior.ColorIndex = 6
downlimit.Offset(1, 8).Interior.ColorIndex = 6
downlimit.Offset(1, 9).Interior.ColorIndex = 6
End Sub

複製代碼

應該這樣吧,如果沒有事先篩選,把綠色字串最初的那個 ' 拿掉,輸入所需就行

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。