vba某段日期間數據加法運算怎麽寫

'已在EXCEL2007中測試通過'

Private?Sub?CommandButton1_Click()

LASTROW?=?Sheets("數據").Range("A65536").End(xlUp).Row

For?I?=?2?To?LASTROW

時間?=?Hour(Cells(I,?1))?&?":"?&?Minute(Cells(I,?1))

If?Sheets("數據").TextBox1?=?時間?Then

A?=?I?'取出起行的行號'

Exit?For

End?If

Next

For?I?=?2?To?LASTROW

時間?=?Hour(Cells(I,?1))?&?":"?&?Minute(Cells(I,?1))

If?Sheets("數據").TextBox2?=?時間?Then

B?=?I?'取出止行的行號'

End?If

Next

'?MsgBox?"起行行號:"?&?A?&?"止行行號:"?&?B

For?I?=?A?To?B

S?=?S?+?Sheets("數據").Cells(I,?3)

Next

TextBox3?=?S

End?Sub

上一篇:EDA 介質中的彈性波

下一篇:用c++語言編程輸出Fibonacci數列的前40個數