本案例载自书《Excel　VBA程序开发自学宝典(第2版)》第425页

http://book.360buy.com/10828272.html