由于有点学习得比较仓促,很多内容运用得不熟练,现在开始呢对部分问题试着自己解决一下,今天先来个简单的,后面慢慢加大难度。点击Sheet1里面的内容,自动显示Sheet2表格对应内容。
sheet1功能:
sheet2内容:
解决思路:
(1)用户点击Sheet1的B2到B6单元格时,触发SelectionChange事件,点击其他地方不触发;
(2)根据sheet1点击的内容,筛选sheet2里面B列数据
(3)把sheet2的数据复制到sheet1的显示区域。
(4)把复制到sheet1的序号重新排序
具体代码如下,可参考注释内容:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Sheet1")
'如果点击的单元格和.Range("B2:B6")区域合并后还是和