求助！！！如何让区域内，有限的单元格内能够输入

cici940717

这里有个问题，请各位大神帮忙解决一下！！！

在A1:J10的区域内，保证每行最多有2个单元格可以输入，每列最多有3个单元格可以输入。
请问如果解决呢？
急呀

swl4561255

请在填色区域内输入数据验证效果：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3. If Target.Row > 10 Or Target.Column > 10 Then Exit Sub
   
4. myr = Target.Row
   
5. myc = Target.Column
   
6. If Application.CountA(Range(Cells(1, myc), Cells(10, myc))) > 3 Then
   
7.   Target.ClearContents
   
8.   MsgBox "该列有数据的单元格已有3个，不能继续输入！"
   
9.   Exit Sub
   
10. End If
    
11. If Application.CountA(Range(Cells(myr, 1), Cells(myr, 10))) > 2 Then
    
12.   Target.ClearContents
    
13.   MsgBox "该列有数据的单元格已有2个，不能继续输入！"
    
14.   Exit Sub
    
15. End If
    
16. Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

miaojohn45

写个工作表事件函数代码，检测输入数据时所在行和列的数据数量，当大于要求时清空最后的输入结果并弹窗提示即可。

quqiyuan

数据验证

公式：=(COUNTA($A1:$J1)<3)*(COUNTA(A$1:A$10)<4)

下面这行输入，有提示，不能输入了

cici940717

swl4561255 发表于 2024-3-31 19:17
请在填色区域内输入数据验证效果：

谢谢，我试了，好像不行，也有可能是我操作失误。
下面第三个回复的可以，可以参考下

（悄悄问一下，这是来自大明的不粘锅的头像么）

cici940717

miaojohn45 发表于 2024-3-31 19:36
写个工作表事件函数代码，检测输入数据时所在行和列的数据数量，当大于要求时清空最后的输入结果并弹窗提示 ...

谢谢，那我去学习一下怎么实现

cici940717

quqiyuan 发表于 2024-3-31 20:41
数据验证

公式：=(COUNTA($A1:$J1)

谢谢你，我学会啦，太感谢啦