如何根据单元格内容切换对应工作表的内容

作者：绿色风分类：时间：2022-08-17 浏览：255

楼主芐雨	Q：如何根据单元格内容切换对应工作表的内容 A: 判断单元格内容的工作表名称，通过点击【上一个】或【下一个】按钮，切换工作表，并在把内容填入代码如下： Sub 根据工作表名的切换对应下一个内容_芐雨() On Error GoTo AB '错误出现时跳到AB N = Sheets.Count 'sheet的个数，设为N shtname = Range("D1").Text '读取D5的名称 k = Sheets(shtname).Index '对应的index If k + 1 = ActiveSheet.Index Then k = k + 1 '考虑当前sheet If k <> N Then '不是最后的工作表 With Sheets(k + 1) Range("D1") = .Name '等于下一个工作表的名称 For i = 6 To 11 '输入数据 Cells(4, i) = .Cells(2, j + 2) j = j + 1 Next End With Else MsgBox "已到边缘" End If Exit Sub '跳出程序 AB: MsgBox "找不到此工作表" End Sub <p> </p> 根据工作表名的切换对应内容_芐雨.rar
2楼亡者天下	芐雨加油
3楼芐雨	谢谢支持
4楼海洋之星	谢谢分享，学习
5楼亡者天下	这个月发个力，争取早日转正！
6楼水星钓鱼	感谢分享
7楼老糊涂	谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主芐雨	Q：如何根据单元格内容切换对应工作表的内容 A: 判断单元格内容的工作表名称，通过点击【上一个】或【下一个】按钮，切换工作表，并在把内容填入代码如下： Sub 根据工作表名的切换对应下一个内容_芐雨() On Error GoTo AB '错误出现时跳到AB N = Sheets.Count 'sheet的个数，设为N shtname = Range("D1").Text '读取D5的名称 k = Sheets(shtname).Index '对应的index If k + 1 = ActiveSheet.Index Then k = k + 1 '考虑当前sheet If k <> N Then '不是最后的工作表 With Sheets(k + 1) Range("D1") = .Name '等于下一个工作表的名称 For i = 6 To 11 '输入数据 Cells(4, i) = .Cells(2, j + 2) j = j + 1 Next End With Else MsgBox "已到边缘" End If Exit Sub '跳出程序 AB: MsgBox "找不到此工作表" End Sub <p> </p> 根据工作表名的切换对应内容_芐雨.rar
2楼亡者天下	芐雨加油
3楼芐雨	谢谢支持
4楼海洋之星	谢谢分享，学习
5楼亡者天下	这个月发个力，争取早日转正！
6楼水星钓鱼	感谢分享
7楼老糊涂	谢谢分享