本案例载自书《Excel VBA程序开发自学宝典(第2版)》第425页
http://book.360buy.com/10828272.html