使用道具 举报
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$10" Then Sheets("" & Target.Value).Activate End Sub
新建文件夹.zip
2014-8-9 08:22 上传
点击文件名下载附件
7.77 KB, 下载次数: 28
查看全部评分
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-4-26 01:56 , Processed in 0.266874 second(s), 10 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.