(已解決)浮動區域的作業 - 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! 代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。