用VBA实现中的交互功能