单元格条件显示

ba3259878266

设置按条件显示单元格内容 谢谢各位老师帮忙

魚。。

vbaChange事件：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.         Range("c2").End(xlDown).Offset(-9, 3).CurrentRegion.Cut
   
4.         Range("c2").End(xlDown).Offset(-14, 2).Select
   
5.         ActiveSheet.Paste
   
6.         Range("c2").End(xlDown).Offset(1, 0).Select
   
7.     Application.EnableEvents = True
   
8. End Sub
   

复制代码

ba3259878266

魚。。 发表于 2020-3-18 10:31
vbaChange事件：

谢谢 需要数组公式计算

ba3259878266

魚。。 发表于 2020-3-18 10:31
vbaChange事件：

老师 如果换一下列和区域  怎么设置   改为  D列  表格区域为  J3:M12  怎么改  谢谢

魚。。

ba3259878266 发表于 2020-3-18 11:35
谢谢 需要数组公式计算

莫非你是想表达这个意思？

ba3259878266

魚。。 发表于 2020-3-18 11:50
莫非你是想表达这个意思？

对了 谢谢  能说明一下代码吗  代表 C列的代码  和 表1区域的代码是哪些  以便用到其它地方  谢谢帮忙

魚。。

ba3259878266 发表于 2020-3-18 11:56
对了 谢谢  能说明一下代码吗  代表 C列的代码  和 表1区域的代码是哪些  以便用到其它地方  谢谢帮忙

E12公式：
=if(row()>count($c:$c)-6,"",e11+1)

ba3259878266

魚。。 发表于 2020-3-18 11:58
E12公式：
=if(row()>count($c:$c)-6,"",e11+1)

老师 只能是表1移动  不能是整行都移动  怎样设置