[已解决]从外部工作簿获取数据，制作三级弹出式菜单，并只录入第三级内容

hefeilac

求助—三级下拉菜单.zip (26.11 KB, 下载次数: 30)

2017-4-19 11:15 上传

点击文件名下载附件
求路过的大神帮忙简化原代码，源代码是三级都录入，现在只需要录入最后一级代码
我写的链接外部工作簿代码执行时，会闪屏，禁止闪屏后又出现菜单显示问题
请大神写代码时帮忙注释一下，也好学习！

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-19 11:44

1. Public Sub WriteToRng(i, N_col)   '写入单元格
   
2.     Application.ScreenUpdating = False
   
3.   Dim wb As Workbook
   
4.   Set wb = GetObject(ThisWorkbook.Path & "\紧固件三级选单.xls")
   
5.   Set sh = wb.Worksheets("sheet1")
   
6.     ActiveCell = sh.Range("c" & i).value
   
7.    wb.Close
   
8.   Set wb = Nothing
   
9.   Application.ScreenUpdating = True
   
10. End Sub

复制代码

修改这里就行了

跳转到最佳答案楼层

Excel学徒123

1. Public Sub WriteToRng(i, N_col)   '写入单元格
   
2.     Application.ScreenUpdating = False
   
3.   Dim wb As Workbook
   
4.   Set wb = GetObject(ThisWorkbook.Path & "\紧固件三级选单.xls")
   
5.   Set sh = wb.Worksheets("sheet1")
   
6.     ActiveCell = sh.Range("c" & i).value
   
7.    wb.Close
   
8.   Set wb = Nothing
   
9.   Application.ScreenUpdating = True
   
10. End Sub

复制代码

修改这里就行了