VBA的好例子.很有用.